If Found Then

[billandrew]

Need assist If value in Column T is found in Column H copy value adjacent to Column Z range A1

 

[RasGhul]

Hi Bill,

Are you expecting on value or many?

 

[Michael M]

Do we need to search all values in column T ?
Can you be a little clearer on this

copy value adjacent to Column Z range A1

??

 

[billandrew]

Yes All values in Column T if exist in Column H copy Column L value to Column Z

Thanks guys.

Example

[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD]Column H[/TD]
[TD]Column L[/TD]
[TD]Column T[/TD]
[/TR]
[TR]
[TD]North West[/TD]
[TD]200[/TD]
[TD]West[/TD]
[/TR]
[TR]
[TD]West[/TD]
[TD]300[/TD]
[TD]North[/TD]
[/TR]
[TR]
[TD]South[/TD]
[TD]400[/TD]
[TD]South[/TD]
[/TR]
[TR]
[TD]South West[/TD]
[TD]500[/TD]
[TD]Pacific[/TD]
[/TR]
[TR]
[TD]Pacific[/TD]
[TD]250[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]South Pacific[/TD]
[TD]100[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]North[/TD]
[TD]450[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Michael M]

Untested

Sub TEST()
Dim TRange As Range, HRange As Range, lz As Long
Dim lt As Long, lh As Long, tcell As Range, hcell As Range
lt = Cells(Rows.Count, "T").End(xlUp).Row
lh = Cells(Rows.Count, "H").End(xlUp).Row
lz = Cells(Rows.Count, "Z").End(xlUp).Row
    Set TRange = Range("T2:T" & lt)
    Set HRange = Range("H2:H" & lh)
For Each tcell In TRange
    For Each hcell In HRange
        If hcell.Value = Range("T" & (tcell.Row)).Value Then
            Range("Z" & lz).Value = Range("L" & (hcell.Row)).Value
        lz = Cells(Rows.Count, "Z").End(xlUp).Row + 1
        End If
    Next hcell
Next tcell
End Sub

 

[billandrew]

Thank You very much

Modified a touch to work for my data.

lz = Cells(Rows.Count, "Z").End(xlUp).Row

to

lz = Cells(Rows.Count, "Z").End(xlUp).Row + 1

 

[Michael M]

....