Soru Ado Combobox 2 Sütun

[hlojan]

Merhaba ;

Sorgumda comboboxda 3 sütun olarak göstermek istiyorum
Aşağıdaki gibi denedim olmadı

path1 = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
path2 = Left(path1, InStrRev(path1, "\") - 1)
 
Set con = VBA.CreateObject("adodb.Connection")
 

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
path2 & "/sertifika.xlsb" & ";extended properties=""Excel 12.0;hdr=yes"""

ComboBox1.Column(1, 1) = con.Execute("select distinct [Refno] from [Anasayfa$da28:DI227]").GetRows
ComboBox1.Column(1, 2) = con.Execute("select distinct [cihaz] from [Anasayfa$da28:DI227]").GetRows
Set con = Nothing

Yardımlarınızı bekliyorum

 

[Haluk]

Birader; "Altın Üye" olduğuna göre, bir zahmet örnek dosya ekle de .... yardım etmek isteyenler senin kodlarına bakıp da kendi başlarına bir deneme dosyası hazırlayıp, alternatif kod üretmekle uğraşmasınlar ....

.

 

[hlojan]

Örnek Dosya

 

[Korhan Ayhan]

Deneyiniz.

Private Sub ComboBox1_DropButtonClick()
    Set con = VBA.CreateObject("adodb.Connection")
    
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=no"""
    
    ComboBox1.ColumnCount = 3
    ComboBox1.Column = con.Execute("Select Distinct F1,F2,F3 From [Sayfa1$I3:K12] Where F1 Is Not Null").GetRows
    Set con = Nothing
End Sub

 

[hlojan]

Denedim oldu. Ama Tablo başlıklarıda gözüküyor. ilk sirada . Tahmini FX kullandığımız için.

ComboBox1.Column = con.Execute("Select Distinct [agrup],[bgrup],[cgrup] From [Sayfa1$I3:K12] Where [agrup] Is Not Null").GetRows

kullanıncada hata verdi.

F leri kullanarak From [Sayfa1$I4:K12] yazayarak atlayabilirim. Ama nedeninide öğrenirsem mutlu olurum

 

[Korhan Ayhan]

Eklediğiniz dosyada denediğimde başlıklar bende gelmedi.

 

[hlojan]

Teşekkürler Korhan Bey. Mantığı anladım yeterlidir. İyi geceler