Macro Find value & insert
 

Hi I need some code to look for names in column 3, which match name in
range a1, then if it does inserting value in column 4 from range b2.
Thats it !

Macro Find value & insert
 

Sub findNcpy()
Dim c As Range
For Each c In Range("C" & Cells(Rows.Count, 3).End(xlUP).Row)
If c = Range("A1").Value Then
c.Offset(0 2) = Range("B4").Value
End If
Next
End Sub

"wazzo" wrote:

Hi I need some code to look for names in column 3, which match name in
range a1, then if it does inserting value in column 4 from range b2.
Thats it !

Macro Find value & insert
 

Hi,

Right click your sheet tab, view code and past this in and run it

Sub marine()
lastrow = Cells(Rows.Count, "C").End(xlUp).Row
Set myrange = Range("C1:C" & lastrow)
For Each c In myrange
If c.Value = Range("A1").Value Then
c.Offset(, 1).Value = Range("B2").Value
End If
Next


Mike


"wazzo" wrote:

Hi I need some code to look for names in column 3, which match name in
range a1, then if it does inserting value in column 4 from range b2.
Thats it !

Macro Find value & insert
 

I'm sure you meant this or something similar :)

For Each c In Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)

Mike

"JLGWhiz" wrote:

Sub findNcpy()
Dim c As Range
For Each c In Range("C" & Cells(Rows.Count, 3).End(xlUP).Row)
If c = Range("A1").Value Then
c.Offset(0 2) = Range("B4").Value
End If
Next
End Sub

"wazzo" wrote:

Hi I need some code to look for names in column 3, which match name in
range a1, then if it does inserting value in column 4 from range b2.
Thats it !

Macro Find value & insert
 

Yes I did mean that. Mike. Thanks. Old age is catching up with me.
I had it right in my module for testing but neglected to correct the line
that I had priviously put on Note Pad to copy. Stuff happens:)

"Mike H" wrote:

I'm sure you meant this or something similar :)

For Each c In Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)

Mike

"JLGWhiz" wrote:

Sub findNcpy()
Dim c As Range
For Each c In Range("C" & Cells(Rows.Count, 3).End(xlUP).Row)
If c = Range("A1").Value Then
c.Offset(0 2) = Range("B4").Value
End If
Next
End Sub

"wazzo" wrote:

Hi I need some code to look for names in column 3, which match name in
range a1, then if it does inserting value in column 4 from range b2.
Thats it !