input box, row locate

[willsnake]

Hi again,

I am here again seeking help...

What I am trying to accomplish is that, I wish to show an input box where I will input text or number, then a macro will locate the range and identify the row number, then there will be a code for that certain row. Then it will loop until there is no more text or number to locate...

Thnx in advance...

 

[BrianJN1]

Since I haven't had a reply from you I've compile the following code:

PassRow()
Dim mySeek As Long
Dim a As Long
Dim lastrow As Long
Dim rowFound As Long
lastrow = Cells(Rows.Count, "C").End(xlUp).Row
mySeek = InputBox("Enter value to seek")
For a = 1 To lastrow
If Range("C" & a).Value = mySeek Then
Range("D" & a).Value = a
'rowFound = a
'NEWSUB
End If
Next
End Sub

I placed a small picture across the range of A1:B5 (or thereabouts).
I right-clicked the image and assigned the macro.

My data list was consecutive numbers. I went back and changed some so that I had replicated data.
When a replica was found its row number was recorded in D.
As you really don't want to see that value I've offered the variable rowFound which will then be passed to your next macro.
To use this for your purposes remove Range("D" & a).Value = a and the apostrophes that comment the next two rows.

 

[willsnake]

sorry for not replying... I was busy during weekend...

 

[willsnake]

I will try to use this...

Thank you sir...

 

[willsnake]

BTW, about

For a = 1 To lastrow

is the last refers to the last row of an excel table, or the last row in excel which is 1,048,576?

 

[willsnake]

please ignore my last reply...

 

[BrianJN1]

Lastrow is the last row that has data in Col C.

 

[willsnake]

Hi,

good day... the macro worked great...

Thank you...

 

[BrianJN1]

Thank you. Glad we have been able to satisfy.
Have a good day.