Find Row Number and Copy it to Adjacent Cell

[asqw]

i hv two sheets, sheet1 has some data in j2 to j27 and they hv some value in l2 to l27. i need to lookup each cell value of column J into sheet2 column E. if match find row and past value of sheet1 column L into sheet2 column H. new to vba. i write some code but........Untitled.png

[6StringJazzer]

You have provided just bits and pieces of the information needed to answer your question.

I assume you are showing us where the code stops for a runtime error. When showing an error, always show the error message.

With the information you have provided my only guess is that Rng1 is Nothing, meaning that strToFind was not found in Rng. What do you want the code to do if the string is not found?

For a more complete diagnosis, please attach your file with instructions for how to run your macro. The paper clip icon does not work for attachments. To attach a file, under the text box where you type your reply click the Go Advanced button. On the next screen scroll down and click on Manage Attachments, which will show a pop-up window to Select and Upload a file. Then close the window.

[asqw]

Hi,
attached file as u ask for

[asqw]

Hi
i hv already post the file

[Akuini]

You should Dim Rng1 as Range not variant.

[asqw]

i did but same result Error 91

[Akuini]

I can't test Sub EditRate because sheets ProData don't exist in your sample file.

[asqw]

sorry,
i attach again

[Akuini]

If 'strToFind' has no match then Rng1 will be nothing, that's what cause the error.
Try this:

Please Login or Register  to view this content.

[nigelog]

Your two Budweiser product names on data sheet are spelled differently therefore cannot be found

[asqw]

Thank You
what would be if Rng1 is FALSE then display MsgBox and continu with Next

[Akuini]

Try:

Please Login or Register  to view this content.