- Katılım
- 12 Ağustos 2005
- Mesajlar
- 26
Bulursa çalışıyor, ama bulamazsa beni uyarsın istiyorum. Yapamadım.
Kodlar aşağıda
Sub BUL()
p = ActiveCell.Row
r = Worksheets("sayfa3").Columns(4).Find(Sheets("sayfa1").Cells(p, 2)).Row
Sheets("sayfa3").Select
Rows(r).Select
End Sub
Teşekkürler
Kodlar aşağıda
Sub BUL()
p = ActiveCell.Row
r = Worksheets("sayfa3").Columns(4).Find(Sheets("sayfa1").Cells(p, 2)).Row
Sheets("sayfa3").Select
Rows(r).Select
End Sub
Teşekkürler