Add to Cell Value based on another cell

[csrloddidadesigns]

Hello. New here. Requesting help on the following task. I need to add a value to the number in column D based on the value of column A. For example...

Before the VBA based on column A value, so if column A is like Q10, it will add $10 and if column A if like anything else, it will add $20. I've tried many iterations of if then else code found on here, but end up with no change or with a runaway code. Thanks in advance for you help.


Column A..............Column D
Q10 $10
A10 $10

After the VBA

Q10 $20
A10 $30

 

[alansidman]

a vba solution

Option Explicit


Sub AddMoney()
    Dim i As Long, lr As Long
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To lr
        If Range("A" & i) = "Q10" Then
            Range("D" & i) = Range("D" & i) + 10
        Else: Range("D" & i) = Range("D" & i) + 20
        End If
    Next i


End Sub

 

[csrloddidadesigns]

Thank you very much. It works perfectly.