1 sayfadan 1. sayfa

SAYFALARI BİRLEŞTİRME

İletiTarih: 14 May 2019 22:31
erseldemirel2
Arkadaşlar aşağıdaki gibi bir kod var elimde. Ancak benim Excel'de farz edelim 5 adet sayfam var. Sekmelerin isimleri; "İCMAL", "BİRLEŞMİŞ LİSTE", "1.LİSTE", "2.LİSTE". ve "3.LİSTE". Tabi bu 4,5,6. LİSTE. diyede uzayabilir. Aşağıdaki kod excelde bulunan bütün sayfaları birleştiriyor. Bensadece "1.LİSTE", "2.LİSTE" ve "3.LİSTE" birleşsin sonucunu ise "BİRLEŞMİŞ LİSTE" adlı sayfaya toplamasını istiyorum. "İCMAL" adlı sayfam ise hiç bozulmadan kalmalı. "İCMAL" ile ilgili dokunulmazlık olmalı. Sonuç olarak yine elimde 5 sayfalı bir excel dosyası kalmalı. Yardım talep ediyorum. Herkese kolay gelsin.


Kod: Tümünü seç
Sub veritoplama()
ActiveSheet.Cells.Clear
sayfasayisi = Sheets.Count
For i = 2 To sayfasayisi
Sheets(i).Select
Range("a1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(1).Select
satirsayisi = Range("a1").CurrentRegion.EntireRow.Count
Cells(satirsayisi + 1, 1).Select
ActiveSheet.Paste
Next i
Cells.Select
Cells.EntireColumn.AutoFit
Range("a1").Select
Rows(1).Delete
End Sub

Cevap: SAYFALARI BİRLEŞTİRME

İletiTarih: 14 May 2019 23:41
şahin
Ekte

Cevap: SAYFALARI BİRLEŞTİRME

İletiTarih: 14 May 2019 23:52
erseldemirel2
Gönderdiğiniz eki inceledim ancak benim sorumla alakalı değil sanırım. Tekrar kontrol edermisiniz

Cevap: Cevap: SAYFALARI BİRLEŞTİRME

İletiTarih: 15 May 2019 22:26
şahin
erseldemirel2 yazdı:Gönderdiğiniz eki inceledim ancak benim sorumla alakalı değil sanırım. Tekrar kontrol edermisiniz


Evet yanlış eklemişim, sini örnek ekte

Kitap1.rar

Cevap: Cevap: Cevap: SAYFALARI BİRLEŞTİRME

İletiTarih: 15 May 2019 23:06
erseldemirel2
şahin yazdı:
erseldemirel2 yazdı:Gönderdiğiniz eki inceledim ancak benim sorumla alakalı değil sanırım. Tekrar kontrol edermisiniz


Evet yanlış eklemişim, sini örnek ekte

Kitap1.rar




Şahin Bey elinize sağlık. Çok teşekkür ederim. Kolay gelsin --)( --)( --)(