combo box veri alımı hakk.

[GursoyC]

Merhaba,
daha önce de sordum ancak örnek eklememiştim. önceki sorumda örnek dosya eklemediğimden dolayı cevap gelmeyişini umarak tekrar sormak istedim.

ekteki örnekte görülebileceği üzere bir combo box yapıp bu nesnenin ListFillRange kısmını başka bir dosyam olarak gösterdim.
Ancak bu kaynak dosya açık değilse combo box listesi boş geliyor.
Kaynak dosya açıksa listeyi görebiliyorum.

meramımı anlatan bir jpg de ekledim.

Kaynak dosya açık olmadığı halde combo box nesnesine atadığım bu listenin görülmesinin bir yolu yok mudur acaba?
Yardımlarınızı bekliyorum.
Teşekkürler.

 

[salwo]

Merhabalar. Öncelikle Vba bilgim yardımcı olacak kadar yeterli değil, eminim üstadlar iyi bir yol bulacaktır fakat kaynak dosyayı kod ile arka planda açtırıp bilgileri almasını sağlayabilirsiniz.

 

[Orion1]

Dosyanız ektedir.

Sub DoluÇerçeve1_Tıklat()
Sayfa1.ComboBox1.ListFillRange = "L6:L" & Cells(Rows.Count, "L").End(xlUp).Row
End Sub

 

[GursoyC]

sayın orion merhaba,

verileri alma işlemini xyz.xlsm isimli dosyanın sayfa1 isimli sayfasının "A1:A1000" hücreleri arasından yapması gerekiyor. bunu yapmak için bu kodu nasıl düzenlemeliyim?

 

[Orion1]

sayın orion merhaba,

verileri alma işlemini xyz.xlsm isimli dosyanın sayfa1 isimli sayfasının "A1:A1000" hücreleri arasından yapması gerekiyor. bunu yapmak için bu kodu nasıl düzenlemeliyim?

O dosyayıda ekleyin.

 

[Orion1]

sayın orion merhaba,

verileri alma işlemini xyz.xlsm isimli dosyanın sayfa1 isimli sayfasının "A1:A1000" hücreleri arasından yapması gerekiyor. bunu yapmak için bu kodu nasıl düzenlemeliyim?

Dosyanız ektedir.

DOSYAYI İNDİR

Sub DoluÇerçeve1_Tıklat()
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
Sayfa1.ComboBox1.ListFillRange = ""
Range("A:A").ClearContents
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & _
        "\xyz.xlsm;extended properties=""excel 12.0;hdr=no"""
rs.Open "select * from[Sayfa1$A:A];", conn, 1, 1
If rs.RecordCount > 0 Then
    Sayfa1.ComboBox1.Column = rs.getrows
    Sayfa1.ComboBox1.ListIndex = 0
End If
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
MsgBox "Veriler comboboxa alındı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[GursoyC]

çok teşekkür ederim.
Saygılar.

 

[GursoyC]

Sayın Orion, sizi uğraştırmamak için kendim yapayım dedim ama sanırım bir yerde hata yapıyorum.
Rica etsem;
Finans_V8.2 dosyasında Gelir sayfasında bulunan "müşteri verilerini güncelle" düğmesindeki (sizin yazdığınız) makronun, Fatura_V7.0 dosyasındaki müşteriler sayfasının S15'ten S1000'e kadar olan bölümünü, müşteri verilerini güncelle düğmesinin altındaki combo.box'a yazmasını sağlayabilir misiniz?
Emekleriniz için teşekkür ederim.

 

[Orion1]

Sayın Orion, sizi uğraştırmamak için kendim yapayım dedim ama sanırım bir yerde hata yapıyorum.
Rica etsem;
Finans_V8.2 dosyasında Gelir sayfasında bulunan "müşteri verilerini güncelle" düğmesindeki (sizin yazdığınız) makronun, Fatura_V7.0 dosyasındaki müşteriler sayfasının S15'ten S1000'e kadar olan bölümünü, müşteri verilerini güncelle düğmesinin altındaki combo.box'a yazmasını sağlayabilir misiniz?
Emekleriniz için teşekkür ederim.

Dosyanız ektedir.

Sub YuvarlatılmışDikdörtgen5_Tıkla()
Dim conn As Object, rs As Object
Set conn = CreateObject("Adodb.connection")
Set rs = CreateObject("Adodb.recordset")
Sayfa1.ComboBox1.ListFillRange = ""
'Range("A:A").ClearContents
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & _
        "\fatura_v7.0.xlsm;extended properties=""excel 12.0;hdr=no"""
rs.Open "select * from[müşteri$s15:s1000];", conn, 1, 1
If rs.RecordCount > 0 Then
    Sayfa1.ComboBox1.Column = rs.getrows
    Sayfa1.ComboBox1.ListIndex = 0
End If
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
MsgBox "Veriler Güncellendi!" & vbLf & "LUPORA BİLGİ İŞLEM"
End Sub

 

[GursoyC]

çok teşekkür ederim. saatlerdir uğraşıyorum. denemediğim şey kalmadı.
hala da neden combobox'un sayfa1 ile başladığını anlamadım çünkü o combobox'un bulunduğu sayfa ismim "gelir"
neyse, işe yaradı ya önemli olan o.

tekrar teşekkürler.

 

[Orion1]

çok teşekkür ederim. saatlerdir uğraşıyorum. denemediğim şey kalmadı.
hala da neden combobox'un sayfa1 ile başladığını anlamadım çünkü o combobox'un bulunduğu sayfa ismim "gelir"
neyse, işe yaradı ya önemli olan o.

tekrar teşekkürler.

VBE de sayfa modüllerine bakarsanız gelir adlı sayfanın sayfa1 olduğunu göreceksiniz.

 

[GursoyC]

evet haklısınız. sonradan aklıma geldi