Write a value in certain column if the payroll number is found - Excel VBA

[CakzPrimz]

Hi,

I have a combobox1 to input or call the list of employee's ID number. What I need is:
If I select/type one of the ID number of the list and ID number was found and I hit OK button then a word "resign" should add at column Q (column [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1 7[/URL] ), right exactly at the row where the employee's ID were found. The ID number is in column A (column #1 ). The name of the sheets is "employ".

Thanks in advance.

 

[Dryver14]

As you can see I have written a separate sub for this, you can pick from it what you need essencially I have allocated the value of the combobox to a variable and then looped to look for it.

Someone else may be able to do this without looping,

This will not work as a separate sub.

Sub FillDataIn()


Dim a As Long
Dim i As Long
Dim LastRow As Long


a = ComboBox.Value


LastRow = Worksheets("Employ").Cells(Rows.Count, 1).End(xlUp).Row


    For i = 1 To LastRow
    
    If Worksheets("Employ").Cells(i, 1) = a Then Cells(i, 17).Value = "resign"


    Next i


End Sub

 

[CakzPrimz]

Dear Dryver14,

Thanks for your quick response. It works well and I am very happy to apply the code in mine. Thanks so much.
I really appreciate it.

Problem solved !!!

Best regards,

 

[Dryver14]

Good stuff,

Glad to be of service