Find Value of cell in another sheet

[DaveM]

Hi

How can I copy the value (Which is a number formatted in "Special Codigo
Postal") from sheet1 cell F9.

Goto sheet2 and Find that value in Column A then Highlight that Row

Thanks in advance

Dave

 

[Mike H]

Hi,

Right click Sheet 2 sheet tab, view code and paste this in and run it

Sub stance()
Dim myrange As Range
lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set myrange = Range("A1:A" & lastrow)
For Each c In myrange
If c.Text = Sheets("Sheet1").Range("F9").Text Then
c.EntireRow.Interior.ColorIndex = 4
End If
Next
End Sub

Mike

 

[DaveM]

Hi Mike

Thanks for your reply

My apologizes I should of said "Select the row" when it finds the cell value

Dave

 

[DaveM]

Got it

c.EntireRow.Select

Thanks Mike

Hi Mike

Thanks for your reply

My apologizes I should of said "Select the row" when it finds the cell
value

Dave