Auto - input box/date timestamp

Registration date
Thursday July 16, 2015
Last seen
July 17, 2015

I am creating an inventory spread sheet. I am using Excel 2013. I have data from A2:O1243. I have several macros running. My macros are as follows:

Private Sub CommandButton21_Click()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter an Object ID")
If Trim(FindString) <> "" Then
With Sheets("Sheet1").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
If Not Rng Is Nothing Then
Application.Goto Rng, True
MsgBox "Nothing found"
End If
End With
End If
End Sub
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Static rr
Static cc

If cc <> "" Then
With Columns(cc).Interior
.ColorIndex = xlNone
End With
With Rows(rr).Interior
.ColorIndex = xlNone
End With
End If

r = Selection.Row
c = Selection.Column
rr = r
cc = c

With Columns(c).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows(r).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(0, 1).Select
ElseIf Target.Column = 4 Then
Target.Offset(1, -16).Select
End If
End Sub

Using the coding above; the input box's data is searched for through column A. Once the value is found, the column and row is highlighted. I am trying to make a macro to once the value is found in column A; to jump to the last cell in the table for that row and input the current date/time stamp. then have the input box appear again without the prompt for the command button.

Is this possible? If not; are there any alternative methods?

Thank You for any assistance given.

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!