excel'de sayfaları birleştirme yapabilirmiyim?

Kodla Büyü

hasan

Hiperaktif Üye
Hiperaktif
Süper Üye
Mesajlar
2,884
MS Excelde, elimdeki dosyada 100'e yakın sayfa var. Tabloların formatları aynı. kes yapıştır yerine bütün sayfaları az bir işlemle tek sayfaya yerleştirebilirmiyim? bütün sayfalarda 58. satıra kadar bilgi var. Fikri olan?
 
VBA ile mutlaka yapılıyordur fakat ben ilk olarak şunu denerdin. Makro kaydetmeyi

Yapmak istediyin rutun işlemi birdefaya mahsıs sen yap fakat yaptıklarını macro olarak kaydet. macroya isim ver ardından sırayla sayfalara uygula. tabi yetersiz kala bilir bu o yüzden macronun kodlarına bakıp düzenleme ekleme gerkebilir. Mesala macro fonsiyonunu bir döngü oluştuurp çaırabilir ve her döngüde sayfa numarasını artırarak bütün sayfaları kopyalaya bilirsin.
"Tabi analatması kolay :) " dediğini duyar gibiyim .Programcılık tecrüben varsa biraz uğraşarak amacına ulaşırsın sanırım.

Kolay gelsin
 
Sheets("Sheet63").Select ' sheet 63 seçili

Rows("2:58").Select '2. satırdan 58. satıra kadar seçili
Selection.Cut 'kes
Sheets("Sheet1").Select 'sheet 1 seçili
ActiveWindow.SmallScroll Down:=9
Rows("3536:3536").Select '3536 yapıştırmaya başlayacağı satır numarası
ActiveSheet.Paste
dediğin gibi oluyor ama sayfa sayısını (daha doğrusu adını) ve yapıştıracağım yerin adını otomatik olarak arttıracak bir döngü lazım. şimdilik elle yapacağız ne yapalım..
 
@alpaygunes üstadımız yapılacakları güzelce özetlemiş.

Tarif edilen yolu bir parça daha geliştirmek adına şunu ekleyebilirim :
For - next döngüsü kurarark sayfa isimlerini otomatik ilerletebilirsin.

En basit yazım haliyle

Kod:
For i = 1 to 100

 sayfa_adi = "Sheet"+i
 Sheets(sayfa_adi).Select

Next

şeklinde bir yapı
 
Geri
Üst