I have sheets with 5 to 9 column tables where we record production data. I have the below code, which works well, to make data entry easy. I wish to add code that will print a row's data when the last column has data entered. I have been looking on the posts but can find nothing so far that I can use as a good example. Thanks in advance for any help.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim D As Range, E As Range, Inte As Range, r As Range
Set D = Range("D:D")
Set Inte = Intersect(D, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Inte
r.Offset(0, 1).Value = Date
Next r
Application.EnableEvents = True
Selection.Offset(1, -4).Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim D As Range, E As Range, Inte As Range, r As Range
Set D = Range("D:D")
Set Inte = Intersect(D, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Inte
r.Offset(0, 1).Value = Date
Next r
Application.EnableEvents = True
Selection.Offset(1, -4).Select
End Sub
