bulentkars
Yeni Üye
- Katılım
- 30 May 2022
- Mesajlar
- 605
- Çözümler
- 5
- Aldığı beğeni
- 104
- Excel V
- Office 365 TR
Konu Sahibi
Merhaba,
Excel çalışma kitabında 1 den fazla aynı formata sayfalarım var, Aşağıdaki kod ile birleştiriyorum, burada yapmak istediğim birleştirme yaparken baştaki ilk 2 sayfa hariç diğer sayfaların birleştirilmesini istiyorum. Yardımcı olabilirseniz sevinirim.
Sub tumsayfalar()
Dim sh As Variant
Dim son As Long, anason As Long
Dim ws As Worksheet, wsAna As Worksheet
Set wsAna = Worksheets("TumSayfalar")
For Each sh In Worksheets
anason = wsAna.Cells(Rows.Count, 1).End(xlUp).Row + 1
If sh.Name <> "TumSayfalar" Then
Set ws = Worksheets(sh.Name)
son = ws.Cells(Rows.Count, 1).End(xlUp).Row
ws.Range("A2
" & son).Copy wsAna.Range("A" & anason)
End If
Next
End Sub
Excel çalışma kitabında 1 den fazla aynı formata sayfalarım var, Aşağıdaki kod ile birleştiriyorum, burada yapmak istediğim birleştirme yaparken baştaki ilk 2 sayfa hariç diğer sayfaların birleştirilmesini istiyorum. Yardımcı olabilirseniz sevinirim.
Sub tumsayfalar()
Dim sh As Variant
Dim son As Long, anason As Long
Dim ws As Worksheet, wsAna As Worksheet
Set wsAna = Worksheets("TumSayfalar")
For Each sh In Worksheets
anason = wsAna.Cells(Rows.Count, 1).End(xlUp).Row + 1
If sh.Name <> "TumSayfalar" Then
Set ws = Worksheets(sh.Name)
son = ws.Cells(Rows.Count, 1).End(xlUp).Row
ws.Range("A2
" & son).Copy wsAna.Range("A" & anason)End If
Next
End Sub
