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
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