Would there be a difference if I was to automate a date?Manaully......
Would there be a difference if I was to automate a date?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
If Target.Column = 3 Then
Application.EnableEvents = False
With Sheets(Format(Month(Target.Value), "00"))
LR = .Range("A" & Rows.Count).End(xlUp).Row
Target.EntireRow.Copy Destination:=.Range("A" & LR + 1)
End With
Target.EntireRow.Delete
Application.EnableEvents = True
End If
End Sub
Yes there would. Try this for manually entered dates. Right click the tab of the sheet where you are entering dates, select View code and paste in
Code:Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long If Target.Column = 3 Then Application.EnableEvents = False With Sheets(Format(Month(Target.Value), "00")) LR = .Range("A" & Rows.Count).End(xlUp).Row Target.EntireRow.Copy Destination:=.Range("A" & LR + 1) End With Target.EntireRow.Delete Application.EnableEvents = True End If End Sub
Yes there would. Try this for manually entered dates. Right click the tab of the sheet where you are entering dates, select View code and paste in
Code:Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long If Target.Column = 3 Then Application.EnableEvents = False With Sheets(Format(Month(Target.Value), "00")) LR = .Range("A" & Rows.Count).End(xlUp).Row Target.EntireRow.Copy Destination:=.Range("A" & LR + 1) End With Target.EntireRow.Delete Application.EnableEvents = True End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
If Target.Column = 6 Then
Application.EnableEvents = False
With Sheets(Format(Month(Target.Value), "00"))
LR = .Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Target.Row & ":R" & Target.Row).Copy Destination:=.Range("A" & LR + 1)
End With
Target.EntireRow.Delete
Application.EnableEvents = True
End If
End Sub