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 | 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 |
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
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.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?
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...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
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 nietquote: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 ?
maar als je die eerstgenoemde link legt, voegt Excel er dan niet automatisch die hele riedel aan toe ?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
kan, maar dat is ook te wijzigenquote: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 ?
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 truequote: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?
het is me gelukt. copy --> past linksquote:
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?).quote:Op woensdag 24 december 2008 21:20 schreef Fortitudo het volgende:
[..]
het is me gelukt. copy --> past links
Thanks als ik weer op het werk ben zal ik het eens proberen vind ik iig een nettere oplossing.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
En hoe reken ik daar dan het aantal weken uit?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
1 |
Ik zal er even mee stoeien, thanks!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
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |