Find cell and enter data

[KTELANG]

Hello Everybody

I am trying to write a macro to get data from sheet "2" and enter it on the
corresponding cell in the sheet "SL". Please find the attached xls in 3rd Quote

The problem which I am facing is there is no consitency in the results
for every run of the macro. I will appreciate responses from experts on this
forum.
I am low/ mid level vb programmer.

Please help.

[davegugg]

It would be helpful if you could describe your problem a little better. I see no relation between the two sheets in your sample workbook, and I can't tell what your code is trying to do.

[KTELANG]

It would be helpful if you could describe your problem a little better. I see no relation between the two sheets in your sample workbook, and I can't tell what your code is trying to do.

Thanks for the reply
Sorry for the confusion.
My bad, I attached a wrong sheet please find the new attachment.

The sheet "2" has set of columns 1st has names say SB1-01 which is addressed with "strToFind" parameter in the macro
and 2nd is value which is "copycell"
I want the macro to go to sheet "SL" and then look for the "strToFind"
and enter the value "copycell" next to it

Thanks

[davegugg]

Does it have to be a macro, or can you use a VLOOKUP instead?

Please Login or Register  to view this content.

[KTELANG]

Does it have to be a macro, or can you use a VLOOKUP instead?

Please Login or Register  to view this content.

Thanks for that suggestion
but it has to be a macro as similar to sheet "2"
there will be 100 other sheets coming in and
the values will be getting updated in "SL"

if you had a chance to take a look the
pastecell.Value = pastecell.Value + copycell..
will update the values

Thanks

[KTELANG]

Thanks for that suggestion
but it has to be a macro as similar to sheet "2"
there will be 100 other sheets coming in and
the values will be getting updated in "SL"

if you had a chance to take a look the
pastecell.Value = pastecell.Value + copycell..
will update the values

Thanks

PLease can you comment about the

Set uRange = ActiveSheet.Range("A1:A900")
Set Findtxt = uRange.Find(strToFind)

in the code.. I am not sure I have written in right

[davegugg]

You need to set the uRange on the sheet you are searching, not the active sheet:

Please Login or Register  to view this content.

[KTELANG]

PLease can you comment about the

Set uRange = ActiveSheet.Range("A1:A900")
Set Findtxt = uRange.Find(strToFind)

in the code.. I am not sure I have written in right

Thanks for your help
I figured out that