[Yardım]  Macro kullanarak sayfalar arasında arama yapma nasıl olur?

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Macro kullanarak sayfalar arasında arama yapma nasıl olur?

İleti#1)  Ustayoda » 13 Oca 2021 19:57

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Ustayoda
 
Kayıt: 13 Oca 2021 19:44
Meslek: Müşteri hizmetleri
Yaş: 43
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Karşıyaka

Cevap: Macro kullanarak sayfalar arasında arama yapma nasıl

İleti#2)  Miraç CAN » 14 Oca 2021 10:09

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 1009
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Macro kullanarak sayfalar arasında arama yapma nasıl

İleti#3)  Ustayoda » 14 Oca 2021 11:35

Selamlar bu dosya neden .bin uzantlı bunu nasıl eklicem excel içine acaba hiç bildiğim birşey değil.
Kullanıcı avatarı
Ustayoda
 
Kayıt: 13 Oca 2021 19:44
Meslek: Müşteri hizmetleri
Yaş: 43
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Karşıyaka

Cevap: Macro kullanarak sayfalar arasında arama yapma nasıl

İleti#4)  Miraç CAN » 14 Oca 2021 11:47

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.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 1009
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Macro kullanarak sayfalar arasında arama yapma nasıl

İleti#5)  Ustayoda » 14 Oca 2021 19:05

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.
Kullanıcı avatarı
Ustayoda
 
Kayıt: 13 Oca 2021 19:44
Meslek: Müşteri hizmetleri
Yaş: 43
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Karşıyaka

Cevap: Macro kullanarak sayfalar arasında arama yapma nasıl

İleti#6)  Ustayoda » 14 Oca 2021 19:55

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
Kullanıcı avatarı
Ustayoda
 
Kayıt: 13 Oca 2021 19:44
Meslek: Müşteri hizmetleri
Yaş: 43
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Karşıyaka

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Macro kullanarak sayfalar arasında arama yapma nasıl

İleti#7)  Miraç CAN » 15 Oca 2021 08:42

Ustayoda yazdı: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.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 1009
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe