Hallo iedereen,
Wie kan mij hieruit helpen?
De onderste macro werkt perfect maar inplaats dat hij in blad "pat nr" een bestaande (ingevulde) rij eerst wist en dan de andere gegevens plakt en zo verder bouwt, wil ik dat hij doet wat in deze macro staat
Sheets("pat nr").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
met andere woorden, hij moet de bestaande rijen naar beneden duwen, de rij erboven die dan vrij komt daar moet hij de nieuwe gegevens plakken.
Sub rijknippen()
On Error Resume Next
Do
With Sheets("patlijst nieuw").Columns(1).Find([B1], , xlValues, xlWhole).EntireRow
.Copy Sheets("pat nr").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Delete
End With
Loop Until Err.Number > 0
End Sub
Alvast bedankt Wallo


Wie kan mij hieruit helpen?
De onderste macro werkt perfect maar inplaats dat hij in blad "pat nr" een bestaande (ingevulde) rij eerst wist en dan de andere gegevens plakt en zo verder bouwt, wil ik dat hij doet wat in deze macro staat
Sheets("pat nr").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
met andere woorden, hij moet de bestaande rijen naar beneden duwen, de rij erboven die dan vrij komt daar moet hij de nieuwe gegevens plakken.
Sub rijknippen()
On Error Resume Next
Do
With Sheets("patlijst nieuw").Columns(1).Find([B1], , xlValues, xlWhole).EntireRow
.Copy Sheets("pat nr").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Delete
End With
Loop Until Err.Number > 0
End Sub
Alvast bedankt Wallo


