Kaynak ikonu

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...
Bu kaynağın içeriğini görüntüleyebilmek için izniniz yok. Giriş yapın veya üye olun.
Gönderen
merakettim
İlk yayınlama
Son güncelleme
Değerlendirme
0.00 star(s) 0 ratings
Top