Kapalı Dosya Combobox Yardım

[DeliBalta58]

Kapalı dosya ile ilgili örneklere baktım ama kendime uyarlayamadım.

veri_tabanım adlı dosya açılıp formu çalıştır butonuna basıldığında;
aynı klasör içindeki personel_bilgi sayfamdan
Userform üzerindeki ComboBox2 ( Kadro ) 'ye personel_bilgi sayfa1 G1 ile G15 arası bilgi,

ComboBox3 ( Fiili Derece / Kademe) 'e personel_bilgi sayfa1 C1 ile C126 arası bilgi alınacak ve Combobox'dan yapılan seçime göre C sütunundaki veri karşılığı D sütunundaki veri TextBox20 ye gelecek
( C10 Seçilmiş olsun. C10'da 2/1 yazılı. Comboboxtan 2/1 seçilince Textbox20 ye D10 'da yazılı veri (1155 ) gelecek)

ThisWorkbook.Path yöntemi ile olmalıki klasörü istediğim yere koyabilmeliyim.

Dosyam ekte.

 

[Orion1]

Her 2 dosyaynında ayni klasörde olması gerekiyor.
Excel4 makrosu ile yapıldı.
ekli dosyayı inceleyiniz.

Private Sub UserForm_Initialize()
ComboBox3.ColumnCount = 2
ComboBox3.ColumnWidths = "100;0"
Dim MyArg As String
Dim i As Byte
For i = 1 To 15
MyArg = "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa1'!R" & i
ComboBox2.AddItem ExecuteExcel4Macro(MyArg & "C7")
Next
For i = 1 To 126
MyArg = "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa1'!R" & i
ComboBox3.AddItem
ComboBox3.Column(0, i - 1) = ExecuteExcel4Macro(MyArg & "C3")
ComboBox3.Column(1, i - 1) = ExecuteExcel4Macro(MyArg & "C4")
Next
End Sub

 

[DeliBalta58]

Sayın uzmanım ekli dosyada herhangi bir kod yok
Bu kodları bendeki dosyaya uyguladım.
Veriler Combobox'a geliyor. Combobox'tan seçime göre Textboxsa veri gelmiyor

 

[Orion1]

Sayın uzmanım ekli dosyada herhangi bir kod yok
Bu kodları bendeki dosyaya uyguladım.
Veriler Combobox'a geliyor. Combobox'tan seçime göre Textboxsa veri gelmiyor

Yanlış dosya yollamışım .Şimdi düzelttim.
2 numaralı mesajdan indirebilirsiniz.

 

[DeliBalta58]

Teşekkürler.Elleriniz dert görmesin:bravo:

 

[Orion1]

Teşekkürler.Elleriniz dert görmesin:bravo:

Rica ederim.
İyi çalışmalar.

 

[DeliBalta58]

Private Sub UserForm_Initialize()
Dim MyArg As String
Dim i As Byte
For i = 1 To 15
MyArg = "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa1'!R" & i
ComboBox2.AddItem ExecuteExcel4Macro(MyArg & "C7")
Next

Uzmanım. Yanlış anlamadıysam Burda kullandığımız kodla ;
personel_bilgi.xls sayfa1 de R sütundaki veri 1 den 15'e kadar olan veriyi combobox2 ye aldırdık.

Yapmak istediğim ise
personel_bilgi.xls sayfa3 ( B1 hücresinde Adı Soyadı Yazılı ) B2 sütunundan başlayarak dolu olan hücreleri saydırıp doyu hücre sayısı kadar veriyi aldırmak istiyorum. Yardımcı olabilirmisiniz
Yani ;

a = WorksheetFunction.CountA(Range("B:B"))
For i = 2 To a
ComboBox52.AddItem Cells(i, 2)
Next

burda kitabı açarak Combobox'sa aldırdığım veriye sizin kullandığınız yöntemle kapalı kitaptan dolu hücre sayısı kadar aldırmak istiyoru.

 

[Orion1]

Aşağıdaki gibi deneyiniz.Sayfa3'te B sütununda son dolu satır kadar verileri combobox'a alir.

Private Sub UserForm_Initialize()
Dim MyArg As String
Dim i As long,sat as long
sat =  ExecuteExcel4Macro("COUNTA('C:\[personel_bilgi.xls]Sayfa3'!C2)")
For i = 1 To sat
MyArg = "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i
ComboBox2.AddItem ExecuteExcel4Macro(MyArg & "C2")
Next

 

[Orion1]

Eğer B sütununu listelemediyse önceki mesajımda bir değişiklik yaptım.Tekrardan kodları indirip deneyiniz.

 

[DeliBalta58]

sat = ExecuteExcel4Macro("COUNTA('C:\[personel_bilgi.xls]Sayfa3'!C2)")

Uzmanım burda hata verdi. Güncelleştirilecek değer diye yeni bir percere açtı. Biz aynı klasör içindekine göre yapmıştık.
Galiba dosya yeri belirttiğimiz için
'C:\[personel_bilgi.xls]Sayfa3'!

 

[Orion1]

Aşağıdaki şekilde deneyiniz.

Private Sub UserForm_Initialize()
Dim MyArg As String
Dim i As long,sat as long
sat =  ExecuteExcel4Macro("COUNTA('" & thisworkbook.path & "\[personel_bilgi.xls]Sayfa3'!C2)")
For i = 1 To sat
MyArg = "'" & ThisWorkbook.Path & "\[personel_bilgi.xls]Sayfa3'!R" & i
ComboBox2.AddItem ExecuteExcel4Macro(MyArg & "C2")
Next

 

[DeliBalta58]

Evet hocam. Teşekkürler. Elinize ve bilginize sağlık. Çok güzel.

 

[Orion1]

Evet hocam. Teşekkürler. Elinize ve bilginize sağlık.

Rica ederim.
İyi akşamlar.

 

[cenderus]

dosya ektedir

dosye tekrar eklenmiştir