Farklı 2 Kapalı Dosyadan Comboboxa Veri Çekmek

[serdarinho43]

arkadaşlar elimde 3 adet dosya var bunlar;
1_ Personel Veritabani
2_ Yolluk Ödemeleri
3_ Unvan Bilgileri

SORU_1:

Yolluk bilgileri dosyasına personel veritabani dosyasından ;

Private Sub UserForm_Initialize()
Dim deg As Variant, i As Long, j As Byte
i = 1
Do
i = i + 1
deg = ExecuteExcel4Macro("'" & _
ThisWorkbook.Path & "\[Personel Veritabani.xls]1'!R" & _
i & "C1")
If deg = Empty Then Exit Do
ComboBox1.AddItem
For j = 1 To 8
ComboBox1.List(ComboBox1.ListCount - 1, j - 1) = _
ExecuteExcel4Macro("'" & _
ThisWorkbook.Path & "\[Personel Veritabani.xls]1'!R" & _
i & "C" & j)
Next

Loop
End Sub
bu makro ile combobox1 e personel veritabani A sütunundaki verileri aldım bunu B sutununa nasıl ayrlayabilirim.

SORU_2:
aynı yöntemle Unvan Bilgileri (C) sütununu combobox2 ye nasıl alabilirim?

 

[Orion1]

Aşağıda C 1Column1 demektir yani a sütunu demektir.C=column 1 de kolon numarasıdır.Varın artık gerisini siz yapın.

ThisWorkbook.Path & "\[Personel Veritabani.xls]1'!R" & _
i & "C1")