Multipage textboxlarla veri arama..

Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Merhaba,

Ekte tamamen bu siteden faydalanarak yaptığım bir program var. Bu yüzden öncelikle herkese teşekkür ederim. Hakkınızı helal edin.

Program bir Multipage içeriyor. Bu Multipage'de 4 farklı sayfa var ve her biri excel de farklı bir veri alanını gösteriyor. Her sayfada 8 farklı textbox var ve bu txtbox'larla kısıtları daraltarak arama yaptırmak istiyorum.

Örnek dosyada sadece 2006 sayfasında arama yapıyor. Diğer sayfalarda nasıl arama yaptırabileceğim konusunda yardımlarınızı rica ediyorum.

Şimdiden teşekkür ederim.
Hakkınızı helal edin.
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Dosya boyutu fazla geldiği için az önceki mesajda gönderemedim.

Dosya ekte.
Yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Günaydın.
Yardım edebilecek kimse yok mu?
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,759
Excel Vers. ve Dili
Excel 2019 Türkçe
Kod:
Set sr = Sheets("2006")
satırını aşağıdaki satır ile değiştirip dener misiniz ?
Kod:
Set sr = ActiveSheet
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Sayın hamitcan,

Yardımın için teşekkür ederim. Fakat her Multipage sayfasında Listview'lar da farklı olduğu için (yani toplam 4 sayfa için 4 farklı isimde Listview olduğu için-2006 için Listview1, 2007 için Listview2, 2008 için Listview3 ve 2009 için Listview4) yine aratamadım.

Yani arama kodlarındaki Listview1'leri de 2,3ve 4 için genellemem gerekiyor sanırım. Fakat nasıl yapabileceğimi bilmiyorum.

Yardımın olursa sevinirim.
 

Ekli dosyalar

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,759
Excel Vers. ve Dili
Excel 2019 Türkçe
Multipage sayfaları değişince "sr" değişkeni de değişecektir. Çünkü aşağıdaki kod bu işi yapıyor.

Kod:
Private Sub MultiPage1_Change()
        Select Case MultiPage1.Value
        Case 0: Sheets("2006").Select
        Case 1: Sheets("2007").Select
        Case 2: Sheets("2008").Select
        Case 3: Sheets("2009").Select
        End Select
End Sub
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Söylediğinizi tam olarak anlayamadım. Her sayfa değişiminde sr değişkeni yerine bir başka değişken mi kullanmalıyım?
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,759
Excel Vers. ve Dili
Excel 2019 Türkçe
Sizin kodlarınız içinde yazan kod, multipage sayfaları değiştikçe ilgili sayfayı seçiyor. Dolayısıyla aktif sayfayı ilgili(sr) değişkenine atarsak sorun çözülür diye düşünmüştüm. Bilmem yanlış mı düşünüyorum ?
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Sayfa seçiminde sorun yok. Asıl sorun şu ki; her farklı sayfaya geçtiğimde Listiew nesnesi de değişiyor. Yani sayfa 2006 da iken Listview1'de arama yaparken, sayfa 2007'ye geçtiğimde de yine Listview1'de arama yapıyor. Oysa 2007'ye geçtiğimde Listview2'de arama yapmalı..
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,759
Excel Vers. ve Dili
Excel 2019 Türkçe
Aslında kodlarınızı fazla incelemedim.Ben aramayı sayfa içinde yaptığınızı düşünmüşdüm. Bu durumda kodlara tekrar bakmak gerekli. Kodlarınızında maşallahı var. Zamanım olur mu bilemiyorum ?
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Kodların büyük bir kısmını arama için yaptığım textboxlar oluşturuyor. Toplam 8 textbox, kısıtları belirliyor ve herbiri -belli kısımları dışında- birbirinin aynı.

Multipage fonksiyonunu şu anda Command buttonlarla ikame ediyorum. Yani her yıl için farklı bir cmdbtn var.

Vaktiniz olursa mutlu olurum.

Şimdiden teşekkürler.
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Yardım edebilecek kimse yok mu?
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Sevgili üstadlar, bilgili üstadlar !

Konu ilginizi mi çekmiyor, zamanınız mı yok?
Acil Yardımlarınızı Rica ediyorum.
 
Katılım
25 Aralık 2007
Mesajlar
18
Excel Vers. ve Dili
windows xp proffessional 2002
Belki biraz uzun bir yol oldu ama, hallettim çok şükür.
 
Üst