abonnement Unibet Coolblue Bitvavo
pi_45246666
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.
Thnx,

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
pi_45247090
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
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
pi_45247279
oh verrek ik kan niet tellen .. my bad
het werkt !! thnx
pi_45247546
Deetch,

Als ik ipv de tekst kleur het veld wil laten kleuren? kwestie van aanpassing van de kleurcode ?
pi_45249045
je moet de code
1Selection.Font.ColorIndex = 6


vervangen door
1
2
3
4
With Selection.Interior
.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
  donderdag 11 januari 2007 @ 15:47:17 #36
28946 mirelia
Neehee ik ben geen vrouw!!
pi_45251615
quote:
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.
Nee dit varieert dus blijft handmatig
Jammer maar bedankt
Shuffle up and deal!!!
pi_45252115
quote:
Op donderdag 11 januari 2007 15:47 schreef mirelia het volgende:

[..]

Nee dit varieert dus blijft handmatig
Jammer maar bedankt
Dat denk ik wel, met database programma's ben je iets flexibeler in dit soort zaken maar daar weet ik niet zoveel van af.
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
pi_45256425
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 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.
Ik ben even knutselen, momentje.
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
  donderdag 11 januari 2007 @ 17:55:30 #39
28946 mirelia
Neehee ik ben geen vrouw!!
pi_45256484
De datum staat eronder......die gaat overigens wel automatisch
Shuffle up and deal!!!
pi_45256853
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
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
  donderdag 11 januari 2007 @ 18:23:14 #41
28946 mirelia
Neehee ik ben geen vrouw!!
pi_45257295
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??
Shuffle up and deal!!!
pi_45257580
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??
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.
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
pi_45257625
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.
  donderdag 11 januari 2007 @ 19:00:45 #44
28946 mirelia
Neehee ik ben geen vrouw!!
pi_45258668
quote:
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.
Ja en dat word waarschijnlijk moeilijk
Shuffle up and deal!!!
pi_45275432
goh.. al jaren op fok.. en pas mn eerste nuttige topic
pi_45276400
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??
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
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
pi_45278362
quote:
Op vrijdag 12 januari 2007 08:50 schreef realbase het volgende:
goh.. al jaren op fok.. en pas mn eerste nuttige topic
Het is de leeftijd moet je maar denken
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
  vrijdag 12 januari 2007 @ 11:11:05 #48
80690 hooibaal
Be prepared.
pi_45278390
quote:
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
=100000*REST(JAAR(G1)/100)+1000*MAAND(G1)+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
pi_45281341
mn excel kennis gaat niet verder dan sum, dus daarom tvp
pi_45281483
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)
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
  vrijdag 12 januari 2007 @ 13:02:18 #51
80690 hooibaal
Be prepared.
pi_45281737
quote:
Op vrijdag 12 januari 2007 12:55 schreef Deetch het volgende:
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)
Niet nodig. Dit kun je opvangen door de celeigenschappen aan te passen (zie het screenshot eerder in dit topic)

Kies Celeigenschappen, aangepast en vul in '0000000'. Dan maakt ie van het getal in de cel automatisch een getal van 7 cijfers. '1' ziet er dan uit als 0000001, en 701001 (eerste nota van 2007) als 0701001.
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
  vrijdag 12 januari 2007 @ 14:35:30 #52
28946 mirelia
Neehee ik ben geen vrouw!!
pi_45285186
Nou ik krijg het met beide formules niet voor elkaar heren
Maar dat zal aan mij liggen
Ik heb het stukje uit de factuur waar het om gaat even in een leeg blad gepasted omdat ik niet al mijn bedrijfsgegevens op inet wil gooien
Het is een heel compleet systeem namelijk
Test staat hier:
www.xs4all.nl/~mirelia/test2.xls

[ Bericht 4% gewijzigd door mirelia op 12-01-2007 14:40:58 ]
Shuffle up and deal!!!
  vrijdag 12 januari 2007 @ 14:58:41 #53
80690 hooibaal
Be prepared.
pi_45286071
Ja, ik vermoedde inmiddels wel dat het zoiets ging worden.
Ik denk dat je het beste de factuurnummers handmatig kunt intikken. Wil je dat toch écht niet, dan zul je aan je formulier een cel moeten toevoegen waarin je het nummer van de factuur in die maand intypt. Iets handmatig intypen zul je dus toch moeten doen, vrees ik, of je moet e.e.a. wel heel grondig in de steigers gaan zetten.

Stel dat je in cel Q37 het bewuste nummer gaat zetten, dan moet je in cel J1 intikken:
=100000*REST(JAAR(J2)/100)+1000*MAAND(J2)+$Q$37.

Maar het biedt weinig voordeel, lijkt me.
En aangezien je de datum van de factuur óók door Excel laat genereren d.m.v. =NU() heb je een probleem als je je factuur opslaat en de volgende dag weer opent (of erger: doormailt aan je klant, die het zootje eens per maand verwerkt). Je zult zien dat dan niet alleen de datum van de factuur is veranderd (wat ook al nooit de bedoeling kan zijn, lijkt me...) maar met een beetje pech ook nog eens het factuurnummer!!
Brutalen hebben de halve wereld; doe mij die andere helft dan maar
  vrijdag 12 januari 2007 @ 15:07:33 #54
28946 mirelia
Neehee ik ben geen vrouw!!
pi_45286449
Het was voor mij geen probleem om het handmatig in te tikken hoor
Alleen nu moet ik naar een apart tabje waar mijn facturen staan voor de rest van de boekhouding en daar kijken wat het laatste nummer was.
Kijk het is 5 sec werk hoor maar ik dacht als het makkelijker kan dan is het leuk
Wij maken van een factuur altijd een PDF en die word bewaard en geprint en evt gemailed
Dan kan er niets met ons systeem fout gaan

Maar evengoed beiden bedankt voor de hulp
Shuffle up and deal!!!
pi_45314936
ik ben ook van de partij
  zondag 14 januari 2007 @ 14:36:39 #56
129106 Chav
Oi Oi Oi !!!
pi_45342514
Beste mensen,

Ik had hier: [Excel] HELP, hoe zet ik dit in VB? een topic geopend, kan iemand mij hiermee helpen?
In me Burberry......
pi_45343535
Er zijn erg veel mogelijkheden om het op te lossen. Voornamelijk omdat je niet precies aangeeft hoe je het wil invullen. Wil je dat er een serie schermpjes door je scherm heen vliegen (Msgbox of Inputbox) of wil je gewoon een aantal cellen invullen en dat hij daarna naar de juiste locatie wordt gekopieerd.

Ik ben zelf een voorstander van dat tweede, omdat je dan ook nog allerlei andere excel trucjes kan gebruiken zoals validatielijsten e.d. Om duidelijk te krijgen wat je wil heb ik een voorbeeldje gemaakt: www.snirc.nl/extra/voorbeeld-fok1.xls
  zondag 14 januari 2007 @ 15:36:04 #58
136730 PiRANiA
All thinking men are atheists.
pi_45344245
Hoe zorg ik er voor dat in Excel de getallen die ik typ altijd 3 tekens hebben?

voorbeeld:
01
02
03
==
14
15

etc...
  zondag 14 januari 2007 @ 15:38:34 #59
28946 mirelia
Neehee ik ben geen vrouw!!
pi_45344335
Zijn dat er geen 2??
Volgens mij doe je dat met getal-> aangepast--> 000
Maar ik ben ook een redelijke leek
Shuffle up and deal!!!
  zondag 14 januari 2007 @ 15:41:02 #60
15967 Frollo
You know I am a righteous man
pi_45344420
Ik te
quote:
Op zondag 14 januari 2007 15:36 schreef PiRANiA het volgende:
Hoe zorg ik er voor dat in Excel de getallen die ik typ altijd 3 tekens hebben?

voorbeeld:
01
02
03
==
14
15

etc...
Een aangepaste getalnotatie maken met het aantal cijfers dat je wilt, bijvoorbeeld '00' of '000'.
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')