Hello,
I use the following to copy data on change to another worksheet, on the current worksheet D is a category that I need to copy cell E to sheet1 where the categorys broken down into columns D:L
Thank you
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Cat
End If
End Sub
Sub Cat()
Dim irow As Long
irow = ActiveCell.Row
Range(Cells(irow, "A"), Cells(irow, "E")).Copy
Sheets("Sheet1").Select
Range("A" & Rows.Count).End(xlUp).EntireRow.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
End Sub
I use the following to copy data on change to another worksheet, on the current worksheet D is a category that I need to copy cell E to sheet1 where the categorys broken down into columns D:L
Thank you
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
Cat
End If
End Sub
Sub Cat()
Dim irow As Long
irow = ActiveCell.Row
Range(Cells(irow, "A"), Cells(irow, "E")).Copy
Sheets("Sheet1").Select
Range("A" & Rows.Count).End(xlUp).EntireRow.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
End Sub