• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Klasördeki Excelleri Tek Çalışma Kitabında Ayrı Sayfalar olarak Birleştirme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
seng

seng

Yeni Üye
Katılım
7 Nis 2021
Mesajlar
807
Çözümler
1
Aldığı beğeni
94
Excel V
Office 2013 EN
Konu Sahibi
Herkese merhaba arkadaşlar ekteki excellerden ana excele her excel için ayrı sayfada olacak şekilde verileri nasıl alabilirim? Ana excel dosya uzantısı ile veriler yanı yerdedir. Şimdiden teşekkür ederim.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Ali ÖZ' Alıntı:
Sub aaa()
yol = thisworkbook.path & "\"
dosya = Dir(yol & "*.xlsx")
a = 1
Do
Set kitap = Workbooks.Open(yol & dosya)
For Each sayfa In kitap.Worksheets
sayfa.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = a
a = a + 1
Exit For
Next
kitap.Close False
dosya = Dir
Loop Until dosya = ""
End Sub
Genişletmek için tıkla...
Çok teşekkür ederim hocam
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst