Do Until Loop + Then GoTo Skip

[MatthewLane412]

Hello,

I am still quiet new to VBA. I am working with a spreadsheet that requires me to Divide one column by another (eg. G2/F2, G3/F3, G4/F4...).
I'm having trouble getting "Then GoTo" skip to work in my code. If a cell in column "G" or column "F" has the variable "$0.00", i would like to skip to the next row.

Sub Division()

Dim finRow As String
finRow = Sheet2.Range("A6500").End(xlUp).Row


Dim I As Long
I = 2
Do Until I = finRow
If Sheet2.Range("G" & I).Value = "$0.00" Then GoTo Skip
Sheet2.Range("H" & I).Formula = "=G" & I & "/F" & I
Sheet2.Range("J" & I).Formula = "=I" & I & "/F" & I


Skip:
I = I + 1


Loop


End Sub

I appreciate any and all help.

Thanks,
Matt

 

[JoeMo]

You are setting the value you want to cause a skip as the string "$0.00". If in fact that value is actually a number formatted as currency, then VBA will read it as 0.00 not "$0.00". So, replace that string with 0.00 and you should get a skip.

EDIT: Forgot to add that you can also fix your issue by changing this piece:

.Value = "$0.00" Then GoTo Skip

to this:

.Text= "$0.00" Then GoTo Skip

 

[Norie]

Try this.

Sub Division()
Dim finRow As String
Dim I As Long

    finRow = Sheet2.Range("A6500").End(xlUp).Row

    I = 2
    
    Do Until I = finRow
        If Sheet2.Range("G" & I).Value <> 0 And Sheet2.Range("F" & I).Value <> 0 Then
            Sheet2.Range("H" & I).Formula = "=G" & I & "/F" & I
            Sheet2.Range("J" & I).Formula = "=I" & I & "/F" & I
        End If
        I = I + 1
    Loop

End Sub

 

[MatthewLane412]

Thank you both.

Norie, I substituted your code for mine and everything works perfect.

Matt