Here is what I am trying to do:
https://drive.google.com/file/d/0Bz8...it?usp=sharing
I know the CountA formula to be =Counta(A1:AXX) will do what I want as I used it in the pages above. I've been trying to come up with the code that will automatically place that formula in the corresponding "H" row of the last line in the page. I've tried going off of some other page break code but can't seem to get it to work. Here is the code Im currently using:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range("A2:A1000"), .Cells) Is Nothing Then
Application.EnableEvents = True
If IsEmpty(.Value) Then
.Offset(0, 6).ClearContents
Else
With .Offset(0, 6)
.NumberFormat = "dd mmm yyyy hh:mm:ss"
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
If Not Target.Cells.CountLarge < 1 Then
If Not Intersect(Target, Columns(1)) Is Nothing Then
Target.Offset(, 1).Select
ElseIf Not Intersect(Target, Columns(2)) Is Nothing Then
Target.Offset(, 1).Select
ElseIf Not Intersect(Target, Columns(3)) Is Nothing Then
Target.Offset(, 1).Select
ElseIf Not Intersect(Target, Columns(4)) Is Nothing Then
Target.Offset(, 1).Select
ElseIf Not Intersect(Target, Columns(5)) Is Nothing Then
Target.Offset(, 1).Select
ElseIf Not Intersect(Target, Columns(6)) Is Nothing Then
Target.Offset(1, -5).Select
End If
End If
End Sub
This is a call log I made for my job. Whenever data is input to column A the time-stamp will reflect in column G automatically. If the entry is removed from Column A, the time stamp is then removed from column G. Then when you press "Enter" or "Tab" it will move to the next column instead of row. Once it gets to Column F, pressing enter or tab will return you to A column in the next row. It's very handy and this last little thing would make it perfect. Thanks!
Bookmarks