Kaynak ikonu

Excel'de Tük Sayfaları Tek Sayfaya Kopyalama (makro)

merakettim

Öpözel Üye :*
Katılım
19 Tem 2006
Mesajlar
2,472
Beğeniler
540
Yaş
30
Şehir
leşim ANKARA:)
#1
Excel'de Tük Sayfaları Tek Sayfaya Kopyalama (makro) - Excel'de Tük Sayfaları Tek Sayfaya Kopyalama (makro)

Kod:
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
Not:Tüm sayfalardaki filtreler kaldırılmış olmalıdır. Aksi halde sadece filtrelenen kayıtlar alınır.:)
Açıklamanın devamı için tıklayınız...
 
Düzenleyen yönetici:

Benzer konular

Top