Can Save be added to this!
Can Cntrl-S be added to this script so each time it will save as well?
Thanks for any help...Bob
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NextRow As Long
If Target.Address = "$E$162" Then
With Sheets("ChequesOut")
If .Range("C1").Value = "" Then
NextRow = 1
Else
NextRow = .Range("C" & Rows.Count).End(xlUp).Offset(1,
0).Row
End If
Me.Range("b162,E162").Copy _
Destination:=.Cells(NextRow, "C")
With .Cells(NextRow, "A")
.Value = Now 'date ???
.NumberFormat = "dd/mmm/yy " 'dd/mm/yyyy ????
End With
End With
Me.Range("B162").Select
End If
End Sub
|