VBA VLookup to not override data if run multiple times

[spared]

Hi all,

Long time reader, first time poster.

I am trying to implement a macro for a journal upload that has specific posting requirements. The VLookUp works as intended (returns the format of the journal entry - code below) but overrides any values that may have been entered after. Is it possible to have those lines skipped if the macro is run again? IE the end-user adds another GL after setting up their entry, the macro can be re-rerun and leave those cells with values as is.

Snip shows column E with the user input and column F after macro has been run with F12 updated. Desired output would be to have those cells remain intact and cells F13,17,18 etc. filled in if run again.

I have been Googling and saw a few of Floof's suggestions but I am not clever enough to modify them for my own needs since I'm still in the beginning stages of learning how to even write this!

Sub VLookUp()

    Dim Sheet1Ws As Worksheet, ListWs As Worksheet
    Dim ListLastRow As Long, Sheet1LastRow As Long, x As Long
    Dim DataRng As Range
 
    Set Sheet1Ws = ThisWorkbook.Worksheets("Sheet1")
    Set ListWs = ThisWorkbook.Worksheets("List")
 
    ListLastRow = ListWs.Range("A" & Rows.Count).End(xlUp).Row
    Sheet1LastRow = Sheet1Ws.Range("A" & Rows.Count).End(xlUp).Row
 
    Set DataRng = ListWs.Range("A2:H" & ListLastRow)
 
    For x = 2 To Sheet1LastRow
        On Error Resume Next
        Sheet1Ws.Range("F" & x).Value = Application.WorksheetFunction.VLookUp( _
            Sheet1Ws.Range("E" & x).Value, DataRng, 8, False)
 
 
    Next x
 
 
End Sub

Thank you for reading this and any help offered!!!!

 

[Snakehips]

@spared Welcome.
Is this what you are after? NB: Not tested.

Sub VLookUp()

    Dim Sheet1Ws As Worksheet, ListWs As Worksheet
    Dim ListLastRow As Long, Sheet1LastRow As Long, x As Long
    Dim DataRng As Range
 
    Set Sheet1Ws = ThisWorkbook.Worksheets("Sheet1")
    Set ListWs = ThisWorkbook.Worksheets("List")
 
    ListLastRow = ListWs.Range("A" & Rows.Count).End(xlUp).Row
    Sheet1LastRow = Sheet1Ws.Range("A" & Rows.Count).End(xlUp).Row
 
    Set DataRng = ListWs.Range("A2:H" & ListLastRow)
 
    For x = 2 To Sheet1LastRow
     
           On Error Resume Next
         'Only do if  F is blank
        If Sheet1Ws.Range("F" & x).Value = vbNullString Then
           Sheet1Ws.Range("F" & x).Value = Application.WorksheetFunction.VLookUp( _
               Sheet1Ws.Range("E" & x).Value, DataRng, 8, False)
        End If
 
    Next x
   
 Tidy up:
 On Error GoTo 0
End Sub

 

[spared]

@Snakehips Holy wow, thank you for your help!! I spent way too many hours googling and this seems much simpler than other solutions I saw.

Tested and worked on multiple adjustments. Truly, thank you!!!!

 

[Snakehips]

Great to hear! You are most welcome.