Gegevens overzetten naar ander blad met vba

[yasthina]

Beste excel specialisten,
Ik zoek een methode om cadeaubons te printen aan de hand van de gegevens in dit blad.
Als ik een bedrag invul in kolom B komt in kolom C de datum en in kolom A de volgnummer .
Nu zou ik graag die gegevens op het blad "Kadobon printen" overzetten, in B8 de datum, het bedrag in B4 en het volgnummer in D2.
Kan ook in K11 de waarde van J11 in tekst komen, zie voorbeeld?
Is dit mogelijk?
Alvast hartelijk dank voor jullie antwoord en oplossing.
Vriendelijke groet
Guido

 

[mvdvlist]

Klein opzetje...
Dubbelklik op het volgnummer en de gegevens staan in "Kadobon printen"
Ik heb op dat blad wel de samengevoegde cellen verwijder (B8, B4 en D2, want VBA en samengevoegde cellen zijn vijanden.

De vraag over tekst ga ik me even verdiepen. Moet wel kunnen...

 

[AHulpje]

Selecteer een bonnummer en ga naar werkblad kadobon printen

 

[Warme bakkertje]

@AHulpje

Om 1 jaar toe te voegen aan de datum moet het zo.

Range("B12") = DateAdd("yyyy", 1, Range("B8"))

 

[AHulpje]

@Warme bakkertje
Je hebt helemaal gelijk, ik was een beetje slordig.

 

[yasthina]

Bedankt voor jullie prachtige oplossing.
AHulpje is het mogelijk om in de tekst die "één" weg te laten, dus "honderd twintig euro" ipv "éénhonderd twintig euro". Ik weet niet of dit mogelijk is.
Alvast bedankt!
Guido

 

[AHulpje]

Bijgaand een aangepaste versie, ook geldigheidsdatum aangepast.
Maar weet je wel zeker dat je 1309 coderegels nodig hebt voor het printen van een bon? Iets te lang "macro opnemen" aan laten staan vermoed ik zo. Sub Printen barst bovendien van de foute verwijzingen en als hij niet zou crashen zou hij je bon aardig verknallen. Ik heb daarom die code voor de zekerheid maar uitgecomment.

 

[yasthina]

Beste AHulpje, ik heb die "1309" regels verwijderd en het werkt perfect zoals ik het graag had.
Hartelijk dank voor het zoekwerk en de oplossing!
Groeten
Guido