Find fonksiyonu aramıyor

[ozgretmen]

Selam arkadaşlar,Find fonksiyonu hakkında bir sorum olacaktı.
aşağıdaki kod ile Sayfa1 de a1:a8 aralığında B1 deki değeri arayıp seçtirebiliyorum.Ama iş Sayfa1 deki B1 değerini Sayfa2 de A1:A8 aralığında aratıp seçtirmek istediğimde hata veriyor.Acaba dediğimi FİND fonksiyonu ile nasıl yapabilirim ?

Range("A1:A8").Find(Range("B1").Value, LookIn:=xlValues, LookAt:=xlWhole).Select

Olmayan Kod :

Sheets("Sayfa2").Range("A1:A8").Find(Sheets("Sayfa1").Range("B1").Value, LookIn:=xlValues, LookAt:=xlWhole).Select

Hata mesajı ise şöyle:
Range Sınıfının Select Yöntemi Başarısız.

 

[Tarkan VURAL]

yanıt

1004 seçim yapma hatası alıyorsunuz.
Buna şu kod geliştirilebilir.

Sub bul()
On Local Error Resume Next
10 Sheets("Sayfa2").Range("A1:A8").Find(Sheets("Sayfa1").Range("B1").Value, LookIn:=xlValues, LookAt:=xlWhole).Select
If Err.Number = 1004 Then
Sheets("sayfa2").Activate
Err.Clear
GoTo 10
End If
End Sub

ya da hata denetimine gerek kalmadan

Sub bul()
Sheets("sayfa2").Activate
Sheets("Sayfa2").Range("A1:A8").Find(Sheets("Sayfa1").Range("B1").Value, LookIn:=xlValues, LookAt:=xlWhole).Select
End Sub

 

[ozgretmen]

Teşekkürler Sayın Tarkan VURAL. İyi çalışmalar...

 

[Tarkan VURAL]

Teşekkürler Sayın Tarkan VURAL. İyi çalışmalar...

Size de...