Excel de Başka Bir Excel Sayfasından Veri Çekerken Sayfa isimlerini de içerdiği verilerle birlikte Çekme

[isoo_34]

Arkadaşlar Merhaba;
Excel de Başka Bir Excel Sayfasından yada Sayfalardan Veri Çekerken Sayfa isimlerini de içerdiği verilerle birlikte Çekmemiz Mümkün müdür?
Benim Kullandığım Birleştirme Kodum aşağıda Fakat sayfa İsimlerini de yani hangi datanın hangi isimde kaydedildiğini de Çekmem Lazım Yardımcı Olur musunuz?

Sub BİRLEŞTİR_KISA()
Dim AktifDosya As Workbook
Dim Dosya As Workbook
Dim DosyaAdi

Set AktifDosya = ActiveWorkbook

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Title = "Birleştirilecek Dosyaları Seçin"

If .Show Then
For Each DosyaAdi In .SelectedItems
Set Dosya = Workbooks.Open(DosyaAdi)

Dosya.Worksheets(1).UsedRange.Copy AktifDosya.Worksheets(4).Range("A1000000").End(xlUp)(8, 1)

Dosya.Close False
Set Dosya = Nothing
Next
End If
End With

Set AktifDosya = Nothing
End Sub

 

[ÖmerBey]

Merhaba,
Kırmızı renkli düzeltmeyi yaparak deneyiniz.

Set Dosya = Workbooks.Open(DosyaAdi)

AktifDosya.Worksheets(4).Range("A1000000").End(xlUp)(8, 1) = Dosya.Worksheets(1).Name
Dosya.Worksheets(1).UsedRange.Copy AktifDosya.Worksheets(4).Range("A1000000").End(xlUp)(2, 1)

Dosya.Close False

 

[isoo_34]

Ömer Bey ilgi ve alakanıza Çok ama Çok Teşekkür Ederim. Verdiğiniz Kod Çalıştı. Allah Razı Olsun.

 

[ÖmerBey]

Rica ederim, Allah hepimizden razı olsun.
İyi çalışmalar...