Excel dosya boyutu

[xlomba]

Merhaba,
Elimde 20-25 sekme bulunan bir dosya mevcut. Dosya boyutu 55 MB civarı. İçinde formüller kullanmış olsamda bu boyutun fazla olduğunu düşünüyorum. Boş hücrelerin biçimlendirilmiş olabileceğini düşünerek bunları düzenledim ancak boyut değişmedi. Bu durumun tespitini nasıl yapabilirim veya sorunu tespit edebilmem için sekmelerin boyutlarını ayrı ayrı görebileceğim bir yol var mı?

 

[alicimri]

Aşağıdaki kod ile sayfaların boyutlarını yaklaşık olarak tespit edebilirsiniz.

Sub boyut()

For i = 1 To Sheets.Count
    Sheets(i).Copy

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\dene.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
DoEvents
MsgBox Sheets(i).Name & " " & FileLen(ThisWorkbook.Path & "\dene.xlsx")
Kill ThisWorkbook.Path & "\dene.xlsx"
Next
End Sub

 

[xlomba]

merhaba, makroyu denedim, anladığım kadarıyla sekmelerine ayırıyor. Yarıda hata aldığımdan tamamlamadı. dene.xlsx adında bir dosyada oluşmadı. Tam olarak ne yaptığını anlayamadım.
Açılan popup ekranlardakiler kb cinsinden boyut mu?

 

[Korhan Ayhan]

Alternatif,

Deneyiniz.

Option Explicit

Sub Sayfa_Boyutlarını_Listele()
    Dim Sayfa As Worksheet, Yol As String, K1 As Workbook, Satır As Integer, S1 As Worksheet

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("SAYFA_BOYUT_RAPORU").Delete
    On Error GoTo 0
    
    Set S1 = Sheets.Add
    S1.Name = "SAYFA_BOYUT_RAPORU"
    Range("A1:B1") = Array("SAYFA ADI", "BOYUTU")
    Range("A1:B1").Font.Bold = True
    Range("A1:B1").Font.ColorIndex = 3
    Range("A1:B1").HorizontalAlignment = xlCenter
    
    Yol = ThisWorkbook.Path & "\"
    Satır = 2
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> S1.Name Then
            Sayfa.Copy
            ActiveWorkbook.SaveAs Yol & "Yedek_Sayfa.xls"
            ActiveWorkbook.Close False
            S1.Cells(Satır, 1) = Sayfa.Name
            S1.Cells(Satır, 2) = FileLen(Yol & "Yedek_Sayfa.xls") / 1048576
            Kill Yol & "Yedek_Sayfa.xls"
            Satır = Satır + 1
        End If
    Next
    
    S1.Range("B2:B" & S1.Rows.Count).NumberFormat = "#,##0.00 ""MB"""
    S1.Cells.EntireColumn.AutoFit
    Set S1 = Nothing
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[modoste]

Korhan Hocamın mAkrosunu kullandım

bu hata nasıl çözülür

 

[Korhan Ayhan]

İlgili sayfa sanırım gizlenmiş durumda.

 

[besen]

Alternatif,

Deneyiniz.

Option Explicit

Sub Sayfa_Boyutlarını_Listele()
    Dim Sayfa As Worksheet, Yol As String, K1 As Workbook, Satır As Integer, S1 As Worksheet

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("SAYFA_BOYUT_RAPORU").Delete
    On Error GoTo 0
   
    Set S1 = Sheets.Add
    S1.Name = "SAYFA_BOYUT_RAPORU"
    Range("A1:B1") = Array("SAYFA ADI", "BOYUTU")
    Range("A1:B1").Font.Bold = True
    Range("A1:B1").Font.ColorIndex = 3
    Range("A1:B1").HorizontalAlignment = xlCenter
   
    Yol = ThisWorkbook.Path & "\"
    Satır = 2
   
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> S1.Name Then
            Sayfa.Copy
            ActiveWorkbook.SaveAs Yol & "Yedek_Sayfa.xls"
            ActiveWorkbook.Close False
            S1.Cells(Satır, 1) = Sayfa.Name
            S1.Cells(Satır, 2) = FileLen(Yol & "Yedek_Sayfa.xls") / 1048576
            Kill Yol & "Yedek_Sayfa.xls"
            Satır = Satır + 1
        End If
    Next
   
    S1.Range("B2:B" & S1.Rows.Count).NumberFormat = "#,##0.00 ""MB"""
    S1.Cells.EntireColumn.AutoFit
    Set S1 = Nothing
   
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Merhaba benim dosyam xlsm uzantılı ve desktopta, SAYFA_BOYUT_RAPORU diye bir sayfa yarattı ama boş ve ekteki gibi debug hatası verdi.
Teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Verdiği hata mesajını da paylaşsanız hatanın kaynağı anlaşılabilirdi.
Tahminen gizli sayfayı kopyalamaya çalışıyorsunuz, sayfayı görünür yapıp tekrar deneyiniz.

 

[Korhan Ayhan]

Uyguladığınız dosyayı görmek gerekir. Kodlarda hata verecek bir durum göremiyorum.

 

[besen]

Merhaba,
Verdiği hata mesajını da paylaşsanız hatanın kaynağı anlaşılabilirdi.
Tahminen gizli sayfayı kopyalamaya çalışıyorsunuz, sayfayı görünür yapıp tekrar deneyiniz.

Hata mesajı görüntüsünü paylaşmıştım. Gizli sayfaları aktif edip, deneyeceğim.

 

[besen]

Uyguladığınız dosyayı görmek gerekir. Kodlarda hata verecek bir durum göremiyorum.

Merhaba, dosyam yazdığım gibi xlsm uzantılı içinde 5, 6 tane makro dosyası ve 40 sayfalık, 45 mg büyüklüğünde bir dosya.

 

[ccuneyt13]

Hata mesajı görüntüsünü paylaşmıştım

Merhaba,
Ömer beyin demek istediği makro hata verip durduğun da çıkan hata mesajı. Siz kodda hata alan satırı paylaşmışsınız.
Aşağıdaki gibi hata verdiği mesaj kutusunu iletirseniz değerlendirebilirler.

 

[besen]

Merhaba,
Ömer beyin demek istediği makro hata verip durduğun da çıkan hata mesajı. Siz kodda hata alan satırı paylaşmışsınız.
Aşağıdaki gibi hata verdiği mesaj kutusunu iletirseniz değerlendirebilirler.

Ekli dosyayı görüntüle 252824

Teşekkür ederim ama böyle bir hata vermedi, ekteki hata verip, durdu.

 

[besen]

Merhaba, dosyam yazdığım gibi xlsm uzantılı içinde 5, 6 tane makro dosyası ve 40 sayfalık, 45 mg büyüklüğünde bir dosya.

Gizli sayfadan dolayıymış, aktif yapınca çalıştı.
Elinize, emeğinize sağlık, teşekkür ederim.

 

[Korhan Ayhan]

Çalışmanızdaki detayları bilmeyince çözüm için çok fazla yorum yapamıyoruz.