Userformun başka sayfadan açılması

[İsmail Küçükşengün]

Merhabalar;

Ekteki çalışmada, userform, bilgilerin bulunduğu sayfadan açılıyor. Fakat başka sayfadan açılmak istendiğinde, açılmadığı gibi, bilgiler getirilemiyor. Açıklama "veri" sayfasındadır. İlgilenenlere şimdiden teşekkürler...

 

[İsmail Küçükşengün]

:hey:

 

[hikmet]

sn.kucuksengin userformda combobox additem'lardaki sütun tanımlamalarının başına verilerin bulunduğu sayfayı tanımlayın ((( bassat = [veri!a1:a65536].Find(Cbili.Value).Row))) gibi.

 

[İsmail Küçükşengün]

Sayın Hikmet;
İlgine teşekkür. Verdiğiniz kodu uyguladım. Userform açılıyor. 1. Combo.ya da veriler geliyor. Fakat İlçelerin bulunduğu combo tıklandığında hata veriyor. Şu dosyaya bir el atsanız da hallediverseniz..?...

 

[İsmail Küçükşengün]

Sayın Forum Üyeleri;

Sorunumu çözemedim. Yardımlarınız.....

 

[İsmail Küçükşengün]

:hey: :kafa:

 

[Ali]

Sn kucuksengun, kodlarınız aşağıdaki gibi düzenleyin

Private Sub Cbili_Click()
ComboBox1.Clear
bassat = Sheets(1).[a1:a65536].Find(Cbili.Value).Row
sonsat = Sheets(1).Cells(bassat, 1).End(xlDown).Row - 1
For a = bassat To sonsat
If Sheets(1).Cells(a, 2) = 0 Then GoTo 10
ComboBox1.AddItem Sheets(1).Cells(a, 2)
Next
10 ComboBox1.ListIndex = 0
End Sub

Private Sub Userform_Initialize()
For Each hucre In Sheets(1).[a2:a65536].SpecialCells(xlCellTypeConstants, 2)
Cbili.AddItem hucre.Value
Next
End Sub

 

[İsmail Küçükşengün]

Sayın fructose;

Çok teşekkür ederim.
Koddaki Sheets(1), verinin bulunduğu sayfanın VBA daki adı olan sayfa1.mi demek oluyor?
Tekrar teşekkür ve saygılar.. k::

 

[Ali]

Evet.Sn kucuksengun Veri adlı sayfanız.
Aşagıdaki gibide kullanabilirsiniz

Private Sub Cbili_Click()
ComboBox1.Clear
bassat = Worksheets("Veri").[a1:a65536].Find(Cbili.Value).Row
sonsat = Worksheets("Veri").Cells(bassat, 1).End(xlDown).Row - 1
For a = bassat To sonsat
If Worksheets("Veri").Cells(a, 2) = 0 Then GoTo 10
ComboBox1.AddItem Worksheets("Veri").Cells(a, 2)
Next
10 ComboBox1.ListIndex = 0
End Sub

Private Sub Userform_Initialize()
For Each hucre In Worksheets("Veri").[a2:a65536].SpecialCells(xlCellTypeConstants, 2)
Cbili.AddItem hucre.Value
Next
End Sub

 

[İsmail Küçükşengün]

ÇOK TEŞEKKÜRLER.....

 

[İsmail Küçükşengün]

Sayın fructose
Verdiğiniz kodu çalışma kitabıma uyguladım. İl ve ilçelerin bulunduğu userforma, başka bir userformdan geçiş yapılıyor.
İl ve ilçelerin bulunduğu Userforma geçmek istediğimizde userform açılmıyor ve " '424' object required' " hata uyarısı veriyor. Sebebi ne olabilir. Sizleri devamlı meşgul ettiğim için de ayrıca özürl dilerim...

 

[İsmail Küçükşengün]

Hata veren dosyayı ekte sunuyorum. 1. Userformun ÇIKIŞ BUTONUNA tıkladığımızda (İl-İlçelerin bulunduğu) 2. userform açılmıyor.
Yardımlarınıza şimdiden teşekkürler....