abonnement Unibet Coolblue
pi_64275182
Hmmmm merk trouwens net dat het toch ook niet zo makkelijk is m.b.v. van visual basic...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit

Public infinity As Boolean
Public address As String

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim oSheet As Worksheet
    Dim iTemp As Integer

    Set oSheet = Sh
    address = Target.address
    
    If infinity = False Then
        infinity = True
        
        If address = "$A$1" Then
            oSheet.Range("$A$2").Value = oSheet.Range("$A$1").Value * oSheet.Range("$A$2").Value
        ElseIf address = "$A$2" Then
            oSheet.Range("$A$1").Value = oSheet.Range("$A$1").Value * oSheet.Range("$A$2").Value
        End If
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    infinity = False
End Sub


Dit komt namelijk in een infinity loop. Aangezien de event naar de allereerste berekening steeds weer wordt aangeroepen omdat de waarde steeds veranderd. Nu heb ik het als volgt gedaan door een extra variabele die detecteerd of de functie al 1x eerder is aangeroepen. Echter vind ik me manier niet zo ' netjes' en ik vroeg of iemand misschien een betere oplossing weet?

[ Bericht 0% gewijzigd door Wouser op 24-12-2008 00:12:55 ]
pi_64305238
Ik hou me boekhouding bij in een excelsheet, en tik altijd me facturen uit in word. Nu kan ik dit volgens mij doen allebei doen in excel, alleen ik loop vast. Mega-lastig om dit duidelijk uit te leggen, maar ik zal mijn best doen, hoop dat iemand mij kan helpen.

Hier mijn excelsheet. (excel 2007, NL versie)

Ik heb 2 werkbladen, geleverde diensten en automatische factuur. In het eerste werkblad hou ik al me geleverde diensten bij, en in het tweede tabblad wil ik een automatische factuur laten genereren.

Met hele simpele verwijzingen naar het eerste tabblad, lukt de eerste factuur prima. Nu wil ik de tweede ook automatisch laten genereren, dus mijn idee was om te filteren op één factuurnummer, zodat ik alleen de diensten voor de tweede factuur in mijn automatische factuur te zien zou krijgen.

Helaas is dit niet de manier. Als ik in het eerste werkblad alleen de tweede factuur aanklik, dan wordt de nummering anders, en is cel 2, niet meer C2 maar C5.

Weet iemand een oplossing?
pi_64309496
Ik snap er geen hol van wat je bedoelt maarrr je wilt van iedere factuur een eigen (geautomatiseerde) nieuwe werkblad laten creëren? Uiteraard moeten meerdere facturen die van 1 klant zijn op hetzelfde blad...? Zo ja dan zou ik hier niet al te moeilijk doen maar gewoon een VB code voor maken. Kun je er ook nog een mooi formpje bij maken etc...

Ps weet niet of je weet maar je facturen zijn wel te breed voor een A4...? Iig bij mij is ie te breed.

En dit is btw wel om te huilen werkblad 2 F32...
=(F31*1.19)-F31

oh en waarom mogen we eurotool niet bekijken
pi_64309956
quote:
Op woensdag 24 december 2008 00:19 schreef Wouser het volgende:
Ik snap er geen hol van wat je bedoelt maarrr je wilt van iedere factuur een eigen (geautomatiseerde) nieuwe werkblad laten creëren? Uiteraard moeten meerdere facturen die van 1 klant zijn op hetzelfde blad...? Zo ja dan zou ik hier niet al te moeilijk doen maar gewoon een VB code voor maken. Kun je er ook nog een mooi formpje bij maken etc...

Ps weet niet of je weet maar je facturen zijn wel te breed voor een A4...? Iig bij mij is ie te breed.

En dit is btw wel om te huilen werkblad 2 F32...
=(F31*1.19)-F31

oh en waarom mogen we eurotool niet bekijken

Ik dacht al, het is ook geen doen om dit uit te leggen

Ik zag inderdaad ook dat hij te groot was, heb hem even aangepast. Dit is een eerste probeersel van mij, ik dacht zoiets is vast heel goed te doen in Excel.

Ik ben dus niet echt thuis in VB code, maar als ik het goed begrijp is dit niet echt op te lossen zonder VB code?
  woensdag 24 december 2008 @ 00:40:59 #30
62215 qu63
..de tijd drinkt..
pi_64310277
Volgens mij wel hoor, maar dan moet je handmatig het factuurnummer invullen, en dan excel laten zoeken naar alle bijbehorende gegevens.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 24 december 2008 @ 12:00:27 #31
93214 DeTolk
Elk puntje telt.
pi_64319985
Goedemiddag,

We zitten op het werk met het volgende:

We hebben een lijst van 73 bedragen met bijbehorend klantnummer per bedrag.

Nu komen we op het totaalbedrag een bedrag van 477,33 tekort.
De details van de bedragen zijn helaas niet volledig zodat je alles makkelijk kan filteren.
Het enige dat we weten is dat die 477,33 bestaat uit 3 losse bedragen

Bestaat er in Excel een functie/formule om uit te rekenen hoeveel mogelijke combinaties er zijn om 3 bedragen op 1 bedrag uit te laten komen?


We gebruiken trouwens Excel 2003 NL

[ Bericht 1% gewijzigd door DeTolk op 24-12-2008 12:10:15 ]
pi_64329335
quote:
Op woensdag 24 december 2008 00:32 schreef hardcorekabouter het volgende:

[..]

Ik dacht al, het is ook geen doen om dit uit te leggen

Ik zag inderdaad ook dat hij te groot was, heb hem even aangepast. Dit is een eerste probeersel van mij, ik dacht zoiets is vast heel goed te doen in Excel.

Ik ben dus niet echt thuis in VB code, maar als ik het goed begrijp is dit niet echt op te lossen zonder VB code?
Even eerst een vraag maar was mijn gedachte, dat ik dacht dat je facturen in een nieuw werkblad wilt maken etc... dus correct? Zo ja dan zou dit ook wel misschien mogelijk zijn m.b.v. excel code zelf... Alleen zou ikzelf niet weten hoe. Ikzelf ga namelijk als het een beetje gecompliceerd wordt al snel over naar vb code omdat het simpeler is en je geen héél lange formules krijgt in een cel.
pi_64329455
quote:
Op woensdag 24 december 2008 12:00 schreef DeTolk het volgende:
Goedemiddag,

We zitten op het werk met het volgende:

We hebben een lijst van 73 bedragen met bijbehorend klantnummer per bedrag.

Nu komen we op het totaalbedrag een bedrag van 477,33 tekort.
De details van de bedragen zijn helaas niet volledig zodat je alles makkelijk kan filteren.
Het enige dat we weten is dat die 477,33 bestaat uit 3 losse bedragen

Bestaat er in Excel een functie/formule om uit te rekenen hoeveel mogelijke combinaties er zijn om 3 bedragen op 1 bedrag uit te laten komen?


We gebruiken trouwens Excel 2003 NL
Ik weet niet of daarvoor een functie is maar als er zo'n functie zou bestaan zou die denk ik je computer al snel dan op hol zou slaan wanneer je die zou gebruiken... Omdat hij dan natuurlijk alle combinaties gaat uitrekenen waarbij de 3 getallen samen op 477.33 komt... Dus 477.31 + 0.01 + 0.01 is al een combinatie, 477.30 + 0.01 + 0.02 is weer een combinatie etc...
pi_64329628
is het mogelijk om verschillende aan elkaar gelinkte Excel files te mailen zonder dat de links verloren gaan ?
zonnig Brasil
  woensdag 24 december 2008 @ 16:51:21 #35
62215 qu63
..de tijd drinkt..
pi_64329975
quote:
Op woensdag 24 december 2008 16:41 schreef qwerty_x het volgende:
is het mogelijk om verschillende aan elkaar gelinkte Excel files te mailen zonder dat de links verloren gaan ?
ligt er aan hoe alles gelinkt is. Als de link alleen \map\bestandsnaam.xls is is er niks aan de hand (mits de bestanden in dezelfde mappen worden gezet), maar is de link iets als c:\users and documents\bla\bla\bla dan werkt het niet
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64330062
quote:
Op woensdag 24 december 2008 16:51 schreef qu63 het volgende:

[..]

ligt er aan hoe alles gelinkt is. Als de link alleen \map\bestandsnaam.xls is is er niks aan de hand (mits de bestanden in dezelfde mappen worden gezet), maar is de link iets als c:\users and documents\bla\bla\bla dan werkt het niet
maar als je die eerstgenoemde link legt, voegt Excel er dan niet automatisch die hele riedel aan toe ?
zonnig Brasil
  woensdag 24 december 2008 @ 16:55:17 #37
62215 qu63
..de tijd drinkt..
pi_64330109
quote:
Op woensdag 24 december 2008 16:54 schreef qwerty_x het volgende:

[..]

maar als je die eerstgenoemde link legt, voegt Excel er dan niet automatisch die hele riedel aan toe ?
kan, maar dat is ook te wijzigen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64330308
ok, bedankt

ik ga het proberen
zonnig Brasil
  woensdag 24 december 2008 @ 18:49:26 #39
85514 ralfie
!Yvan eht nioj
pi_64333557
quote:
Op dinsdag 23 december 2008 10:06 schreef Wouser het volgende:
Hmmmm merk trouwens net dat het toch ook niet zo makkelijk is m.b.v. van visual basic...
[ code verwijderd ]

Dit komt namelijk in een infinity loop. Aangezien de event naar de allereerste berekening steeds weer wordt aangeroepen omdat de waarde steeds veranderd. Nu heb ik het als volgt gedaan door een extra variabele die detecteerd of de functie al 1x eerder is aangeroepen. Echter vind ik me manier niet zo ' netjes' en ik vroeg of iemand misschien een betere oplossing weet?
aan het begin van je functie workbook (of sheet, vergeet ik altijd).enableEvents op false zetten, dan aan het eind van je functie weer op true
  woensdag 24 december 2008 @ 21:20:01 #40
219075 Fortitudo
de echte vedett
pi_64339177
quote:
Op zondag 21 december 2008 11:45 schreef DaFan het volgende:
ik zit er nog steeds over te denken.
het is me gelukt. copy --> past links
Een oude, seniele vos is nog steeds sluw en schuw. Nooit afschrijven zeg ik je.
pi_64344465
quote:
Op woensdag 24 december 2008 21:20 schreef Fortitudo het volgende:

[..]

het is me gelukt. copy --> past links
Ghe sorry, ik heb vandeweek nog ff naar dit topic gekeken maar ik kon nergens goed uitkomen (ff snel, zo deze week is iedereen vrij druk neem ik aan?).

Blij dat je eruitgekomen bent.
pi_64346678
quote:
Op woensdag 24 december 2008 18:49 schreef ralfie het volgende:

[..]

aan het begin van je functie workbook (of sheet, vergeet ik altijd).enableEvents op false zetten, dan aan het eind van je functie weer op true
Thanks als ik weer op het werk ben zal ik het eens proberen vind ik iig een nettere oplossing.
pi_64349468
Moet je wel mee opletten als je gaat 'proberen'. Als je tijdens je macro tegen een problem loopt en deze afbreekt, blijft events UITSTAAN. En dan werken je macro's niet meer, erg vervelend. Als je hier tegenaan loopt en je blijft debuggen, moet je ff een knopje maken, daar een macro aanhangen met Application.EnableEvents = True.
pi_64349476
Oh het is dus

1Application.EnableEvents = False

En aan het einde van je macro weer True.
  donderdag 25 december 2008 @ 16:47:05 #45
62215 qu63
..de tijd drinkt..
pi_64357559
Ik wil weten in welke weken een bepaalde datumreeks valt.
Ik heb in kolom A de datum staan, en in kolom B de duur van de perdiode
In welke week kolom A valt is niet moeilijk, dat is gewoon WEEKNUMMER(cel)
Maar als die periode 30 dagen duurt, wil ik weten welke weken daar bij horen.

Iemand enig idee?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64357760
Ik heb (Engels)

=WEEKNUM(A2) & " - " & WEEKNUM(A2+B2)

Vandaag in A2 geeft als resultaat
52 - 4
pi_64357821
Hardcorekabouter volgens mij kan je beter Access gebruiken.
  donderdag 25 december 2008 @ 17:17:11 #48
62215 qu63
..de tijd drinkt..
pi_64357931
quote:
Op donderdag 25 december 2008 17:04 schreef DaFan het volgende:
Ik heb (Engels)

=WEEKNUM(A2) & " - " & WEEKNUM(A2+B2)

Vandaag in A2 geeft als resultaat
52 - 4
En hoe reken ik daar dan het aantal weken uit?

In dit geval is het antwoord dus 5 (makkelijk zelf uit te rekenen), maar hoe kan ik het excel laten doen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64358114
Hm ik heb nu dit, misschien beetje omslachtig maar het werkt:
1=WEEKNUM(DATE(YEAR(A2),12,31))-WEEKNUM(A2)+WEEKNUM(B2+A2)


Dit werkt alleen als het over de jaarwisseling heengaat. Ik kom er nu niet uit hoe ik het moet doen en we gaan eten, morgen weer :*
  donderdag 25 december 2008 @ 17:44:31 #50
62215 qu63
..de tijd drinkt..
pi_64358290
quote:
Op donderdag 25 december 2008 17:29 schreef DaFan het volgende:
Hm ik heb nu dit, misschien beetje omslachtig maar het werkt:
[ code verwijderd ]

Dit werkt alleen als het over de jaarwisseling heengaat. Ik kom er nu niet uit hoe ik het moet doen en we gaan eten, morgen weer
Ik zal er even mee stoeien, thanks!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
abonnement Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')