klasör içindeki excel dosyalarının aynı sekme adlarını biryerde listeleme

[modoste]

merhaba sayın hocalarım
yapmak istediğim şu
Masaüstünde hesaplar adı altında klasörüm ve içinde 15 excel dosyam var
her excel dosyamın içinde "ffff" adında bir tablo var ve hepsindeki biçimi aynı sadece içindeki değerler değişik

ben aynı klasör içinde Özet adlı bir excel dosyası açıp bu dosyamın içine 15 excel dosyamdaki "ffff" adını verdiğim sekmeleri 1-15 arası adları alarak açabilmek sekme adları ffff olamayacağında 1 den 15 e kadar ad alsın

 

[Muzaffer Ali]

"ffff" adında bir tablo var

"ffff" adını verdiğim sekmeleri

dosyanızda ffff adını verdiğiniz hangisi var

 

[modoste]

her excel dosyasında ffff adında bir sekme adı var ve herbirinin biçimi şekli şemali aynı içindeki veriler değişik sadece
hatalı ifade kullandım kusura bakmayın

 

[Muzaffer Ali]

Özet adlı bir excel dosyası oluşturup aşağıdaki kodu bir module ekleyin

Sub SayfalariKopyala()
    Dim AppEx As New Excel.Application
    Dim BookEx As Workbook
    Dim syfEx As Worksheet
    Dim Klasor As Object
    Dim Dosya As Object
    Dim prg As Object
    Dim Say As Integer
    Dim syfYeni As Worksheet
    Set prg = CreateObject("Shell.Application")
    Set Klasor = prg.Namespace(ThisWorkbook.Path)
    
    AppEx.Visible = True
    For Each Dosya In Klasor.Items
        If Not Dosya.Name = "Özet" Then
            Say = Say + 1
            Set BookEx = AppEx.Workbooks.Open(Dosya.Path)
            Set syfEx = BookEx.Worksheets("ffff")
            syfEx.Cells.Copy
            Set syfYeni = Worksheets.Add
            syfYeni.Paste
            syfYeni.Name = Say
        End If
    Next
    AppEx.DisplayAlerts = False
    AppEx.Quit
End Sub

Özet adlı excel dosyanızın hesaplar klasöründe olması gerekmekte.

 

[modoste]

sayın hocam hata olmasın diye tekrar yazayım ben var olan ları
masaüstünde "Hesaplar" sarı klasörüm var
bu "Hesaplar" klasörümün içinde "1","2"....."15" tane excel dosyam var ve herbirinin içinde "ffff" sekmesinde formüllerle bulunmuş veriler var başka sekmelerden formüllerle bulunuyo ve bu "ffff" sekmesinin tablo şekli biçimi satır ve sütun sayısı aynı biçimde

ben bunları sizin anlatımınızla "Özet" adlı boş excel dosyası açacam ama bunu "Hesaplar" klasöründe açmam gerekecek bulması daha kolay olsun diye

 

[Muzaffer Ali]

"Hesaplar" adlı klasörde 15 adet excel dosyası var. Bu 15 dosyanın her birinde "ffff" adlı sayfa var.

Yapılacak işlemler.

1-15 dosyada bulunan tüm "ffff" adlı sayfalar kopyalanacak
2-"Hesaplar" adlı klasörde bulunan "Özet" adlı bir Excel dosyasına yapıştırılacak
3-Yapıştırılan sayfaların isimleri rakamla 1,2,...,15 olacak.

Soruyu doğru anlamış mıyım?

 

[modoste]

evet sayın dalgakur
bu şekilde olucak

15 tane excel dosyanın isimleri "1","2"...."15" böyle sayı ile belirledim. bunuda teyitleyelim

 

[Muzaffer Ali]

Yukarıda verdiğim kodlar sizin istediğiniz şeyleri yapıyo.

ekteki dosyada aynı kod var.

Dosyayı Hesaplar klasörüne kaydedin ve kodları çalıştırın.

 

[modoste]

sayın dalgakur
verdiğiniz makroyu dün uygularken ilk veriden 6. aldıktan sonra uyarı geldi sonlandırdı
bu sabah detaylı bakınca ilk 6 dosyanın ffff sekmesindeki tablonun 49. satırda bittiği ni ama 7 den sonra 48 de bittiğini farkettim acaba sebep bu mudur dedim 7 den 15 e kadar olan dosyalara 1 satır ekledim hepsini aynı biçime getirdim ve makroyu çalıştırdım sonuç kusursuz çok teşekkür ederim
bu soru gurubumu genişletmek istesem sizden gelen makroda hangi kısımları değiştirmem lazım kırmızıyla kod üserinde belirtirmisiniz

mesela ben dosya adları işimi zorlaştırmasın diye 1-15 arası sayısal isim verdim ama isimler mesela adı neyse o oalrak devam etse dosya sayısı 1 den 15 e kadar değilse 1-den 100 e kadar değiştirsem
yazdığınız modülde nerelerle oynayarak ben düzeltebilirmiyim
bunu öğrenmek istiyorum

 

[Muzaffer Ali]

'Sayfa adı aşağıdaki şekillerdeki gibi değiştirilebilir


1- Örnekteki gibi yeni sayfalara numara verir

syfYeni.Name = Say

2- Örnekteki gibi yeni sayfalara numara verir ve istediğiniz metni ekleyebilirsiniz

syfYeni.Name = Say & "Sayfa Adı"

2- Yeni sayfalara istediğiniz ismi verebilirsiniz

syfYeni.Name = "Sayfa Adı"

 

[modoste]

hocam tam anlayamadım
mesela sayfalarımın adları 3 tane olup adları "XXX","YYY","ZZZ" olsa yani klasörde 3 dosya
Özet adlı çalışma dosyasında 3 sekme olucak adları "XXX","YYY","ZZZ" olucak

 

[Muzaffer Ali]

hocam tam anlayamadım
mesela sayfalarımın adları 3 tane olup adları "XXX","YYY","ZZZ" olsa yani klasörde 3 klasör var ve adları bunlar modül nasıl değişir.

Sayın modeste lütfen önce tanımlamalarınızı doğru yapın. Anlamakta güçlük çekiyorum.

Yada en iyisi siz örnek dosyalarınızın bulunduğu klasörü buraya ekleyin istediğinizi daha kısa sürede yapmaya çalışayım. Bu daha kolay ve hızlı olacaktır.

 

[modoste]

ilk sorumda hesaplar klasörü içinde 15 tane excel dosyasının adını 1 den 15 e kadar isim vermiştik
her bir dosyadaki "ffff" sekmelerini yeni Özet adında bir dosya açıp içine 1 den 15 e kadar sekme adı verip yanyana göstermiştik. bu kısım kusursuz hocam

şimdi istediğim ise hesaplar klasöründe 4 tane excel dosyası olsun ve adları "Ege","Marmara",Karadeniz","Akdeniz" olsun
her dosyada yine "ffff" sekmesi kriter olsun
"Özet" adlı yeni bir excel dosyasında "Ege","Marmara","Karadeniz","Akdeniz" sekmelerinden oluşsun

ben modülünüzde bunları nereleri nasıl değiştirebilirsem sonuca ulaşırım diye sordum hocam
anlam kargaşası oluşturdum yine özür dilerim

 

[Muzaffer Ali]

Kırmızı renkli satırı değiştirirseniz istediğiniz gibi olacaktır

        If Not Dosya.Name = "Özet" Then
            Say = Say + 1
            Set BookEx = AppEx.Workbooks.Open(Dosya.Path)
            Set syfEx = BookEx.Worksheets("ffff")
            syfEx.Cells.Copy
            Set syfYeni = Worksheets.Add
            syfYeni.Paste
[COLOR="DarkOrange"]            syfYeni.Name =  Dosya.Name [/COLOR]
        End If

 

[modoste]

teşekkür ederim