Find Value of cell in another sheet
 

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

Find Value of cell in another sheet
 

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" wrote:

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

Find Value of cell in another sheet
 

Hi Mike

Thanks for your reply

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

Dave







"Mike H" wrote in message
...
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" wrote:

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

Find Value of cell in another sheet
 

Got it

c.EntireRow.Select

Thanks Mike


"DaveM" wrote in message
. uk...
Hi Mike

Thanks for your reply

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

Dave







"Mike H" wrote in message
...
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" wrote:

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