Otomatik veri çekme yardımlarınızı bekliyorum

[td877]

Arkadaşlar merhaba,

Birden çok sayfamın olduğu excel dosyam var, her bir sayfada belirli bir sütunda belirli bir satıra kadar veriler var. İcmal sayfamda yan yana sayfa isimlerinin yazılmasını, ve sayfa adının altına da ilgili sayfadaki sütunda yer alan verilerin yazılmasını sağlayabilir miyiz.

Örnek dosyayı iletiyorum:

https://s4.dosya.tc/server6/2tinf6/VERI_CEKME_ORNEK_01.08.2019.xlsx.html

 

[metehan8001]

Sub exceldestek()
With Sheets("İCMAL")
.Cells.ClearContents
    For Each syf In Worksheets
    If syf.Name <> "İCMAL" Then
    sut = sut + 1
    .Cells(1, sut) = syf.Name
    syf.Range("A1:A" & syf.Cells(Rows.Count, 1).End(xlUp).Row).Copy .Cells(2, sut)
    End If
    Next syf
End With
MsgBox "İşlem Tamam", vbInformation + vbMsgBoxRtlReading, "İşlem Tamam"
End Sub

 

[td877]

Sayın metehan8001 çok teşekkür ederim kod tam istediğim gibi çalışıyor.

 

[metehan8001]

İyi Çalışmalar.