Özet çıkarmak için veri aktarmak yerine tablo komple aktarılabilir mi_?

[KONYA42]

Mrb.arkadaşlar,Çalışma kitabımda tablo var.Tabloyu doldurdukça ARŞİV sayfasına verileri düğmeyle aktarıyorum.Sadece veri olarak değil de,tabloyu olduğu gibi aktarabilir mi?Ekteki çalışma kitabıma bakabilir misiniz?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub ARŞİVEKAYDET()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("ARŞİV")
say = WorksheetFunction.CountIf(s2.[a:a], "KURUM") * 8
s1.[a21:k27].Copy s2.Range("a" & say + 1)
End Sub

Not: Arşiv sayfasını tamamen temizleyerek deneme yapınız.

 

[KONYA42]

Süper,çalışıyor.Çok teşekür ederim.Emeğinize sağlık.