Need help with a Find macro

[ATavakolian]

Hello:

I have spread sheet with 6 columns, I need a dialog box to get a user input and find it in column D once found on the same row take cell E (numeric) and increment it by 1. Loop this until user input is ""

Thanks

 

[VoG]

Try this

Sub IncE()
Dim Found As Range, s As String
Do
    s = InputBox("Enter search value")
    If s = "" Then Exit Sub
    Set Found = Columns("D").Find(what:=s, LookIn:=xlValues, lookat:=xlWhole)
    If Found Is Nothing Then
        MsgBox "Not found", vbInformation
    Else
        With Found.Offset(, 1)
            .Value = .Value + 1
        End With
    End If
Loop
End Sub

 

[ATavakolian]

Thank you very much