Look up value based on one cell then write data to another sheet........

[cizzett]

OK so I have many many scripts that do similar but i am drawing a blank on this one. What I am trying to do is:

A name will be in range c1 of sheet 1, I want to use that to find the matching name in sheet two then get the data from sheet one B40 and copy the data to sheet two column c of the row that contains the matching name. The names are in column A of sheet 2.

I know this is simple but I am just completely drawing a blank right now so any guidance to get me back on track is greatly appreciated.

 

[hernantorres23]

Hi, an idea, adapt this for your project.

Book1
	A	B	C	D
1			Sheet2	This is sheet, from will I take the value in B1 (Sheet2!B1)
2
3			Inventory	This cell show value taken from Sheet2!B1( in this case I have the word "Inventory" in this cell)
4
5
6
7	OK so I have many many scripts that do similar but i am drawing a blank on this one. What I am trying to do is: A name will be in range c1 of sheet 1, I want to use that to find the matching name in sheet two then get the data from sheet one B40 and copy the data to sheet two column c of the row that contains the matching name. The names are in column A of sheet 2. I know this is simple but I am just completely drawing a blank right now so any guidance to get me back on track is greatly appreciated.
Sheet1

Cell Formulas
Range	Formula
C3	C3	=IFERROR(INDIRECT("'"&$C$1&"'!B"&1+A15),"")

 

[Fluff]

Maybe

Sub cizzett()
    Dim Fnd As Range
    With Sheets("Sheet1")
        Set Fnd = Sheets("Sheet2").Range("A:A").Find(.Range("C1").Value, , , xlWhole, , , False, , False)
        If Not Fnd Is Nothing Then Fnd.Offset(, 2).Value = .Range("B40").Value
    End With
End Sub

 

[cizzett]

Maybe

Sub cizzett()
    Dim Fnd As Range
    With Sheets("Sheet1")
        Set Fnd = Sheets("Sheet2").Range("A:A").Find(.Range("C1").Value, , , xlWhole, , , False, , False)
        If Not Fnd Is Nothing Then Fnd.Offset(, 2).Value = .Range("B40").Value
    End With
End Sub

Fluff, as always you are one insanely amazing genius.

This works perfectly and was easy to manipulate for a few other lines.

Thanks, already integrated.

 

[Fluff]

You're welcome & thanks for the feedback