SAYFALAR

[mujde_dileks]

Benim sorunum excel de sayfa 1 sayfa 2 ........ hepsini bir sayfada görmeyi istiyorum. 190 sayfayı tek sayfada görmem mümkün mü ..... Bilen varsa bana yardımcı olabilir mi

 

[Kemal Demir]

Anladıgım kadarı ıle sayfa birleştirme ise ;

Site içerisinde Bulduğum Kodu yazıyorum.

Sayet sayfa birleştirme ise!

Sub SAYFALARIBIRLESTIR()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
End Sub