Combobox / rowsource iki sayfadan veri alma

[h2001]

Combobox tan rowsource özelliğiyle iki sayfadan veri alabilir miyim.

Kod şöyle;

ComboBox6.RowSource = "YTSDOSYAVERİ!a2:a6500"

sayfa 1 den de aynı anda veri alsın istiyorum. teşekkürler

 

[Seyit Tiken]

Birşeyler karaladık, bir bakınız.

 

[Skorpiyon]

Sayın Tiken,

Yine mükemmelsiniz. Bende tam çözümü bulamayıp, combobox'a eklemek istediğiniz verileri başka bir sayfada toparlayın diyecektim.

Saygılarımla...

 

[h2001]

Bu da işimi görür.Teşekkür ederim.

 

[Levent Menteşoğlu]

Rowsource yöntemi yerine additem yöntemi ile verileri yükleyebilirsiniz. Aşağıdaki gibi deneyin.

For a = 1 To 2
Set s1 = Sheets("sayfa" & a)
For b = 2 To s1.[a65536].End(3).Row
ComboBox6.AddItem s1.Cells(b, "a")
Next
Next

 

[h2001]

sn. leventm verdiğiniz kodu anlayamadım.Ben iki sayfanın ( örneğin a sutununun) aynı comboboxda aynı anda görüntülenmesini istiyorum.örnek dosyam ekte...sn seyit tiken in verdiği örnekte bir CheckBox yardımıyla görüntülecek sayfayı değiştiriyorum. Bu da iyi bir düşünce ama, bu iş CheckBox suz olmaz mı?

teşekkür ve saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu userformun kod sayfasına kopyalayın.

Private Sub UserForm_Initialize()
For a = 1 To 2
Set s1 = Sheets("sayfa" & a)
For b = 1 To s1.[a65536].End(3).Row
ComboBox1.AddItem s1.Cells(b, "a")
Next
Next
End Sub

 

[Orion1]

Combobox tan rowsource özelliğiyle iki sayfadan veri alabilir miyim.

Kod şöyle;

ComboBox6.RowSource = "YTSDOSYAVERİ!a2:a6500"

sayfa 1 den de aynı anda veri alsın istiyorum. teşekkürler

Sayın üstadlarında belirtiği gibi Rowsource yöntemi ile 2 sayfadan ayni anda combobox'a veri alınamıyor.Eğer illaki ben rowsource ile alıcağım diyorsanız.
Her 2 sayfadaki verileriniz sayfanın boş bir yerinde listeleyin ve işte o zaman rowsource ile rahatlıkla verileriniz combobox'a albilirsiniz.Kolay gelsin.

 

[h2001]

sn.orion2 ;leventm nin verdği kod açılşıyor, yani aynı anda iki sayfadan rowsource yapabiliyorum.
Yalnız verilen kodu kendi çalışmama (sayfa adlarının farklı olması nedeniyle)uyarlayamadım. çalışmamdaki sayfa adları "YTSdosyaveri "ve "Kredidosyaveri"
Sn.Levetm zahmet olmazsa uyarlayabilir misiniz?

 

[Orion1]

sn.orion2 ;leventm nin verdği kod açılşıyor, yani aynı anda iki sayfadan rowsource yapabiliyorum.
Yalnız verilen kodu kendi çalışmama (sayfa adlarının farklı olması nedeniyle)uyarlayamadım. çalışmamdaki sayfa adları "YTSdosyaveri "ve "Kredidosyaveri"
Sn.Levetm zahmet olmazsa uyarlayabilir misiniz?

Sayın levnetm üstadımın verdiği kodlar Rowsource ile verileri almıyor.
Additem yöntemi ile verileri alıyor.Dikkat ettiyseniz kodda additem diye deyim geçiyor.
Siz sorunuzda rowsource yöntemi ile verileri almaktan bahsetmiştiniz.

 

[h2001]

Haklısınız sn orion2. Amaç ile yöntemi karıştırdım galiba.
saygılar.

 

[Orion1]

Aşağıdaki kodları denermisiniz.

Private Sub UserForm_Initialize()
combobox1.clear
For a = 1 To 2
For b = 1 To Sheets(a).[a65536].End(3).Row
ComboBox1.AddItem s1.Cells(b, "a")
Next
Next
End Sub