5 ayrı kapalı Excel dosyasından veri al alt alta listele

[sakiogluo]

Merhaba, 5 ayrı kapalı Excel dökümanından veri alıp alt alta birleştirmek istiyorum.
Sitede farklı şekillerde kapalı dosyadan veri alma ile ilgili dökümanlar var ama istediğim tabloya uyarlanacak bir örnek bulamadım. Pivot Table olarak yaptım ancak Pivot Table'a formül başvurularında hata oluyor.

Kapalı dökümanların:
Sayfa isimleri aynı.
Veri alınacak Sütun sayısı aynı.
Sütun veri başlıkları aynı.
Satır sayısı farklı, artabilir, azalabilir.

Alınan veri, STOK TAKİP.xls içinde, STOK sayfası, A:Z,Sütunları, 4.Satırdan aşağıya doğru listelenecek.

Kapalı dökümanlar:

BEYAZ STOK.xls
KIRMIZI STOK.xls
MAVİ STOK.xls
SARI STOK.xls
YEŞİL STOK.xls

Ekte örnek döküman var, ilgilenen arkadaşlara teşekkürler

 

[Haluk]

Aşağıdaki kodu deneyin;

Sub Test()
    'Haluk
    '16/01/2018

    Dim DB As Object
    Dim RS As Object
    Dim dbRow As Long
    
'    ActiveSheet.Cells.Clear
    
   .....
   ...
   ..

 

[sakiogluo]

Haluk merhaba, kod çalışıyor ancak bazı problemlerim var.
1- Kapalı dosyadan gelen verinin sütun başlıkları gelmeyecek.
2- Gelen verinin hücre formatı. Örnek N, X ve Y sütunundaki hücrelerde isteğe uyarlanmış biçimlendirme var. Gelen veride ise " gün" ifadesi metin olarak geliyor.
3- Rakamların "Metin olarak saklanan sayı" formatıyla gelmesi sorun. Tekrar ilgili sütunları sayıya dönüştürmem gerekiyor.
4- Orjinal sayfamda A:Z,Sütunlarının devamında veriler var, onların gelmemesi lazım. Yani sadece A:Z,Sütunlarından veri alınacak.
5- Verilerin alındığı döküman isimlerini Kod içerisinde belirtebilir miyiz. Yani klasördeki tüm dökümanlardan değil, sadece belirtilen dökümanlardan veri alınacak.

 

[Haluk]

Merhaba;

Kodun başında belirtildiği üzere; 16/01/2018 tarihinde bir başkası için hazırlamıştım.

Sadece kırmızı renkle belirttiğim dosya yolu ve sayfa adını değiştirdim, gerisi aynı.

Kod, esas itibariyle %95 oranında isteklerinizi karşıladığı için daha fazla uğraşmadan olduğu gibi size verdim. Kalan kısmını da forumdaki örneklere bakarak halledebileceğinizi düşünüyorum. Eğer olmazsa, ücretli yardım almak için imzamın altındaki e-posta adresinden bana ulaşabilirsiniz.

Kolay gelsin,

.