kapalı exceldeki belirli aralıktan veri çekme vba kodu

[yasin273]

c:\\veri de bulunan excel dosyalarındaki "K2:U2" aralığındaki veriler alt alta olarak açacağım excelde sıralansın istiyorum. Bu işlemi excel açılınca otomatik olarak hedef klasördeki tüm dosyalarda yapsın. En üst satır boş kalsın ki oraya da başlıkları oluşturayım. Ya da bir butona da atanabilir bu işlem. Bunun vba kodu konusunda yardımcı olabilecek var mı acaba?

Teşekkürler.

 

[Bilgemen]

Sub VeriKopyalaYapistir()
Dim klasorYolu As String
Dim dosyaAdi As String
Dim hedefSutun As String
Dim wb As Workbook
Dim ws As Worksheet

' Hedef klasörün yolu
klasorYolu = "c:\veri"

' Hedef sütun adı
hedefSutun = "A"

' Hedef klasördeki tüm dosyaları al
dosyaAdi = Dir(klasorYolu & "\*.xlsx")

' Tüm dosyalarda dolaşarak işlemi gerçekleştir
Do While dosyaAdi <> ""
' Dosyayı aç
Set wb = Workbooks.Open(klasorYolu & "\" & dosyaAdi)

' Aktif sayfayı seç
Set ws = ActiveSheet

' Hedef sütuna verileri kopyala
ws.Range("K2:U2").Copy
ws.Range(hedefSutun & "2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

' Dosyayı kaydet ve kapat
wb.Close SaveChanges:=True

' Bir sonraki dosyaya geç
dosyaAdi = Dir
Loop
End Sub

 

[yasin273]

Teşekkür ederim ama çalışmıyor maalesef.