koppelen

[Justes]

Hallo Luc,

Jammer ik krijg het niet goed, mag ik je het programma
per E-mail toesturen, het is te groot om het ingepakt hier te plaatsen.

Gr, Justes

 

[LucB]

Justes,

Wat ook nog kan is het volgende:

Ga naar bestand "Afleverbonnen 1 AD".
Op de A-bladen staat in B2 de Naam bv "klant1"

Deze schrijfwijze moet exact in kolom A van het Verzamelblad staan.

Dus staat in B2 van Blad1A "KLANT 1" , dan ook "KLANT 1" in kolom A van "Verzamelblad".

De Naam moet in de A-bladen exact gelijk zijn aan de Naam in kolom A van Verzamelblad.

Ook de verwijzingsformule moet weg uit kolom A van Verzamelblad. Gewoon de Naam intypen.

 

[Justes]

Hallo Luc,

Het is voor elkaar, je raad opgevolgd en het hele programma loopt als een zonnetje, 10 sterren waard, dank daarvoor.

Groeten, Justes

 

[Justes]

Hallo Luc,

Het programma loopt als een trein, de vraag is alleen of het mogelijk is een foutmelding te krijgen als men vergeten is het projectnaam of nummer in te voeren als op de afdrukknop gedrukt wordt.

Gr, Justes

 

[LucB]

Justes,


Sub Afdrukken()
ActiveSheet.Unprotect Password:="mnbvcxz"
If Range("B6") = 0 Or Range("D6") = "" Then
MsgBox "ProjectNaam en/of Bonnummer nog invullen,aub."
Exit Sub
End If
gegevensNaarAblad

De regels tussen ActiveSheet..... en gegevensNaarBlad
aande macro toevoegen

 

[Justes]

Hallo Luc,

Het is weer 5 ***** waard.

Gr, Justes