if then else question

[El_Danzo]

Hi, everything I used to know about VBA I have forgotten, so this simple task is causing me a headache.
I want to populate the value of B3 incrementally from the cell right above it IF the value of A3 is the same as A2. ELSE populate as .001 and repeat for B4,
and loop until a blank cell is reached.

 

[JazzSP8]

Hi

You didn't state what you wanted to increase by so I used 1

Sub IncreaseB()
LastRow = Range("A" & Rows.Count).End(xlUp).Row

For x = 3 To LastRow

    If Cells(x, "A").Value = "" Then Exit For

    If Cells(x, "A").Value = Cells(x - 1, "A").Value Then
        Cells(x, "B").Value = Cells(x - 1, "B").Value + 1
    Else
        Cells(x, "B").Value = "0.01"
    End If
Next x

End Sub

You could also use a formula;

=IF(A3=A2,B2+1,0.01)

 

[footoo]

Sub IncreaseB()
With Range([B3], Cells(Rows.Count, "A").End(xlUp)(1, 2))
    .Formula = "=IF(A3=A2,B2+1,0.01)"
    .Value = .Value
End With
End Sub