Makro Çalışınca Dosya Çok Büyüyor.Sebebi nedir?

[awesper]

Arkadaşlar çok basit bir makro var onu bir tuşa atadım sorum ise şu:

dosyayı açıyorum dosya boyu 970 kb.
ilgili tuştaki makroyu çalıştırıyorum:
---------------------------------------------------------------------
Private Sub Düzenle()
Call Kaldır
Range("B12:CH3012").Select
Selection.Sort Key1:=Range("D12"), Order1:=xlAscending, Key2:=Range("I12") _
, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoSelection
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWindow.ScrollColumn = 1
Range("b12").Select
End Sub

Private Sub Kaldır()
ActiveSheet.Unprotect
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub

Private Sub CommandButton1_Click()
Call Düzenle
End Sub
--------------------------------------------------------------
bu işlemi yapıp kaydettiğim zaman 3120 kb oluyor.
Neden?

 

[zafer]

Merhaba

Formülsüz bir dosyada sıralama yaptım boyu büyümedi.
Formüllü bir dosyada sıralama yaptım 3.01 mb den 3.67 mb ye çıktı.

sonuç almanız için makronuzdaki sıralama kodunu silin öyle deneyin.


Bunun bir açıklaması mutlaka vardır tam bilemiyorum ama excelde hücrelere yazılanları hafızasında tutuyor gibi.