iki farklı sayfadan bir combobox a veri aktarma

[olymposss]

sn üstadlarım herkese iyi günler

sayfa1 ve sayfa2 de a1:a100 arası veri girişlerim oluyor.benim istediğim combobox1 e sayfa1 ve sayfa2 deki a1:a100 arası dolu olan verilerin sıralanması.yani bir combobox a iki sayfadaki dolu olan hücrelerin sıralanması.
yardımcı olacaklara şimdiden teşekkürler.
saygılar:yardim:

 

[Zeki Gürsoy]

Merhaba,
Verileri Combo'ya almadan önce sıralanması gerekir mi?

 

[olymposss]

merhaba kusura bakmayın dün cevap yazamadım.
önce sayfa1 deki a1:a100 sonra sayfa2 deki. harf sırasına göre de olabilir.ilginize teşekkürler.

 

[olymposss]

sn üstadlar yardımcı olacak varmı acaba???

 

[Zeki Gürsoy]

Merhaba,
Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim son1 As Byte, son2 As Byte, i As Byte, ii As Byte

Set sh1 = Sheets("Sayfa1")
Set sh2 = Sheets("Sayfa2")

sh1.Range("a1:a100").Sort Key1:=sh1.Range("a1")
sh2.Range("a1:a100").Sort Key1:=sh2.Range("a1")

son1 = WorksheetFunction.CountA(sh1.Range("a1:a100"))
son2 = WorksheetFunction.CountA(sh2.Range("a1:a100"))

For i = 1 To son1
    ComboBox1.AddItem sh1.Cells(i, "a")
Next

For ii = 1 To son2
    ComboBox1.AddItem sh2.Cells(ii, "a")
Next

End Sub

 

[olymposss]

çok teşekkürler saygılar