Microsoft Office Forums - View Single Post - IF adjacent cell empty Copy from Other Column

ChrisOK · 03-07-2018, 11:08 PM

Like this? Changing this row:

Code:

If Cells(i, 9).Value = "<>" Then Cells(i, 9).Value = Cells(i, 5).Value

To this?

Code:

If Cells(i, 9).Value = <>"" Then Cells(i, 9).Value = Cells(i, 5).Value

It does not seem to be acceptable -- it turns red

Code:

Sub CopyandPaste()
    Dim LR As Long
    Dim i As Long
    With ActiveSheet
        LR = .Range("I" & Rows.Count).End(xlUp).Row
        For i = 2 To LR
            If Cells(i, 9).Value =  <>"" Then Cells(i, 5).Value = Cells(i, 9).Value
        Next i
    End With
    Columns(9).NumberFormat = "mm/dd/yyyy"
End Sub

IF Col I (9) is NOT empty, THEN copy/paste whatever is sitting in Col I (9) into adjacent Col E (5)