VBA Vlookup only if cell in blank

[VbaHell]

Hello all

I am trying to do the following

If the cell range "K" is blank complete a Vlookup
If the cell range "K" has data in do not perform a Vlookup so that the data remains in the cell, any help on this would be great please.

With Range("K1:K" & LastRow)
        .FormulaR1C1 = "=VLOOKUP(RC[-10],Data!C[-10]:C[3],14,FALSE)"
        .Value = .Value
    End With

This is some code that two of our Excel forum members helped me with for another issue which is similar but works on the cell in the sheet called "Data" being blank and I have tried to modify this

With Sheets("Data")
        arr = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 14).Value
    End With
    
    For x = LBound(arr, 1) To UBound(arr, 1)
        dic(arr(x, 1)) = arr(x, 14)
    Next x
    
    With Sheets("Comments")
        arr = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 11).Value
        For x = LBound(arr, 1) To UBound(arr, 1)
            If dic.exists(arr(x, 1)) Then arr(x, 11) = dic(arr(x, 1))
        Next x
        
        .Cells(1, 11).Resize(UBound(arr)).Value = Application.Index(arr, 0, 11)
    End With

 

[Fluff]

Glad to help & thanks for the feedback

 

[VbaHell]

Not sure if I use this existing thread or start a new one but I still seem to have a problem with this code working correctly.

What I am trying to do is look in the sheet "Comments" in column "K" and if the cell is blank complete the Vlookup from the Data sheet, if the cell in column "K"has a value Stop, do not complete the vlookup and leave the existing data.

at the moment this is overwriting the data

With Sheets("Data")
        arr = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 14).Value
    End With
    
    For x = LBound(arr, 1) To UBound(arr, 1)
        dic(arr(x, 1)) = arr(x, 14)
    Next x

    With Sheets("Comments")
        arr = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 11).Value
        For x = LBound(arr, 1) To UBound(arr, 1)
        If dic.exists(arr(x, 1)) Then arr(x, 11) = CLng(dic(arr(x, 1)))
        Next x
   
  .Cells(1, 11).Resize(UBound(arr)).Value = Application.Index(arr, 0, 11)
   
End With

 

[Fluff]

There seem to be a bit missing

With Sheets("Comments")
    arr = .Cells(1, 1).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 11).Value
    For x = LBound(arr, 1) To UBound(arr, 1)
        If arr(x, 11) = "" Then
           If dic.exists(arr(x, 1)) Then arr(x, 11) = CLng(dic(arr(x, 1)))
        End If
    Next x
    
    .Cells(1, 11).Resize(UBound(arr)).Value = Application.Index(arr, 0, 11)
End With

 

[VbaHell]

Sorry Fluff

I am stupid, I can see now why it did not work

Thanks again

 

[Fluff]

probably my fault not yours, as that part was missing from my post#9