ilişkili combobox hk.

[ex48]

Merhaba,
Forumdan aldığım dosyayı kendime uyarlamaya çalıştım fakat beceremedim. Fazla zamanınızı alırmı bilmiyorum. Yapmak istediğim 1. comboboxtan yıl seçtirip, seçilen yıla ait sayfaların 2.comboboxta listelenmesi ve buradan seçilen sayfaya gitmek. Ayrıca userforma minimize özelliği eklenebilirse iyi olacak. Buna benzer bir örnek dosya varsa gönderebilirseniz yada ekteki dosyamı düzenleyebilecek arkadaşların yardımını bekliyorum. Şimdiden teşekkür ederim.

 

[udentr2002]

formunun maximize yada minimize edilebilmesi için gerekli kodları doasyana yazdım diğer sorunuda forumdaki üstadlar çözebilir işine yarar inşallah

 

[ex48]

formunun maximize yada minimize edilebilmesi için gerekli kodları doasyana yazdım diğer sorunuda forumdaki üstadlar çözebilir işine yarar inşallah

Teşekkür ederim udentr2002 ,

Comboboxlar için diğer arkadaşların yardımını bekliyorum...

 

[Orion1]

Ekli dosyayı inceleyiniz.
Sayın hsayar'ın belirttiği dosyadaki eksiklik düzeltildi 8 numaralaı mesaja dosya eklendi.

 

[ex48]

Ekli dosyayı inceleyiniz.

Süper olmuş, çok teşekkür ederim Orion2
İyi günler.

 

[Orion1]

Süper olmuş, çok teşekkür ederim Orion2
İyi günler.

Rica ederim.
İyi günler.

 

[hsayar]

orion hocam güzel bir örnek ancak ben bir sıkıntı farkettimm çalışma sayfaları
2007_*,2008_* ile başlayınca sorun yok.
ancak
2007_*,2008_*,2009_* ile başlayınca yıl comboboxuna 2007,2009 verileri geliyor 2008 gelmiyor
2007_*,2008_*,2009_*,2010_* ile başlayınca yıl comboboxuna 2007,2010 verileri geliyor 2008,2009 gelmiyor.
netice itibariyle başlangıç ve bitiş yılllarına ait veriler geliyor, ara yıllara ait veriler gelmiyor.

 

[Orion1]

orion hocam güzel bir örnek ancak ben bir sıkıntı farkettimm çalışma sayfaları
2007_*,2008_* ile başlayınca sorun yok.
ancak
2007_*,2008_*,2009_* ile başlayınca yıl comboboxuna 2007,2009 verileri geliyor 2008 gelmiyor
2007_*,2008_*,2009_*,2010_* ile başlayınca yıl comboboxuna 2007,2010 verileri geliyor 2008,2009 gelmiyor.
netice itibariyle başlangıç ve bitiş yılllarına ait veriler geliyor, ara yıllara ait veriler gelmiyor.

Sayın hsayar ;Durum düzeletildi.
Ekli dosyayı inceleyiniz.

 

[hsayar]

Private Sub UserForm_Initialize()
Dim z As Object
With CreateObject("Scripting.Dictionary")
     .CompareMode = vbTextCompare
For X = 1 To Sheets.Count
If Len(Sheets(X).Name) >= 4 Then
    If IsNumeric(Left(Sheets(X).Name, 4)) Then
       If Not .exists(Left(Sheets(X).Name, 4)) Then .Add Left(Sheets(X).Name, 4), Nothing
    End If
End If
Next
ComboBox1.List = .keys
End With
End Sub

hocam kodlar için teşekkürler birde bunları comboboxta sıralamak mümkün olsa ne güzel olrud 2007,2010,2009,2008 yerine 2007,2008,2009,2010 olsun

 

[Orion1]

hocam kodlar için teşekkürler birde bunları comboboxta sıralamak mümkün olsa ne güzel olrud 2007,2010,2009,2008 yerine 2007,2008,2009,2010 olsun

Merhaba .Dosyayı istediğiniz şekilde sıralama yapacak şekilde düzenledim.
8 numaralı mesajdan dosyayı indirebilirsiniz.

 

[hsayar]

teşekkürler hocam fonksiyon şieklinde olması daha iyi olmuş bu sayede başka comboboxlardada kulllanılabilir gibi geldi bana

 

[Orion1]

teşekkürler hocam fonksiyon şieklinde olması daha iyi olmuş bu sayede başka comboboxlardada kulllanılabilir gibi geldi bana

Combobox'lardada kullanabilirsiniz,listbox'lardada kullanabilirsiniz.

 

[hsayar]

bu sayede
sayfaların ilk dört karakterine göre yani yıla göre comboboxlara veri taşıma ve
comboboxlarda sıralama ve listboxlarda sıralama için güzel bir örnek elde ettik.
aklınıza sağlık.

 

[Orion1]

bu sayede
sayfaların ilk dört karakterine göre yani yıla göre comboboxlara veri taşıma ve
comboboxlarda sıralama ve listboxlarda sıralama için güzel bir örnek elde ettik.
aklınıza sağlık.

Rica ederim.
İyi çalışmalar.