Farklı Sekmeleri Birleştirmek

[Sonarex33]

Merhaba değerleri hocalarım.
formda biraz araştırma yaptım ama yardıma ihtiyacım olan örnek dosya bulamadım.
excelde 5 adet farklı sekmem var. 6.ncı sekmeye bunları alt alta yazmasını istiyorum. eğer mümkünse de sekmede ki konu başlıklarına göre rahat filitre yapabliceğim bi öneriniz var mıdır. teşekkür ederim. kolaylılar dilerim

 

[huseyinvurkan]

Sayfa birleştirme diye arama yaparsan bir çok çözümle karşılaşırsın

 

[Sonarex33]

Sayfa birleştirme diye arama yaparsan bir çok çözümle karşılaşırsın

hüseyin bey merhaba. sayfa birleştirmelerini inceledim yalnız ben sayfa birleştirmesi değil sekme birleştirmesi yapmak istiyorum.

 

[Sonarex33]

konu günceldir arkadaşlar

 

[Ömer BARAN]

Merhaba.

Sayın Sonarex33, belgeniz açıkken alt taraftan sayfalardan birinin adına fareyle sağ tıklayıp, EKLEyi seçip,
açılan küçük ekrandaki seçeneklere bakarsanız "Çalışma SAYFAsı", "Grafik".... seçeneklerini göreceksiniz.
Sizin SAYFAdan kastınız nedir bilemiyorum ama sanırım sekme dediğiniz şey SAYFA oluyor.

Herneyse, forumda benzer konular var ancak; aşağıdaki kod ile istediğiniz sonuç alınacaktır.

Belgeniz açıkken, GENEL LİSTE sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.

Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
GENEL LİSTE sayfasına ekleyeceğiniz bir düğme/şekile sağ tıklayıp MAKRO ATAyı seçin.
Açılan küçük ekranda SAYFALAR_BRN'yi seçip işlemi tamamlayın.

Artık bu şekile/düğmeye tıklayabilirsiniz. Filtreleme işlemini E sütununa göre yapabilirsiniz.
.

[B]Sub SAYFALAR_BRN()[/B]
Set g = Sheets("GENEL LİSTE"): g.Activate
If g.Cells(Rows.Count, 2).End(3).Row > 1 Then g.Range("A2:E" & Rows.Count).ClearContents
For Each brn In ThisWorkbook.Worksheets
    If brn.Name <> "GENEL LİSTE" Then
        If brn.Cells(Rows.Count, 2).End(3).Row > 1 Then
            ilk = g.Cells(Rows.Count, 1).End(3).Row + 1
            brn.Range("A2:D" & brn.Cells(Rows.Count, 2).End(3).Row).Copy
            g.Cells(ilk, 1).PasteSpecial Paste:=xlPasteValues
            g.Range("E" & ilk & ":E" & g.Cells(Rows.Count, 1).End(3).Row) = brn.Name
        End If: End If: Next: g.[E1] = "SAYFA": g.[A1].Activate
MsgBox "Sayfalar birleştirildi...", vbInformation, "..::.. Ö.BARAN ..::.."
[B]End Sub[/B]

 

[Sonarex33]

Merhaba.

Sayın Sonarex33, belgeniz açıkken alt taraftan sayfalardan birinin adına fareyle sağ tıklayıp, EKLEyi seçip,
açılan küçük ekrandaki seçeneklere bakarsanız "Çalışma SAYFAsı", "Grafik".... seçeneklerini göreceksiniz.
Sizin SAYFAdan kastınız nedir bilemiyorum ama sanırım sekme dediğiniz şey SAYFA oluyor.

Herneyse, forumda benzer konular var ancak; aşağıdaki kod ile istediğiniz sonuç alınacaktır.

Belgeniz açıkken, GENEL LİSTE sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.

Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
GENEL LİSTE sayfasına ekleyeceğiniz bir düğme/şekile sağ tıklayıp MAKRO ATAyı seçin.
Açılan küçük ekranda SAYFALAR_BRN'yi seçip işlemi tamamlayın.

Artık bu şekile/düğmeye tıklayabilirsiniz. Filtreleme işlemini E sütununa göre yapabilirsiniz.
.

[B]Sub SAYFALAR_BRN()[/B]
Set g = Sheets("GENEL LİSTE"): g.Activate
If g.Cells(Rows.Count, 2).End(3).Row > 1 Then g.Range("A2:E" & Rows.Count).ClearContents
For Each brn In ThisWorkbook.Worksheets
    If brn.Name <> "GENEL LİSTE" Then
        If brn.Cells(Rows.Count, 2).End(3).Row > 1 Then
            ilk = g.Cells(Rows.Count, 1).End(3).Row + 1
            brn.Range("A2:D" & brn.Cells(Rows.Count, 2).End(3).Row).Copy
            g.Cells(ilk, 1).PasteSpecial Paste:=xlPasteValues
            g.Range("E" & ilk & ":E" & g.Cells(Rows.Count, 1).End(3).Row) = brn.Name
        End If: End If: Next: g.[E1] = "SAYFA": g.[A1].Activate
MsgBox "Sayfalar birleştirildi...", vbInformation, "..::.. Ö.BARAN ..::.."
[B]End Sub[/B]

Ömer BARAN bey, çok teşekkür ederim tam istediğim gibi olmuş.