datum in een kolom onder in de data sheet zetten bij openen van de sheet

[ewh]

we proberen de RMA ( reparaties bij te houden )
zie voorbeeld
als in kolom G een datum staat dan , zal die na het openen van de sheet automatisch onder aan de gevulde data base moeten gaan staan

wie kan helpen met VBA
Bekijk bijlage RMA voorbeeld.xls

 

[HSV]

Begin je tabel in A1, dan zou het zo wel kunnen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rw As Long
Application.EnableEvents = False
If Target.Column = 7 And Target.Row > 1 Then
  If Target.Value <> "" Then
     rw = Target.Row
     Target.EntireRow.Cut [a1].End(xlDown).Offset(1)
     Rows(rw).Delete
   End If
 End If
 Application.EnableEvents = True
End Sub

 

[ewh]

bedankt voor het mee denken