Dosya Boyutu

[Skorpiyon]

Sayın Üyeler,

Anlayamadığım bir şekilde dosya boyutunun büyümesinin NET olarak sebep/sebeplerini bilen var mı acaba ?


- Mevcut 1 adet form, 76 adet textbox, 76 adet label, 7 buton, 1 combobox ve kodlarda tanımsız nesne yok.
- Dosyanın ilk kaydı 106 kb. - ikinci (veya sonraki) kaydı 2,7 mb. ???

Teşekkürler...

 

[hamitcan]

Size tavsiyem, mevcut Excel sayfalarını silip tekrar oluştumanız. Daha önce bana da olmuştu. Bu şekilde denedim, düzeldi.

 

[N.Ziya Hiçdurmaz]

Sayfalarınızda ctrl end tuşlarına basınız.Hangi hücre satırına geldiyseniz yukarıdaki boş satırları siliniz.

 

[Leoncio]

Merhaba;

Ekteki dosyada çalışma kitabındaki sheetlerinin dosya boyutları bulunabiliyor.

 

[Skorpiyon]

Tavsiyeler için tesekkürler Arkadaslar,

Su an kendi pc'min başında olmadığımdan deneyemiyorum. Ama en kısa zamanda deneyip,sonucu bildireceğim.

 

[Skorpiyon]

Sayın hamitcan, V.Basic For Applications ve leventer,

Her üçünüzün sunmuş olduğu öneriyi de değerlendirdim.

Sayın Hamitcan'ın sunmuş olduğu öneri işe yaradı. Sayfayı silip, yeniden oluşturduğumda boyut düştü.

Sayın V.Basic For Applications'un sunmuş olduğu öneride 65.000 'li bir satıra gitti. (Hücrelerin içeriği her ne kadar boş görünse bile)

Sayın leventer'in göndermiş olduğu program ise tek kelime ile Harika. Hangi sayfanın bu denli bir şişmeye neden olduğunu görebiliyorsunuz.

Netice itibarı ile; Sayın leventer'in göndermiş olduğu dosya ile hangi sayfada anarmollik olduğu gözlenip (Aynı şekilde Sayın V.Basic For Applications'un önerisi ile de yapılabilir), Sayın hamitcan'ın önerisi ile de ilgili sayfa silinip tekrar oluşturulabilir.

Emeğinize ve İlginize Sonsuz Teşekkürler...

 

[Necdet]

Merhabalar,

Bu konuyu zamanında görmemişim. Şimdi farkedince bende katkıda bulunmak istedim.

Geniş dosyalarla çalışırken benim de başıma geldi. Dosyayı silip yeniden oluşturmama rağmen nedenini anlamadığım bir şekildi, maille kardeşime gönderdiğim dosya, bir kaç satır bilgi girildiğinde tekrar bana geldiğinde birden bire dosyanın boyutu megabyte lara kadar çıkıyordu.

Bir arkadaşımın internette bulduğu makroyu denediğimde dosya normal boyutlara döndü. Sizinle paylaşmak istedim

Sub ExcelDiet()
 
Dim j As Long
Dim k As Long
Dim LastRow As Long
Dim LastCol As Long
Dim ColFormula As Range
Dim RowFormula As Range
Dim ColValue As Range
Dim RowValue As Range
Dim Shp As Shape
Dim ws As Worksheet
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
On Error Resume Next
 
For Each ws In Worksheets
With ws
'Find the last used cell with a formula and value
'Search by Columns and Rows
On Error Resume Next
Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
On Error GoTo 0
 
'Determine the last column
If ColFormula Is Nothing Then
LastCol = 0
Else
LastCol = ColFormula.Column
End If
If Not ColValue Is Nothing Then
LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column)
End If
 
'Determine the last row
If RowFormula Is Nothing Then
LastRow = 0
Else
LastRow = RowFormula.Row
End If
If Not RowValue Is Nothing Then
LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row)
End If
 
'Determine if any shapes are beyond the last row and last column
For Each Shp In .Shapes
j = 0
k = 0
On Error Resume Next
j = Shp.TopLeftCell.Row
k = Shp.TopLeftCell.Column
On Error GoTo 0
If j > 0 And k > 0 Then
Do Until .Cells(j, k).Top > Shp.Top + Shp.Height
j = j + 1
Loop
If j > LastRow Then
LastRow = j
End If
Do Until .Cells(j, k).Left > Shp.Left + Shp.Width
k = k + 1
Loop
If k > LastCol Then
LastCol = k
End If
End If
Next
 
.Range(Cells(1, LastCol + 1).Address & ":IV65536").Delete
.Range(Cells(LastRow + 1, 1).Address & ":IV65536").Delete
End With
Next
 
Application.ScreenUpdating = True
Application.DisplayAlerts = True
 
End Sub

Not : Kodları hangi siteden bulduğunu sorduğumda arkadaşım anımsayamadı, bende ilgili sitenin adını veremiyorum. Kodları yazan her kimse eline sağlık.

 

[AS3434]

Bende sitesini vereyim.

http://www.vbaexpress.com/kb/getarticle.php?kb_id=83

 

[Necdet]

Bende teşekkür ederim sayın As3434

Paylaşım için teşekkürler

 

[budget5]

Merhaba;

Ekteki dosyada çalışma kitabındaki sheetlerinin dosya boyutları bulunabiliyor.

Dosyayı nasıl çalıştırıyoruz?

 

[uzmanamele]

merhaba

ben tesadüfen bir çözüm buldum.

dokun bana, haydi durma dokunsana

 

[muraterguden]

Leoncio, eklediginiz dosyayi alamiyorum. Bana email atmaniz yada tekrar yeni link atmaniz mumkun olabilirmi acaba?

archi_boyut analizi.zip (9.8 KB, 123 Görüntülenme)
muraterguden@hotmail.com
tesekkurler

 

[Korhan Ayhan]

Selamlar,

İlgili dosya benim arşivimde bulunuyordu.

#4 nolu mesaja dosya yeniden eklenmiştir.

 

[ayaz177]

Arkadaşlar bir excel dosyam var,çok küçük bir tablo olmasına rağmen boyutu 2811 kb.neden bu kadar büyük olduğunu aradım. Bulamadım.aynı dosyanın bir kopyasını alıp sadece değerleri ve biçimlendirmeyi başka bir dosyada yapıştırdım. Bunun boyutu ise 10 kb ta düştü. Farklı bir yöntem olarakda, satır ve sütun genişliklerini değiştirip yeniden kaydettiğimde dosya boyunu 10 kb ta düşüyor.şimdi aynı dosyadan iki tane var ve biri 2811 kb,diğeri 10kb. çözümü bulduk ama nedenini bulamadık. Bilen arkadaşlar varsa şimdiden cevap için teşekkürler..

 

[ExcelF1]

Dosyayı nasıl çalıştırıyoruz?

4 nolu mesaj eki ve Excel 2003 versiyonu İçin,

Kendi dosyanızı açınız. Ardından indirmiş olduğunuz "archi_boyut analizi" dosyanızı çalıştırınız. Bir değişiklik farketmemiş olabilirsiniz.
Açık olan dosyanızda, "Dosya" menüsü altında 1.sırada "Boyut Analizi" eklenmiş olacaktır. Tıkladığınızda 1 userform açılır. Userformun "OK" tuşuna basınız.
Kolay gelsin.

 

[idealimsin]

Selamlar,

İlgili dosya benim arşivimde bulunuyordu.

#4 nolu mesaja dosya yeniden eklenmiştir.

MERHABA Ddosyayı indiremedim yerinden imail atabilmeniz mümkunmü yada yükleme sitelerine koysanız

idealimsin@gmail.com

 

[Korhan Ayhan]

Dosya ektedir.

http://s9.dosya.tc/server2/vq9u43/archi_boyut_analizi.rar.html

 

[PriveT]

Arşive ekleyim.
Teşekkürler