Kapali dosyadaki A kolonunu Listboxa aktarma

[zuzzu]

Arkadaslar merhaba,

Elimde 2 adet dosya var:

1.) Listboxa yazilacak veriler.xlsx --> (simdilik Desktop"imda duruyor)
2.) Userformun oldugu dosya.xlsm --> Icinde Userform ve 1. dosyadan verileri aktarmak icin kullanilacak kodlar bulunuyor.

Yapmak istedigim, 2. dosya acikken, haliyle Userform da acikken, Listbox2'nin degeri(deger olarak stringtolook degiskenini atadim) eger "x" 'e esit olursa (yani If stringtolook.value="x" Then-->

a. otomatik olarak Listbox1 active olsun
b. "Listboxa yazilacak veriler.xlsx" dosyasini acsin
c. A3'ten baslayarak A kolonundaki tüm hücrelerdeki degerleri sira ile Listbox1'e yazsin.

- "Kullanici Listbox1'den sadece 1 adet secim yapabilsin" -

d. "Listboxa yazilacak veriler.xlsx" dosyasini kapatsin

Ben kendimce bir kac kod yazdim.
Kodlar ile kapali olan bir dosya nasil acilir?, adresi nasil belirtilir?, acilan o dosya nasil kapatilir?, listboxa deger atama nasil yapilir? konularini bilmiyorum o acidan yapmak istedigim hicbir seyi gerceklestiremedim.

Örnek dosyalar ektedir.

Yardimlarinizi bekliyorum. Simdiden cok tesekkür ederim.

 

[zuzzu]

Arkadaslar,

Kusura bakmayin, mesajimi buraya yaziyorum.

Bugüne kadar buraya ufak ufak sorularimi, takildigim yerleri yazdim ve sayenizde sorularima cevap bulabildim.
Ancak artik isin icinden cikamiyorum, sadece 3 ayim kaldi ve VBAyi anca yavas yavas anlamaya basladim. Calismalarim bu hiz ile devam ederse, benden istenen her seyi ancak 1 sene sonra teslim ederim. En bastan bu kadar zorlanacagimi bilseydim, hic baslamazdim. Ancak artik basladim ve bitirmekle yükümlüyüm.

VBA konusunda uzman, 3 ay boyunca bana programim konusunda yardim edebilecek, kodlari yazabilecek, benim de bilgim oldugu konularda birlikte kod yazabilecegimiz birinden yardim bekliyorum. Gönüllü yardim da olabilir, belirli bir ücret karsiliginda da olabilir.

Yurtdisinda oldugum icin Türkiye'deki ögretmen ilanlarinin paylasildigi sitelere güvenemiyorum. Ancak bugüne kadarki bu sitedeki tecrübelerime dayanarak, buranin saygin bir site oldugunu biliyorum.

Kisacasi kendime bir ögretmen ariyorum. Özel mesaj ile bana ulasirsaniz sevinirim.

Bu mesaji yazacak dogru konuyu bulamadim, o acidan buraya yaziyorum.

Tesekkür ederim.

 

[Recep İpek]

Aşağıdaki linkteki örnek çalışma belki size fikir verebilir.

http://www.excel.web.tr/f117/kapaly-dosyadan-combobox-le-veri-suzerek-aktarma-t70596.html

 

[zuzzu]

Recep Bey yanitiniz icin cok tesekkür ederim. Sanirim ADO ile bu kodlari yazmissiniz. Keske anlayabilseydim

Ancak problemimi su kodlarla cözdüm. Arkadaslara da yardimci olabilir.

Cok tesekkür ederim.


++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub UserForm_Initialize()

Dim DataFilePath As String
DataFilePath = "C:\.........xlsx" 'Database dosyasinin bulundugu adres

FillListBox DataFilePath

End Sub

Private Sub FillListBox(ByVal WorkbookFilePath As String)

Dim CurrentWorkbook As Excel.Workbook
Dim CurrentCell As Excel.Range
Dim serial_number As String


Set CurrentWorkbook = Workbooks.Open(WorkbookFilePath)
Set CurrentCell = CurrentWorkbook.Worksheets("Sheet1").Range("$A$3")

Do While Len(CurrentCell) > 0
serial_number = CurrentCell
ListBox1.AddItem serial_number

Set CurrentCell = CurrentCell(2, 1)

Loop

CurrentWorkbook.Close False

End Sub