Arama sonucunda sayfa no, satır no ve sütun no bilgilerini elde etmek

[disexcel]

Selam arkadaşlar,
Bir excel dosyasında çok sayıda çalışma sayfam var ve ben bir kelimeyi ya da değişkeni bütün bu sayfalarda aynı anda aratmak ve sonucunda; bulduğu sayfanın indexi, bulunduğu satırın ve sütunun numarasını değişken olarak elde etmek istiyorum.

Şu anda;

x = Worksheets(p).Cells.Find("deneme").Row
y = Worksheets(p).Cells.Find("deneme").Column
z = ?????????

kodlarıyla ilgili sayfadaki deneme yazan hücrenin satır ve sütun numarasını buluyorum ama önemli olan tek bir aramada bana z değişkenine sayfa numarasını da veriyor olması, yoksa bütün sayfaları döngüye sokup tek tek aramam gerekiyor ve aşırı derecede vakit kaybı oluyor.

Not:
Her sayfada veriler eşsiz (unique) durumdadır.
1. sayfada olan veri 58. sayfada da olabilir.

Şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Sanıyorum döngü kurarak her sayfada araştırmaktan başka şansınız yok. Aşağıdaki gibi bir kod oldukça hızlıda çalışacaktır.

Sub bul()
On Error Resume Next
For a = 1 To Sheets.Count
x = Sheets(a).Cells.Find("deneme").Row
y = Sheets(a).Cells.Find("deneme").Column
z = Sheets(a).Name
If x <> "" Then Exit Sub
Next
End Sub

 

[disexcel]

Ekte göndermiş olduğum penceredeki gibi bütün çalışma kitabında arama yapıp dönen sonuçları okuma şansımız olabilirmi acaba ? Ekteki örnekte yalnızca sayfa değişkenini okuyabilirsek olay çözülecek gibi, gerçi birden fazla sayfada bulma ihtimali de var ama bunu bulursak diğeride peşinden gelecektir sanırım..

 

[Levent Menteşoğlu]

Ekte bir örnek hazırladım inceleyin. Aranan verinin her sayfada sadece bir kez geçtiği kabul edilmiştir.

 

[disexcel]

Örneğiniz için çok teşekkürler ama mevcut durumda zaten bu örnekteki gibi döngü ile gerekli verileri her sayfayı gezerekten buluyorum.

Worksheets(p).Cells.Find("deneme").Row

koduna benzer bir şekilde,

Workbooks.............................Find("deneme").Row

ile başlayabilecek denemeler yaptım ama sonuca ulaşamadım bir türlü, çünkü ilgili özelliği yok "workbooks" un.
Aslında mantık çok basit, yani hali hazırda zaten excelde olan bir arama özelliği bu.Menüden tüm kitabı arayabiliyorsun fakat bunu makro olarak kaydetmiyor.Makro olarak kaydettirebilseydim kodları inceleyip mutlaka sonuca ulaşabilirdim sanırım.
Yine de herşey için çok teşekkürler, yeni birşeyler bulursanız şayet paylaşabilirseniz sevinirim.
Kolay gelsin...

 

[silka]

Levet bey benim bi sorum olacaktı aradığımız veriden sayfada 2 satırda varsa sadece birini buluyo bunu düzeltebilme imkanımız varmı peki

 

[Orion1]

Levet bey benim bi sorum olacaktı aradığımız veriden sayfada 2 satırda varsa sadece birini buluyo bunu düzeltebilme imkanımız varmı peki

Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/showthread.php?t=44152

 

[silka]

evren bey yalnız benim listeler çok uzun olduğu için çok kasıyo bunu düzeltebilme imkanımız varmı

 

[Orion1]

evren bey link yok

Şimdi bakın 7 numaralı mesajda.

 

[silka]

Levet bey benim bi sorum olacaktı aradığımız veriden sayfada 2 satırda varsa sadece birini buluyo bunu düzeltebilme imkanımız varmı peki

 

[Orion1]

Sayın Silka benim 7nci mesajda verdiğim linki inceledinizmi?

 

[silka]

inceledim ama o çok kasıyo çünkü benim elimdeki liste çok uzun levent beyin programı hızlı olduğu için onu tercih ettim. Fakat onda da sadece 1.veriyi buluyo aynı sayfada aynı isimli başka veri varsa onu bulmuyo lütfen siz uzmanlarımızdan yardım istiyorum

 

[Orion1]

inceledim ama o çok kasıyo çünkü benim elimdeki liste çok uzun levent beyin programı hızlı olduğu için onu tercih ettim. Fakat onda da sadece 1.veriyi buluyo aynı sayfada aynı isimli başka veri varsa onu bulmuyo lütfen siz uzmanlarımızdan yardım istiyorum

Bence kendi kodlarınıza uygulamadınız.
Çünkü o kodlar en hızlı çalışan kodlardı.

 

[Orion1]

Ayrıca Listbox'a verileri additem metodu ile değilde dizi yönetmi ile alıyor.
Bu demekki additem kağnı ise Dizi yöntemi jet uçağıdır.

 

[silka]

evren bey peki bütün çalışma kitabında değilde sadece 4 veya 5 sayfasında birden aratabilme imkanımız varmı yani hepsi deyince sadece o 4 ve 5 sayfayı içerecek

 

[Orion1]

evren bey peki bütün çalışma kitabında değilde sadece 4 veya 5 sayfasında birden aratabilme imkanımız varmı yani hepsi deyince sadece o 4 ve 5 sayfayı içerecek

O zaman aranacak sayfaları syafa üzerinde boş bir sütuna yazmak veya bir listboxa almak gerkecek .O listelenecelk sayfalara göre arma yapacak.

 

[silka]

evren bey benim için o şekilde düzenleme imkanınız varmı yoksa bana hangi kodları değiştireceğimi söyleyin ben değiştirmeye çalışayım.

 

[Orion1]

evren bey benim için o şekilde düzenleme imkanınız varmı yoksa bana hangi kodları değiştireceğimi söyleyin ben değiştirmeye çalışayım.

Benim verdiğim linkteki örnek dosya üzerinde ben değişiklği yapıp biraz sonra buraya eklerim.

 

[silka]

çok teşekkürler

 

[Orion1]

Aşağıdaki eklediğim linkteki son mesajda eklediğim dosyayı indiriniz.
Listbox'ta çoklu seçim yaparak istediğiniz sayfalarda arama yapabilirsiniz.
http://www.excel.web.tr/showthread.php?goto=newpost&t=44152