Dosya Boyutu

S

Skorpiyon

Misafir
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,712
Excel Vers. ve Dili
Excel 2019 Türkçe
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

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
Sayfalarınızda ctrl end tuşlarına basınız.Hangi hücre satırına geldiyseniz yukarıdaki boş satırları siliniz.
 
Katılım
22 Mart 2005
Mesajlar
847
Excel Vers. ve Dili
Excel-2003 TR.
Altın Üyelik Bitiş Tarihi
29-06-2023
Merhaba;

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

Ekli dosyalar

S

Skorpiyon

Misafir
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.
 
S

Skorpiyon

Misafir
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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

Kod:
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.
 

Ekli dosyalar

Son düzenleme:

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Bende teşekkür ederim sayın As3434

Paylaşım için teşekkürler
 
Katılım
18 Eylül 2010
Mesajlar
15
Excel Vers. ve Dili
2013 ingilizce
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

İlgili dosya benim arşivimde bulunuyordu.

#4 nolu mesaja dosya yeniden eklenmiştir.
 
Katılım
17 Haziran 2008
Mesajlar
14
Excel Vers. ve Dili
excel 2003 - 2007
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..
 
E

ExcelF1

Misafir
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.
 
Katılım
8 Ekim 2009
Mesajlar
642
Excel Vers. ve Dili
Office 2010 & 2016 TR
Altın Üyelik Bitiş Tarihi
26-12-2023
Arşive ekleyim.
Teşekkürler :)
 
Son düzenleme:
Üst