combobox1 değer nasıl atanır?

[mesutyagmur]

Merhaba;
C:\Parçalar.xls excel dosyasının A sutunundaki verileri combobox1 nasıl eklerim;

 

[mehmett]

A sütunundaki değerler A1:A15 aralığında olsun.

ComboBox'ın özelliklerine (porperties) girin, ListFillRange kısmına A1:A15 yazın.

 

[mesutyagmur]

A sütunundaki değerler A1:A15 aralığında olsun.

ComboBox'ın özelliklerine (porperties) girin, ListFillRange kısmına A1:A15 yazın.

ama verini yeri farklı : c:\parçalar.xls ben ise c:\kesim.xls dosyasındayım

 

[mehmett]

O şekilde mümkün mü bilemiyorum ama isterseniz, parçalar.xls dosyasındaki listeyi kopyalayın, kesim.xls dosyasının boş bir yerine Bağ Yapıştırın ve bu yeni listeyi yukarıda belirttiğim şekilde ComboBox'a alın.

 

[Levent Menteşoğlu]

Dosyayı hiç açmadan aşağıdaki kod ile verileri alabilrsiniz. Kodu userforma kopyalayın. Eğer veri sayınız fazla ise yavaş çalışacaktır bu durumda başka bir kodlama önerebiliriz. Sayfa adını ben "sayfa1" kabul ettim. Bunu kendinize göre değiştirin.

Private Sub UserForm_Initialize()
For a = 1 To 65536
deg = ExecuteExcel4Macro("'C:\[Parçalar.xls]sayfa1'!R" & a & "C1")
If deg = 0 Then Exit Sub
ComboBox1.AddItem deg
Next
End Sub