hücre değerine göre başka sayfada arama

[honestguy25]

selamlar bir kaç saatir sitede arıyorum bulamadım tekrar olduysa pardon..

örnek sayfada alt alta gelecek butonlar aynı satırdaki H sütunu değerine göre "bul" sayfasında arayıp bulacak. mümkünmüdür.... teşekkürler..

 

[honestguy25]

yokmudur bir cevapp...teşekkürler

 

[tahsinanarat]

Bence verdiğiniz örnek dosyasını bir daha gözden geçirin, aranacak değerler bul sayfasının neresinde yer alıyor, bulduğunda hangi sutundaki değeri veya değerleri nereye getirecek, ben şahsen anlayamadım.

 

[honestguy25]

Hocam şu şekilde çözdüm...... ama başka sorun belirdi....

Sub fisdenbulma()
Dim Anch As Variant
On Error GoTo notfound
Anch = ActiveCell.Value
Sheets("Bibliography").Activate
Cells.Find(Anch).Activate
Exit Sub
notfound:
MsgBox "İstenilen veri Bibliographyada bulunamadı"

End Sub


Acaba Bibliography sayfasında sadece (C) sütünu içinde ara.. nasıl yapabilriz

 

[tahsinanarat]

Sorunun özünü geç algıladık

Sub fisdenbulma()
Dim Anch As Variant
On Error GoTo notfound
Anch = ActiveCell.Value
Sheets("Sayfa1").Activate
Range("c:c").Find(Anch).Activate
Exit Sub
notfound:
MsgBox "İstenilen veri Bibliographyada bulunamadı"
End Sub

 

[honestguy25]

teşekkürler..... bazen en basit şeyler uğraştırıyor..