Goedemiddag,
Ik heb van dit forum 'het verplaatsen van een rij naar een ander blad in hetzelfde bestand' gebruikt. (het werkt)
Hiervoor heb ik onderstaand gebruikt en aangepast aan mijn bestand.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("AE4:AE1000"), Target) Is Nothing Then
If Selection.Value = "J" Then
With Sheets("zaak gereed gemeld")
lr = .Range("A65536").End(xlUp).Row + 1
Rows(Target.Row).Cut .Cells(lr, 1)
End With
Rows(Selection.Row).Delete
End If
End If
End Sub
Mijn vraag is of iemand kan helpen dit om te bouwen naar het kopieren van een rij naar een ander bestand op basis van dezelfde criteria als boven staand.
Misschien is mijn vraag niet zo eenvoudig als ik voorstel maar ik hoop dat iemand me kan helpen.
Alvast bedankt.
MvrGr Manon
Ik heb van dit forum 'het verplaatsen van een rij naar een ander blad in hetzelfde bestand' gebruikt. (het werkt)
Hiervoor heb ik onderstaand gebruikt en aangepast aan mijn bestand.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("AE4:AE1000"), Target) Is Nothing Then
If Selection.Value = "J" Then
With Sheets("zaak gereed gemeld")
lr = .Range("A65536").End(xlUp).Row + 1
Rows(Target.Row).Cut .Cells(lr, 1)
End With
Rows(Selection.Row).Delete
End If
End If
End Sub
Mijn vraag is of iemand kan helpen dit om te bouwen naar het kopieren van een rij naar een ander bestand op basis van dezelfde criteria als boven staand.
Misschien is mijn vraag niet zo eenvoudig als ik voorstel maar ik hoop dat iemand me kan helpen.
Alvast bedankt.
MvrGr Manon
