ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Ustayoda]

Merhaba
bu siteden yeniyim bir konuda yardıma ihtiyacım öncelikle macro konusunda sıfır bilgiye sahibim belki sizlerin aracılığınız ile birşeyler öğrenebileceğimi sanıyorum.
işyerimde kullandığım 1 excel tablom var.
Tablomda 27 sayfa var bu sayfalarda ctrl+F sonrasında seçenekler sekmesi ve oradan içinde: kısmına çalışma kitabı seçip arama istediğim veriyi yazıp sonrakini buldediğimde bana hangi sayfada var ise buluyor bu zaten excelin bir yeteneği.

Ben ise aynı tabloya 1 sayfa daha ekleyip buraya bir macro ile aramak istediğim veriyi yazıp o sayfaya gitmesini istiyorum.Böle bir şey olma imkanı varmı?
saygılar.

[Miraç CAN]

Sayfa ismi 1..29 olanlarda aranacaktır herhalde diye düşünerek kurguladım,
Ekte bulunan sayfayı mevcut sayfanıza ekleyerek (Taşı/Kopyala) deneyin. Umarım doğru anlamışızdır.

Not: Arama metodunu bilerek içeren olarak kullandım, tam eşleme olarak değiştirebilirsiniz.

[Ustayoda]

Selamlar bu dosya neden .bin uzantlı bunu nasıl eklicem excel içine acaba hiç bildiğim birşey değil.

[Miraç CAN]

Dosyayı tam indirdiğinizden emin misiniz? .7z dosyası, .bin değil.
Uzantıyı .rar olarak değiştirip dener misiniz?
Sorun çıkarsa .rar olarak eklerim, ya da .zip olarak, sizde hangisi var ise.

[Ustayoda]

Teşekkürler böle bir şey değil istediğim.
Benim tablomda 1 nolu tabloda sarı ara butonuna basıcaksınız size bir arama alanı gelicek o alana aramak isteğiniz veriyi yazıcaksınız bul dediğinizde aramayı o sayfalarda 1dahil ne kadar sayfa var ise orada bulucak
ve bulduğu sayfada verinin üstüne gelicek.
ilk yazımda yazdığım gibi (excelin kendi özelliği olan ctrl+F sonrasında seçenekler sekmesi ve oradan içinde: kısmına çalışma kitabı seçip arama istediğim veriyi yazıp sonrakini bul dediğimde bana hangi sayfada var ise buluyor)
böle birşey.

[Ustayoda]

Tekrar merhaba aradığım kod aynen aşağıdaki gibi ve işimi gördü.Saygılar Belki benim gibi bir arayan olur onada faydası olsun en azından.tabi böle bir şey istiyorsa şayet

Private Sub CommandButton2_Click()
Dim sht As Worksheet
Deger = InputBox("Değeri Girin")
BAŞTAN:
x = 0
For Each sht In Worksheets
If Not sht.Cells.Find(Deger) Is Nothing Then
x = 1
cevap = MsgBox(sht.Name & " sayfasında aranan bulundu. İgili sayfaya gidelim mi?" & vbNewLine & vbNewLine & _
"Hücreye Gitmek için EVET" & vbNewLine & _
"Aramaya Devam etmek için HAYIR" & vbNewLine & _
"SonlandırmaK için İPTAL", vbYesNoCancel, "ARAMA SONUCU")
If cevap = vbNo Then GoTo Devam1
If cevap = vbCancel Then Exit Sub
sht.Select
sht.Cells.Find(Deger).Select
Exit Sub
End If
Devam1:
Next
If x = 1 Then
cevap = MsgBox("Tüm sayfalar arandı." & vbNewLine & "Baştan başlamak istiyor musunuz?", vbYesNo, "ARAMAYA DEVAM EDİLSİN Mİ")
If cevap = vbYes Then GoTo BAŞTAN
Else
MsgBox "Aranan değer bulunamadı", , "ARAMA SONUCU"
End If
End Sub

[Miraç CAN]

Ben ise aynı tabloya 1 sayfa daha ekleyip buraya bir macro ile aramak istediğim veriyi yazıp o sayfaya gitmesini istiyorum.Böle bir şey olma imkanı varmı?
saygılar.

Talebinize istinaden yardımcı olmaya çalıştım,
Belirttiğiniz üzere aynı tabloya 1 sayfa daha ekleyip Arama alanına (C1) yine belirttiğiniz üzere aramak istediğim veriyi yazıp "Enter" tuşuna bastığınızda ya da hücreden çıkış yaptığınızda otomatik olarak Sayfa ismi ve adresler şeklinde listeler ve siz istediğiniz linke tıklayarak ilgili adrese yönlendirilirsiniz.

Bu sayede hangi ve kaç sayfada nerelerde bulunduklarını da topluca görme imkanı verir.
Bahsettiğiniz yerleşik arama iletişim kutusunda "Tümünü Bul" seçeneğini kullandığınızda olduğu gibi.

Çözümünü kendinizin bulduğuna sevindim, iyi günler.