Bul ve satır seç

[mesutaygun70]

c5 hücresini sayfa 1 de arayıp bulduğu satırın B ile IX arasını seçmesini nasıl yapabiliriz yardım edebilirmisiniz.

 

[YUSUF44]

Aramanın hangi sütunda olacağını belirtmediğiniz için ben A sütunu olarak ayarladım, deneyiniz:

Sub seç()
For i = 1 To Cells(Rows.Count, "A").End(3).Row
If Sheets("Sayfa1").Cells(i, "A") = [C5] Then
Sheets("Sayfa1").Range("B" & i & ":IX" & i).Select
Exit Sub
End If
Next
End Sub

 

[Orion1]

Alternatif.
Aranacak yer sayfa1 de A sütunu.

Sub bul59()
Dim k As Range, sonsat As Long
sonsat = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
Set k = Sheets("Sayfa1").Range("A1:A" & sonsat).Find(Range("C5").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Sheets("Sayfa1").Select
    Range("B" & k.Row & ":IX" & k.Row).Select
End If
End Sub