Bir hücreye girilen değeri bir sütunda aratma

[kapgan]

bir hücreye = a1
girdiğim değeri
b sütununda arasın bulduğu hücreyi seçsin istiyorum

lütfen yardım edin teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim alan As Integer
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
alan = Cells(65536, "b").End(xlUp).Row
Set bul = Range("b2:b" & alan).Find([a1], , xlValues, xlWhole)
If Not bul Is Nothing Then
Cells(bul.Row, "b").Activate
End If
End Sub

 

[kapgan]

teşekkür ederim