DİĞER ÇALIŞMA KİTABINA DAYALI VERİ LİSTELEME

[oerbas]

DÝÐER ÇALIÞMA KÝTABINA DAYALI VERÝ LÝSTELEME

ComboBox RowSource özelliği kısmına çalışma sayfasının listelenmesi gereken sutun adresi girilince listeleme yapılabiliyor.

Ben başka bir çalışma kitabınından veri almak istiyorum örneğin Arşiv isimli çalışma kitabının Arşiv isimli çalışma sayfasının C sütun bilgilerini listelemek istiyorum

 

[xxrt]

Private Sub UserForm_Initialize()
'Çalıştığınız Sayfa2'nin A1 ile A50 Aralığına verileri aldırıyoruz.
Sheets("Sayfa2").Range("A1:A50") = "='C:\[Deneme.xls]Sayfa1'!A1:A50"
'ComboBox'a veriyoruz.
ComboBox1.RowSource = "Sayfa2!A1:A50"
End Sub

Gelen Verilerin kalmasını istemiyorsanız,

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Sheets("Sayfa2").Range("a1:a50") = ClearContents
End Sub

 

[oerbas]

xxrt demişki

Private Sub UserForm_Initialize()
'Çalıştığınız Sayfa2'nin A1 ile A50 Aralığına verileri aldırıyoruz.
Sheets("Sayfa2").Range("A1:A50") = "='C:\[Deneme.xls]Sayfa1'!A1:A50"
'ComboBox'a veriyoruz.
ComboBox1.RowSource = "Sayfa2!A1:A50"
End Sub

Hocam Bu kodları Form üzerinde denediğimde aşağıdaki kod hata verdi

Private Sub CommandButton1_Click()
If ikaz = vbNo Then Cancel = True
TextBox1.SetFocus
Unload Me
If İkaz = vbYes Then UserForm1.Show
UserForm1.Show
End Sub

Hata veren satır

UserForm1.Show

 

[xxrt]

Bende vermedi..Dosya ekliyorum..

 

[oerbas]

Private Sub UserForm_Initialize()
'Çalıştığınız Sayfa2'nin A1 ile A50 Aralığına verileri aldırıyoruz.
Sheets("Sayfa2").Range("A1:A50") = "='C:\[Deneme.xls]Sayfa1'!A1:A50"
'ComboBox'a veriyoruz.
ComboBox1.RowSource = "Sayfa2!A1:A50"
End Sub

Hocam Bu kodla programı çalıştırdığım zaman her seferinde güncelleme yapılması isteniyor. Diğer çalışma kitabındaki veriler çalıştığımız sayfaya kopyalanması yerine ComboBox verileri direkt olarak diğer çalışma kitabından okuyamazmı?Diyelimki sizin yaptığınız gibi oldu o zamanda aktif sayfaya alınan veriler ilgili hücreye = ifadesiyle alınıyor. Bunun yerine alınan veriler value deyimiye alınamazmı?

"='C:\[Deneme.xls]Sayfa1'!

Bu satırla veri alındığında alınan verilerin başına = ifadesiyle baylayan bir formül getirildiği için formu her açışımda verileri güncellemek için ilgili kitaplığı seçmem isteniyor.

 

[xxrt]

Birde buna bakın,Sizin dediğiniz gibiymiş ben incelememiştim.

 

[oerbas]

Programı çalıştırdığım zaman

Run Tim error '-(214735571)':

Tür uyuşmazlığı hatısı alıyorum

 

[xxrt]

Dosyayı gönderdikten 15 dakika sonra bu soruyu yazıyorsunuz.Hatanızı tek tek irdelemeniz gerek.Ama yinede şu Dosya yolu ve çalışma kitabının sayfa adını bir inceleyin.

MyArg = "'C:\[Deneme.xls]Sayfa1'!R" & i

C'de Deneme adlı bir dosya olacak ve sayfa1 olacak.Lütfen bunları kontrol ediniz..Gönderdiğim dosya çalışıyorsa sizin kendi çalışmanızda bir hata arayın.
Hata kodu sayfa1 olmadığı yönünde..Veya Dosya adı.