Error 1004

[MAND7841]

I am trying to create a column "H" that will display the values in column F unless F is empty. In such a case, the value from column E will be entered into column H, however I am new to using vba and am not sure how to fix this macro as it continues to fail on the first line "If Range("Fi").Value = Empty Then".
Any advice would be greatly appreciated!

Sub AdditionalColumn()
Dim i As Integer
i = 2


Do:
If Range("Fi").Value = Empty Then
Range("Hi").Value = Range("Ei").Value
Else: Range("Hi").Value = Range("Fi").Value

End If


i = i + 1

Loop

End Sub

 

[Joe4]

Welcome to the Board!

It is important to note that anything between double-quotes is treated as literal text. To incorporate the variable i, you would do it like this:

[COLOR=#333333]Range("F" & i)[/COLOR]

 

[MAND7841]

@Joe4 ,

Thank you for your reply!
I tried what you suggested and now I am getting an error that says:
"Run-time error '424':
Object required"

 

[Joe4]

Can you post your new code?

Also, be sure that there is an end to your loop, so you don't get caught in an infinite loop!
You cannot tell it to keep adding one without a stopping point.
We can help you with that if you can tell us the logic of how far down this should go.

 

[MAND7841]

@Joe4 ,
How would I end the loop whenever the data is complete?

Here is the updated code:

Sub AdditionalColumn()
Dim i As Integer
i = 2


Do:
If Range("F" & i).Value.Select = Empty Then
Range("H" & i).Value = Range("E" & i).Value
Else: Range("H" & i).Value = Range("F" & i).Value

End If


i = i + 1

Loop

End Sub