If IsEmpty not returning desired results

[tmyers]

I am doing a simple for loop to loop through a range and check if a cell is empty and if it is, copy data in a cell on the row, paste it in another column one on the same row then delete the content in the cell it was copied from.

The loop runs, but never seems to trigger true on the if statement.

    For X = LastRow To 1 Step -1
        If IsEmpty("G" & X) Then
            Cells(X, 2).Text.Copy
            Cells(X, 4).Paste
            Cells(X, 2).Delete
        End If
    Next X

I have changed to if that cell = null and cell = "" and it still wont trigger. I have gone through and made sure the cells in question were empty as well and no change. What am I missing?

 

[arnelgp]

you missed Range():

If IsEmpty(Range("G" & X).Value)

 

[Minty]

Excel doesn't really understand Null as potential cell contents, so that won't work.
Try
IsBlank()

 

[tmyers]

Ah I see. Now it is entering the if statement, but is throwing an object required answer. Hm.

 

[arnelgp]

there is no IsBlank() in Excel VBA?

 

[tmyers]

Changed the method I was using to copy and it is working now.
Switched it to:

    For X = LastRow To 1 Step -1
        If IsEmpty(Range("G" & X).Value) Then
            Range("B" & X).Copy Range("D" & X)
            Cells(X, 2).Delete
        End If
    Next X