Comboboxtaki seçimegöre Kapalı dosyadan listboxa veriçekme

mertatakan3838

Kullanıcı
Katılım
1 Mar 2021
Mesajlar
334
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Değerli forum üyeleri C sürücüsünün içersindeki Evraklar klasöründe 2019.xlsx,2020.xlsx ........ vb isminde aynı formatta çalışma kitapları var. Benim yapmak istediğim comboboxta seçtiğim veriye göre Evraklar klasörünün içerisindeki dosyalardan listboxa formatı bozmadan veri çekmek. Çekeceğim format, 2021 yılı yakıt tüketimi butonuna tıkladığımızda gelen formatın aynısı olması lazım. Zaten format, sayfalardaki görülen çizelgenin aynısıdır herhangi bir özel durum yoktur. Yardımlarınız için şimdiden teşekkürler.
 
For Döngüsü Overflow Hatasını Çözme
Eşleşenleri ve eşleşmeyenleri aktarmak

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Bu tür işlemler için en doğru yöntem muhtemelen ADO yöntemidir ama ben bildiğim yöntemi önereceğim.

Userformun kod bölümünde en üstte mevcut Dim sonsatir, Arana.............. satırının altına
Dim dnm As Variant şeklinde yeni bir satır ekleyip, aşağıdaki kodları da userformun kod bölümüne yapıştırarak deneyiniz.

Açılacak ilgili yıl dosyasının, form isimli belgeyle aynı dizinde olduğunu varsaydım.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(24 satır)
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Bu tür işlemler için en doğru yöntem muhtemelen ADO yöntemidir ama ben bildiğim yöntemi önereceğim.

Userformun kod bölümünde en üstte mevcut Dim sonsatir, Arana.............. satırının altına
Dim dnm As Variant şeklinde yeni bir satır ekleyip, aşağıdaki kodları da userformun kod bölümüne yapıştırarak deneyiniz.

Açılacak ilgili yıl dosyasının, form isimli belgeyle aynı dizinde olduğunu varsaydım.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(24 satır)
Genişletmek için tıklayın ...
Ömer hocam öncelikle çok teşekkür ederim. Makroyu denedim Aynı klasör içinde olduğu zaman istediğim gibi çalıştı. Veriyi listboxa çekeceğim dosya proğramla aynı klasör içinde değilde C:\EVRAKLAR\ klasörünün içinden çekecek şekilde revize etmemiz mümkünmü acaba
 
Oyla 0 Olumsuz oyla
O zaman kodda yer alan ThisWorkbook.Path (2 yerde var) kısımlarını,
ÇİFT TIRNAK arasında olmak üzere "C:\EVRAKLAR" (sonunda KESME yok) olarak değiştirip deneyin.

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
O zaman kodda yer alan ThisWorkbook.Path (2 yerde var) kısımlarını,
ÇİFT TIRNAK arasında olmak üzere "C:\EVRAKLAR" (sonunda KESME yok) olarak değiştirip deneyin.

.
Genişletmek için tıklayın ...
Teşekkürler Ömer hocam yardımlarınız için pazartesi günü inşallah VIP üyeliğimi tekrardan yenileyeceğim sizin yardımlarınızın değeri ödenemez ama en azından forumunuza destek olmak gerekir saygılar
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt