DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Het lijkt wel vrijdag op me werk en dit soort vraagjes zijn handig om mijn VB skills af en toe te testen.quote:
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
MOet ik nou nog wat aanpassen in die macro? Want zo werktie nietquote:Op donderdag 11 januari 2007 10:25 schreef Deetch het volgende:
Je kunt zo echter maar 3 conditional formats maken en TS heeft er 6 nodig (eigenlijk 5 want AF en NA zijn beide rood.
Op die manier wordt het toch een macrotje ben ik bang.
[ code verwijderd ]
Uitleg:
Do until betekend dat de macro alle regels bij langs gaat zolang de waarde in de active cell (kolom A) niet leeg is.
activecell is de geactiveerde cel (in eerste instantie A1)
activecell.offset(0,4) betekend vier kolommen opzij ten opzichte van de actieve cel
activecell.offset(1,0).select beteknd de cel onder de active cel selecteren (dus volgende cel in kolom A)
de colorindex is de kleurcode (zie onder)
[afbeelding]
ik heb bijv in op line 1 : A1 = naam : B1 = functie C1= klant D1 = datum in dienst etc etc.. en in P geef ik de status weer dmv die codes ( A, AF , NA etc ) als ik dan A intik moet die hele ene regel een kleur krijgen ( zoals ik zei in mn eerste post) Als ik juow macro draai zie ik niets gebeuren
je moet de activecell.offset(0,4) aanpassen naar (0,15) zodat de macro kijkt naar de waarde in kolom P ipv E (zoals de voorbeeld macro).
Dat had ik ook al uitgelegd bij de uitleg dacht ik, maar misschien was dat niet duidelijk genoeg.
je moet wel de macro elke keer runnen als je je spreadsheet aanvult en in kolom A mogen geen lege cellen voorkomen tot onder het einde van je data.
Dat had ik ook al uitgelegd bij de uitleg dacht ik, maar misschien was dat niet duidelijk genoeg.
je moet wel de macro elke keer runnen als je je spreadsheet aanvult en in kolom A mogen geen lege cellen voorkomen tot onder het einde van je data.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Iemand een idee hoe ik op een factuur:
A: automatisch kan doornummeren
B: maar dan op een speciale manier nl eerste factuur van jan 2007 is dan 0701001 en eerste feb is 0702001 etc
Of is dit te ingewikkeld?
A: automatisch kan doornummeren
B: maar dan op een speciale manier nl eerste factuur van jan 2007 is dan 0701001 en eerste feb is 0702001 etc
Of is dit te ingewikkeld?
Shuffle up and deal!!!
Dat ligt eraan of de nummering van te voren bekend is en constant. Dus als het altijd 10 facturen per maand zijn dan kan dat redelijk eenvoudig. Als het aantal facturen per periode niet contant is wordt het lastig en kun je ze beter gewoon handmatig inkloppen.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Thnx,quote:Op donderdag 11 januari 2007 13:30 schreef Deetch het volgende:
je moet de activecell.offset(0,4) aanpassen naar (0,15) zodat de macro kijkt naar de waarde in kolom P ipv E (zoals de voorbeeld macro).
Dat had ik ook al uitgelegd bij de uitleg dacht ik, maar misschien was dat niet duidelijk genoeg.
je moet wel de macro elke keer runnen als je je spreadsheet aanvult en in kolom A mogen geen lege cellen voorkomen tot onder het einde van je data.
Kolom A is altijd vol ( met een nummer)
if ActiveCell.Offset(0, 16).Value = "A" Then
heb ik er van gemaakt
ik run hem.. active.cell zie je schieten naar eerste lege cel in kolom A ( regel 15 in mijn geval) dus hij loopt wel maar hij kleurt nie
je moet ok 15 ipv 16 neerzetten. hij kijkt 15 cellen naar rechts gerekend vanaf kolom a. Offset betekend zoiets als verplaatsing en het eerste getal is de regelverplaatsing en het tweede de kolomverplaatsing. 0,0 betekend geen verplaatsing.
0=A, 1=B, 2=C, 3=D, 4=E, 5=F, 6=G en 15 is dus P
0=A, 1=B, 2=C, 3=D, 4=E, 5=F, 6=G en 15 is dus P
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
ik kan niet tellen .. my bad 
Deetch,
Als ik ipv de tekst kleur het veld wil laten kleuren? kwestie van aanpassing van de kleurcode ?
Als ik ipv de tekst kleur het veld wil laten kleuren? kwestie van aanpassing van de kleurcode ?
je moet de code
vervangen door
de colorindexwaarde is alleen voor de kleur zelf
| 1 |
vervangen door
| 1 2 3 4 | .ColorIndex = 6 .Pattern = xlSolid End With |
de colorindexwaarde is alleen voor de kleur zelf
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Nee dit varieert dus blijft handmatigquote:Op donderdag 11 januari 2007 13:36 schreef Deetch het volgende:
Dat ligt eraan of de nummering van te voren bekend is en constant. Dus als het altijd 10 facturen per maand zijn dan kan dat redelijk eenvoudig. Als het aantal facturen per periode niet contant is wordt het lastig en kun je ze beter gewoon handmatig inkloppen.
Jammer maar bedankt
Shuffle up and deal!!!
Dat denk ik wel, met database programma's ben je iets flexibeler in dit soort zaken maar daar weet ik niet zoveel van af.quote:Op donderdag 11 januari 2007 15:47 schreef mirelia het volgende:
[..]
Nee dit varieert dus blijft handmatig
Jammer maar bedankt
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Ik denk wel dat dit kan, er van uitgaande dat je in dezelfde regel als het factuurnummer ook wel ergens de datum van de factuur hebt staan en dat ze in chronologische volgorde staan.quote:Op donderdag 11 januari 2007 13:32 schreef mirelia het volgende:
Iemand een idee hoe ik op een factuur:
A: automatisch kan doornummeren
B: maar dan op een speciale manier nl eerste factuur van jan 2007 is dan 0701001 en eerste feb is 0702001 etc
Of is dit te ingewikkeld?
Ik ben even knutselen, momentje.
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
OK, erg charmant is ie niet, maar onder de voorwaarde dat er iedere maand tenminste 1 factuur verwerkt wordt, doet ie het wel.
Als de datum in kolom A staat, en het toe te wijzen factuurnr. ernaast in kolom B, dan kun je de onderstaande formule gebruiken.
=ALS(MAAND(A2)=MAAND(A1);B1+1;ALS(MAAND(A1)=12;(GEHEEL(B1/1000)+89)*1000+1;(GEHEEL(B1/1000)+1)*1000+1))
screenshotje
Als de datum in kolom A staat, en het toe te wijzen factuurnr. ernaast in kolom B, dan kun je de onderstaande formule gebruiken.
=ALS(MAAND(A2)=MAAND(A1);B1+1;ALS(MAAND(A1)=12;(GEHEEL(B1/1000)+89)*1000+1;(GEHEEL(B1/1000)+1)*1000+1))
screenshotje
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
Er word elke maand wel een factuur gemaakt maar ik bedoelde het toch anders denk ik
Ik bedoelde de factuurnummers OP de factuur
Dus stel dat de datum in cel G14 staat en het factuurnummer in cel F14, hoe zou de formule dan zijn?
en zou het wel werken zo??
Ik bedoelde de factuurnummers OP de factuur
Dus stel dat de datum in cel G14 staat en het factuurnummer in cel F14, hoe zou de formule dan zijn?
en zou het wel werken zo??
Shuffle up and deal!!!
Alleen als er een referentie is naar het nummer van de voorgaande factuur. Excel is niet in staat om zelf te verzinnen de hoveelste factuur van de maand het is.quote:Op donderdag 11 januari 2007 18:23 schreef mirelia het volgende:
Er word elke maand wel een factuur gemaakt maar ik bedoelde het toch anders denk ik
Ik bedoelde de factuurnummers OP de factuur
Dus stel dat de datum in cel G14 staat en het factuurnummer in cel F14, hoe zou de formule dan zijn?
en zou het wel werken zo??
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
handig zo'n topic (tvp)
Wie heeft gezegd dat de liefde blind is? Zij is de enige die scherp ziet: zij ontdekt schoonheden waar anderen niets merken.
Ja en dat word waarschijnlijk moeilijkquote:Op donderdag 11 januari 2007 18:32 schreef hooibaal het volgende:
[..]
Alleen als er een referentie is naar het nummer van de voorgaande factuur. Excel is niet in staat om zelf te verzinnen de hoveelste factuur van de maand het is.
Shuffle up and deal!!!
nieuwe kolom met volgende formule maken. uitgegaan van cel G1 als datum en cel F1 als factuurnummerquote:Op donderdag 11 januari 2007 18:23 schreef mirelia het volgende:
Er word elke maand wel een factuur gemaakt maar ik bedoelde het toch anders denk ik
Ik bedoelde de factuurnummers OP de factuur
Dus stel dat de datum in cel G14 staat en het factuurnummer in cel F14, hoe zou de formule dan zijn?
en zou het wel werken zo??
=RIGHT(YEAR(G1);2)&IF(MONTH(G1)<10;0;"")&MONTH(G1)&IF(F1<10;"00";(IF(F1<100;"0";"")))&F1
of in nederlands
=RECHTS(JAAR(G1);2)&ALS(MAAND(G1)<10;0;"")&MAAND(G1)&ALS(F1<10;"00";(ALS(F1<100;"0";"")))&F1
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Het is de leeftijd moet je maar denkenquote:Op vrijdag 12 januari 2007 08:50 schreef realbase het volgende:
goh.. al jaren op fok.. en pas mn eerste nuttige topic
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
=100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1quote:Op vrijdag 12 januari 2007 09:46 schreef Deetch het volgende:
[..]
nieuwe kolom met volgende formule maken. uitgegaan van cel G1 als datum en cel F1 als factuurnummer
=RIGHT(YEAR(G1);2)&IF(MONTH(G1)<10;0;"")&MONTH(G1)&IF(F1<10;"00";(IF(F1<100;"0";"")))&F1
of in nederlands
=RECHTS(JAAR(G1);2)&ALS(MAAND(G1)<10;0;"")&MAAND(G1)&ALS(F1<10;"00";(ALS(F1<100;"0";"")))&F1
Is korter en vermijd het 'trage' gebruik van ALS-lussen.
De vraag is, hoe kom je aan de informatie uit F1, 'de hoeveelste factuur van de maand' dus, en die zul je vermoedelijk toch handmatig moeten invoeren...
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
elegante oplossing, je mist alleen de voorloopnul als het jaar onder 2010 is. Toch nog een ALS statement nodig hiervoor.
=ALS(REST(JAAR(G1);100)<10;"0"&100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1;100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1)
=ALS(REST(JAAR(G1);100)<10;"0"&100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1;100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+F1)
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
