Çözüldü İki Sayfadaki Veriyi Tek Sayfada Toplama

@ByChilavert

Şu kodu kullanabilirsiniz.
Birleştirilecek sayfalar, örnek belgedekinden fazla adette ise; aralarına VİRGÜL ekleyip ÇİFT TIRNAK arasına yazarak,
birleştirilecek diğer sayfaların isimlerini kodda ilgili yere ekleyebilirsiniz.

Kod açısından sorun yok ancak,
sayfa isimlendirmelerinde BOŞLUK karakterleri kullanmamanızı öneririm,
özellikle başta ve sonda BOŞLUK karakteri kullanmazsanız daha iyi olur (Mesela 71 ile biten sayfa adında sonda boşluk var) .

Merhaba Ömer Hocam

VBA Kodunu Liste sayfasına Alt+F11 ile ekleyerek. Buton oluşturdum. Butona sizin yazdığınız kodu atadım. Tıkladığımda hata veriyor.

Veri Aktarımını tamamladıktan sonra ekteki hatayı veriyor. Tamam dedikten sonra kontrol amaçlı bakınca bütün hepsini aktarmış neden olabilir?

Sorun yaşadığınız dosyayı paylaşın.

Dosya Ektedir.

-- Kodun baş tarafındaki yeşil kısmı değiştirin,
.......
lst.Range("A6:A" & lson + 2).SpecialCells(xlCellTypeBlanks).Delete
lst.Range("A6:I" & lson + 2).SpecialCells(xlCellTypeBlanks).Delete
......

-- Kodun son kısmına yeşil renklendirdiğim satırları ekleyin.
......
Next
For Each XD In Array("KISIM-1 YOL İŞİ 72", "KISIM-3 İSPİR YOL İŞİ 71")
If WorksheetFunction.CountIf(Sheets(XD).[A:A], "XD") > 0 Then
Sheets(XD).Rows(WorksheetFunction.Match("XD", Sheets(XD).[A:A], 0)).Delete
End If
Next
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
.........

Ömer Hocam Çok Teşekkür Ediyorum. Büyük bir dertten kurtardın beni Allah Razı Olsun.