vba code aanpassen

[vio]

Hoi,
Een vraagje voor de VBA specialisten
Onderstaande code haalt dezelfde artikelen van 2 bladen naar 1 blad. Kan me iemand deze code aanpassen zodat alles wat achter datum in blad2, achter dezelfde datum (dat is van C tot BP) in blad1 komt te staan.
Ik ben al te lang aan het zoeken krijg er een muisarm van :

Private Sub CommandButton1_Click()
On Error Resume Next
For Each cl In Sheets("Blad1").Columns(1).SpecialCells(xlCellTypeConstants)
c0 = Sheets("Blad2").Columns(1).Find(cl).Address
If Err.Number = 0 Then Sheets("Blad2").Range(c0).EntireRow.Copy cl.EntireRow
Err.Clear
Next
End Sub

MVD
Vio

 

[Warme bakkertje]

Post anders eens een voorbeeldbestandje zodat we een idee krijgen van de opbouw.

 

[vio]

re

Hier een bestandje, sorry voor de vorige onduidelijkheid
Vio

 

[danny147]

Beste vio

Zet in cel D5 de volgende formule en sleep naar beneden.

=DATUM($Q$3;MAAND($K$3);1)

Bij besturingselement moet Q3 geplaatst worden bij "koppeloing met cel"

Groetjes Danny. :thumb:

 

[danny147]

Beste vio

Zie bestandje met alle aanpassingen zonder de code.

Groetjes Danny. :thumb:

 

[vio]

re

Hartelijk dank Danny. :thumb::thumb: voor de aanpassing

 

[vio]

code

Hoi,
Met de bovenstaande boodschap lijkt het misschien of het al klaar is maar ik moet nog enkel een code voor de uren om te zetten naar de rooster en het is gereed.
Rudi heb je al iets gevonden om de uren om te zetten op blad1?
Vio

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("Blad1").[D5:D35].NumberFormat = "0"
Sheets("Blad2").Range("C2:C" & Sheets("Blad2").[C65536].End(xlUp).Row).NumberFormat = "0"
For Each cl In Sheets("Blad1").[D5:D35]
c0 = Sheets("Blad2").Columns(3).Find(cl.Value, , xlValues, xlWhole).Address
If Err.Number = 0 Then Sheets("Blad2").Range(c0).Offset(, 1).Resize(, 16).Copy cl.Offset(, 1)
Err.Clear
Next
Sheets("Blad1").[D5:D35].NumberFormat = "ddd) d/mm/yyyy"
Sheets("Blad2").Range("C2:C" & Sheets("Blad2").[C65536].End(xlUp).Row).NumberFormat = "ddd) d/mm/yyyy"
End Sub

Ik zat wat in de knoei met je celformat, dus heb ik het zo opgelost. Het werkt perfect, maar misschien dat iemand anders een betere oplossing heeft.

 

[vio]

re

Ja dat is hem :thumb:
Fantastisch, magnifiek
Rudi bedankt voor je inzichten in praktijk om te zetten:thumb::thumb::thumb:
Ik ben content
Danny heb je soms ideeën voor de lay-out van de rooster?

Vio

 

[vio]

re

Ok heb de layout ook gevonden in voorwaardelijke opmaak en wat dikke randen voor de weekends die eerst moeten gezet worden in de bronblad.
Ik kan het afsluiten:thumb:
Mvg,
Vio