VBA Vlookup help

[FootBallBat]

Im looking for a VBA code that works like Vlookup.
Lookup data= A:B
(D1) is a dropdown list of A:A
(E1) is a manual input of a number.
When the Macro is ran, I want it to search for (D1) in column A:A and increase the amount in the corresponding B:B column by the amount in (E1).

A	B	C	D	E
Bronze	12		Gold	3
Silver	6
Gold	10
Platinum	4

<tbody>
</tbody>

 

[mohadin]

Hi
What about

Sub TEST()
    With Range("A1:B4")
        For Each C In Range("A1:A4")
            If C = Range("d1") Then
                C.Offset(, 1) = C.Offset(, 1) + Range("e1").Value
            End If
        Next C
    End With
End Sub

 

[FootBallBat]

Hi
What about

Sub TEST()
    With Range("A1:B4")
        For Each C In Range("A1:A4")
            If C = Range("d1") Then
                C.Offset(, 1) = C.Offset(, 1) + Range("e1").Value
            End If
        Next C
    End With
End Sub

Works great Thank you very much

 

[mohadin]

You are very well come and thank you for the feedback
Be happy

 

[mohadin]

Sub TEST()
        For Each C In [A1:B4]
            If C = [D1] Then
                C.Offset(, 1) = C.Offset(, 1) + [E1].Value
            End If
        Next C
End Sub