Can a macro help me, if so how would I set it up?

[figueroa419]

I have a lot of headstones that I need to catalog and having a macro move through the sheet for me will save me some time and clicks etc. All I need is for it to move to each cell that I want it to while allowing me to enter in the data then moving onto the next one. However my cells are not entered in order and sometimes some cells will not have ANY data entered into them (maybe the headstone doesn't have the death month or day but just the year or maybe there is no middle name).

So can I have a macro that just moves and doesn't input any data itself? Can it let me leave a cell empty (I can't enter anything into the cell)? Do I need to unhide columns when I record or run the macro?

Right now the way I do it is I enter the name in, then jump to the death date, then jump to the age column at the end which estimates the year of birth for me so I jump back to the birth section and enter the year it gave to me, then I head over to the inscription and notes columns then jump back to the beginning on the next line.

I tried googling this but I wasn't sure how to put this into words properly nor could I understand some sites enough to know if this would even be possible. Thanks!

 

[Logit]

Here is a very simple version of a database entry method that you can utilize for your scenario. Basic changes will need to be made to the
coding so it coincides with the data you want to enter in your project.

Study it ... mess with it ... (save a copy before you do) ... see how it works. Then you can apply it to your workbook.

A copy can be downloaded here : https://www.amazon.com/clouddrive/s...Y2XsY9w7N2pRFlA9WY?ref_=cd_ph_share_link_copy

Private Sub btnCancel_Click()   
    Me.Controls("txtDate").Value = ""
    Me.Controls("txtStart").Value = ""
    Me.Controls("txtEnd").Value = ""
    Me.Controls("txtCall").Value = ""
    Me.Controls("txtFreq").Value = ""
    Me.Controls("txtMode").Value = ""
    Me.Controls("txtPwr").Value = ""
    Me.Controls("txtMyRST").Value = ""
    Me.Controls("txtHisRST").Value = ""
    Me.Controls("txtName").Value = ""
    Me.Controls("txtCity").Value = ""
    Me.Controls("txtStateDX").Value = ""
    Me.Controls("txtComments").Value = ""
   
    Unload Me
    
End Sub


Private Sub btnOK_Click()


Dim UserForm As Object
Dim ws As Worksheet
Dim newRow As Long
    
    
   
    Set ws = Worksheets("Sheet1")
    
    newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
    ws.Cells(newRow, 1).Value = Me.txtDate.Value
    ws.Cells(newRow, 2).Value = Me.txtStart.Value
    ws.Cells(newRow, 3).Value = Me.txtEnd.Value
    ws.Cells(newRow, 4).Value = Me.txtCall.Value
    ws.Cells(newRow, 5).Value = Me.txtFreq.Value
    ws.Cells(newRow, 6).Value = Me.txtMode.Value
    ws.Cells(newRow, 7).Value = Me.txtPwr.Value
    ws.Cells(newRow, 8).Value = Me.txtMyRST.Value
    ws.Cells(newRow, 9).Value = Me.txtHisRST.Value
    ws.Cells(newRow, 10).Value = Me.txtName.Value
    ws.Cells(newRow, 11).Value = Me.txtCity.Value
    ws.Cells(newRow, 12).Value = Me.txtStateDX.Value
    ws.Cells(newRow, 13).Value = Me.txtComments.Value
 
    
    Me.Controls("txtDate").Value = ""
    Me.Controls("txtStart").Value = ""
    Me.Controls("txtEnd").Value = ""
    Me.Controls("txtCall").Value = ""
    Me.Controls("txtFreq").Value = ""
    Me.Controls("txtMode").Value = ""
    Me.Controls("txtPwr").Value = ""
    Me.Controls("txtMyRST").Value = ""
    Me.Controls("txtHisRST").Value = ""
    Me.Controls("txtName").Value = ""
    Me.Controls("txtCity").Value = ""
    Me.Controls("txtStateDX").Value = ""
    Me.Controls("txtComments").Value = ""
  
    
    ActiveWorkbook.Save
    MsgBox "QSO entry is successful...", vbExclamation, "Congratulations !"
    
End Sub