Belirli Sayfaları Birleştirme

[hilmitaranci]

Ustalarım Merhaba,


Bir excel kitabım var ve bunun içinde yaklaşık 30 sayfa bulunmakta.

Ben bu 30 sayfa içerisinde;
Adana_tutar,
Milas_tutar,
Sakran_tutar,
.
.
.
.

olmak üzere 12 sayfam var.

Birleşecek sayfaların ortak özelliği hepsinin adının sonu " _tutar " la bitiyor.


Satır sayıları hariç sütunlar birebir aynı.

Bulduğum tüm örnekler çalışma kitabındaki tüm sayfaların birleştirilmesiyle ilgili.

Bana bu 30 sayfa içerisinde sadece 12 sayfayı seçerek birleştireceğim bir yol yöntem var mı?

Şimdiden teşekkür ederim.

 

[Orion1]

Örnek dosya için link veriniz.

DOSYAYI BURAYA YÜKLEYİNİZ

,,

 

[hilmitaranci]

Örnek dosya için link veriniz.

DOSYAYI BURAYA YÜKLEYİNİZ

,,

Örnek dosya ektedir.

http://s6.dosya.tc/server5/21gj9d/makrolu_butce_hammadde.xls.html

 

[Orion1]

Dosyanız aşağıdaki linktedir.

DOSYAYI İNDİR

Sub birlerlestir59()
Dim sonsat1 As Long, sonsat2 As Long, sh As Worksheet, syf As Integer
Sheets("Birlestirilmissayfa").Select
Range("A2:X" & Rows.Count).Clear
Application.ScreenUpdating = False
For Each sh In Worksheets
    syf = InStr(1, sh.Name, "_")
    If syf > 0 Then
        sonsat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
        If sonsat2 > 1 Then
            sonsat1 = Cells(Rows.Count, "A").End(xlUp).Row + 1
            sh.Range("A2:X" & sonsat2).Copy Range("A" & sonsat1)
        End If
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[hilmitaranci]

Dosyanız aşağıdaki linktedir.

DOSYAYI İNDİR

Sub birlerlestir59()
Dim sonsat1 As Long, sonsat2 As Long, sh As Worksheet, syf As Integer
Sheets("Birlestirilmissayfa").Select
Range("A2:X" & Rows.Count).Clear
Application.ScreenUpdating = False
For Each sh In Worksheets
    syf = InStr(1, sh.Name, "_")
    If syf > 0 Then
        sonsat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
        If sonsat2 > 1 Then
            sonsat1 = Cells(Rows.Count, "A").End(xlUp).Row + 1
            sh.Range("A2:X" & sonsat2).Copy Range("A" & sonsat1)
        End If
    End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com"
End Sub

Yanıtınız için çok teşekkür ederim ancak göndermiş olduğunuz kod tüm sayfaları birleştiriyor.

Benim yapmaya çalıştığım sadece sayfa adında tutar olanları birleştirme.
Bunu nasıl ayıra biliriz?


syf = InStr(1, sh.Name, "_")

bölümünü

syf = InStr(1, sh.Name, "_tutar")

olarak yapınca tam da istediğim gibi oldu.

Ellerinize sağlık, yardımlarınız için çok teşekkür ederim.

 

[Orion1]

Yanıtınız için çok teşekkür ederim ancak göndermiş olduğunuz kod tüm sayfaları birleştiriyor.

Benim yapmaya çalıştığım sadece sayfa adında tutar olanları birleştirme.
Bunu nasıl ayıra biliriz?


syf = InStr(1, sh.Name, "_")

bölümünü

syf = InStr(1, sh.Name, "_tutar")

olarak yapınca tam da istediğim gibi oldu.

Ellerinize sağlık, yardımlarınız için çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.