Sayfalarda Arama Yapma

[aliballi]

350 sayfalı çalışma kitabımda aramak istediğim kelimeyi girip sadece "c4" hücrelerinde aramasını istiyorum ve bulduğunda o sayfayı açmasını istiyorum..
bununla ilgili nasıl bir kod yazmalıyım

yardımcı olursanız sevinirim.. teşekkürler şimdiden

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

sub ara()
sor=inputbox("aranacak veriyi yazınız.")
if sor="" then exit sub
for a=1 to sheets.count
if sheets(a).[c4]=sor then
sheets(a).select
exit sub
end if
next
end sub

 

[aliballi]

Sayin Leventm,

Öncelİkle Çok TeŞekkÜr Ederİm.. İŞİme Yaradi
Ama, Mevcut Verİyİ Bulmasi İÇİn Tamamini Gİrmem Gerekİyor.. Acaba O Verİ İÇersİnde Aramasi İÇİn Hangİ Kodu Eklemelİyİm

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub ara()
sor = InputBox("aranacak veriyi yazınız.")
If sor = "" Then Exit Sub
For a = 1 To Sheets.Count
If InStr(1, Sheets(a).[c4], sor) > 0 Then
Sheets(a).Select
Exit Sub
End If
Next
End Sub

 

[aliballi]

Çok TeŞekkÜr Ederİm İlgİnİze Ve EmeĞİnİze..