Combobox'a veri atama

[heft]

Selamlar,
a.xls dosyasında combobox1 var.Bu combobox1 verisi k.xls sayfa 1 deki B2 den B kolonundaki son satıra kadarki bilgileri combobox1 e veri olarak atatmak istiyorum ki bunlardan biri seçilebilsin.
Ancak buradaki şart bu seçim esnasında k.xls kapalı konumda olacak.(çünkü başka kullanıcı k.xls dosyasını kullanabilir.)

 

[Orion1]

Boş bir modüle aşağıdaki kodu yapıştırın.
Dosya ilk açıldığında çalışıp verileri alacaktır.
Not:her 2 dosyanında ayni klasörde olması lazımdır.

Sub auto_Open()
Dim cmb As ComboBox, son As Long
Set cmb = Sheets("Sayfa1").ComboBox1
cmb.Clear
son = Application.ExecuteExcel4Macro("COUNTA('" & ThisWorkbook.Path & "\[k.xls]Sayfa1'!C2)") + 1
For i = 2 To son
    cmb.AddItem Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[k.xls]Sayfa1'!R" & i & "C2")
Next
If cmb.ListCount > 0 Then cmb.ListIndex = 0
End Sub

 

[heft]

teşekkürler
olmadı beceremedim sanırım.
bir command buton koysak ona basınca combobox1 e bu diğer kitap taki veriler ile doldursa?

 

[Orion1]

teşekkürler
olmadı beceremedim sanırım.
bir command buton koysak ona basınca combobox1 e bu diğer kitap taki veriler ile doldursa?

Dosyalar ektedir.

 

[heft]

Çok özür diliyorum
Combobox ın userform1 in üzerinde olduğunu söylemeyi unuttum
bunu nasıl yapabilirim?

 

[Orion1]

Çok özür diliyorum
Combobox ın userform1 in üzerinde olduğunu söylemeyi unuttum
bunu nasıl yapabilirim?

Dosyanız 4 nolu mesajda.
Bendede ne sabır varmış meğer.

 

[heft]

değerli sabır ve ilginiz için tüm samimiyetimle teşekkürler

 

[Orion1]

değerli sabır ve ilginiz için tüm samimiyetimle teşekkürler

Rica ederim.
İyi çalışmalar.

 

[heft]

son bir soru daha
şayet farklı kolon bilgisi istersem neyi değiştirmeliyim (bulamadımda)
mesela a sütünü ise;
c de T klasörünün içinde dosyalar

 

[Orion1]

son bir soru daha
şayet farklı kolon bilgisi istersem neyi değiştirmeliyim (bulamadımda)
mesela a sütünü ise;

Aşağıdaki C2 column2 demektir.Yani B sütunu.Excel4 makroda sütunların adları metin olarak değilde sayı olarak alınır.Kaçıncı sütun ise oraya c nin yanına o sütunun numarasınız yazın.

son = Application.ExecuteExcel4Macro("COUNTA('" & ThisWorkbook.Path & "\[k.xls]Sayfa1'![B][COLOR="Red"]C[SIZE="4"]2[/SIZE][/COLOR][/B])") + 1
For i = 2 To son
    cmb.AddItem Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[k.xls]Sayfa1'!R" & i & "[B][COLOR="Red"]C[SIZE="4"]2[/SIZE][/COLOR][/B]")
Next

 

[heft]

süper

 

[hayalbert]

Dosyalar ektedir.

selam
bu başlık benim de aradığım bir konu
Me.combobox1 satırını anlayamadım

veya kolaya kaçalım

benim K dosyamın adı database.xls ve control source yapmak istediğim sayfası da database sütün ise worksheetfunction.countA(worksheets("database").range("I2:I:5000"))

bunu nasıl adapte edebilirim?

selamlar

 

[Orion1]

selam
bu başlık benim de aradığım bir konu
Me.combobox1 satırını anlayamadım

veya kolaya kaçalım

benim K dosyamın adı database.xls ve control source yapmak istediğim sayfası da database sütün ise worksheetfunction.countA(worksheets("database").range("I2:I:5000"))

bunu nasıl adapte edebilirim?

selamlar

Me.Combobox ait olduğu userform demektir.Mesela Userform1deki combobox sa Bu Userform1.Combobox demektir.
Kodlar aşağıdadır.

Dim cmb As ComboBox, son As Long
Set cmb = Me.ComboBox1
cmb.Clear
son = Application.ExecuteExcel4Macro("COUNTA('" & ThisWorkbook.Path & "\[DataBase.xls]DataBase'!C9)") + 1
For i = 2 To son
    cmb.AddItem Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[DataBase.xls]DataBase'!R" & i & "C9")
Next
If cmb.ListCount > 0 Then cmb.ListIndex = 0
MsgBox "Veriler comboboxa alındı", vbOKOnly + vbInformation, "EVREN"