İçi Boş Modülleri Silme

[hakki83]

Merhaba

Bazı dosyalarımda 30’dan fazla modül var ve sonradan içlerini sildiğim için bir çoğunun içi boş.

Bunların üzerindeyken Delete’yle silebiliyor olsak çok kolay olurdu doğrusu. Ama yapamıyoruz. Belki de birçok kullanıcı bundan muzdariptir.

Boş modüller yüzünden içinde kod olan modülleri bulmak için çok uğraşıyorum.

Böyle içi boş olan modülleri kodla silebilir miyiz?

Fakat bazı modüllerin içinde, gözle görünmeyen Space veya Tab karakteri kalmışsa; O MODÜLLERİ DE SİLMELİ.

Bazı modülleri de sırf içine notlarımı yazmak için kullanıyorum. Dolayısıyla içleri sadece yeşil renkli satırlarla dolu. O MODÜLLERİ SİLMEMELİ.

…………

Örnek dosyaya göre Modül4 ve Modül6 kalmalı, gerisini silmeli.

 

[Korhan Ayhan]

Merhaba,

Bu tarz kodlara merakı olanlar için güzel bir link paylaşıyorum.

Programming In The VBA Editor

www.cpearson.com

Sizin sorunuza gelince aşağıdaki kod ile bahsettiğiniz modülleri silebildim.

Option Explicit

Sub Delete_All_Blank_Module()
    Rem Kodun çalışması için kod editöründe Tools-References bölümünden "Microsoft Visual Basic For Applications Extensibility X.X" seçeneğinin seçili olması gerekir.
    Rem Kodun çalışması için Dosya-Seçenekler-Güven Merkezi-Güven Merkezi Ayarları-Makro Ayarları menüsünden "VBA projesi nesne erişimi modeline güven" seçeneğinin seçili olması gerekir.
    
    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent
    Dim VBA_Code_Line As String
    Dim X As Long, My_Check As Boolean

    Set VBProj = ActiveWorkbook.VBProject
    
    For Each VBComp In VBProj.VBComponents
        If VBComp.Type = vbext_ct_StdModule Then
            My_Check = True
            If VBComp.CodeModule.CountOfLines = 0 Then
                VBProj.VBComponents.Remove VBComp
            Else
                For X = 1 To VBComp.CodeModule.CountOfLines
                    VBA_Code_Line = VBA.Trim$(VBComp.CodeModule.Lines(X, 1))
                    If VBA.Len(VBA_Code_Line) > 0 Then
                        If VBA.Left$(VBA_Code_Line, 6) <> "Option" Then
                            If VBA.Left$(VBA_Code_Line, 3) <> "Sub" Then
                                If VBA.Left$(VBA_Code_Line, 3) <> "Dim" Then
                                    If VBA.Left$(VBA_Code_Line, 6) <> "Public" Then
                                        If VBA.Left$(VBA_Code_Line, 6) <> "Global" Then
                                            If VBA.Left$(VBA_Code_Line, 7) <> "Private" Then
                                                If VBA.Left$(VBA_Code_Line, 8) <> "Property" Then
                                                    If VBA.Left$(VBA_Code_Line, 8) <> "Function" Then
                                                        If VBA.Left$(VBA_Code_Line, 5) <> "Const" Then
                                                            If VBA.Left$(VBA_Code_Line, 3) <> "Rem" Then
                                                                My_Check = False
                                                                Exit For
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                Next
                If My_Check = True Then VBProj.VBComponents.Remove VBComp
            End If
        End If
    Next
    
    MsgBox "Projenizdeki boş modüller silinmiştir.", vbInformation
End Sub

 

[hakki83]

İlginiz için teşekkür ederim Korhan hocam. Deneyeceğim.

 

[hakki83]

Korhan hocam tam tarif ettiğim gibi kod paylaşmışsınız. Emeğinize sağlık.

Bir de müsait vaktiniz olduğunuzda, yukarıdaki koda, içinde kod olmayan sadece yeşil yorumlarla dolu olan modülleri de ilave olarak, silecek şekilde ekleme yapabilir misiniz. Hani bazı modülleri yorum yazmak için kullanıyorum diye bahsetmiştim ya, işte onları da;
O kod da arşivde dursun, lazım olabilir.

Yani hem boş modüller silinecek, hem de içinde kod olmayan, sadece commentler olan modüller silinecek.

Dolayısıyla fazlalıklardan arınmış daha temiz dosyalar olacak.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Delete_All_Blank_Module()
    Rem Kodun çalışması için kod editöründe Tools-References bölümünden "Microsoft Visual Basic For Applications Extensibility X.X" seçeneğinin seçili olması gerekir.
    Rem Kodun çalışması için Dosya-Seçenekler-Güven Merkezi-Güven Merkezi Ayarları-Makro Ayarları menüsünden "VBA projesi nesne erişimi modeline güven" seçeneğinin seçili olması gerekir.
    
    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent
    Dim VBA_Code_Line As String
    Dim X As Long, My_Check As Boolean

    Set VBProj = ActiveWorkbook.VBProject
    
    For Each VBComp In VBProj.VBComponents
        If VBComp.Type = vbext_ct_StdModule Then
            My_Check = True
            If VBComp.CodeModule.CountOfLines = 0 Then
                VBProj.VBComponents.Remove VBComp
            Else
                For X = 1 To VBComp.CodeModule.CountOfLines
                    VBA_Code_Line = VBA.Trim$(VBComp.CodeModule.Lines(X, 1))
                    If VBA.Len(VBA_Code_Line) > 0 Then
                        If VBA.Left$(VBA_Code_Line, 1) <> "'" Then
                            If VBA.Left$(VBA_Code_Line, 6) <> "Option" Then
                                If VBA.Left$(VBA_Code_Line, 3) <> "Sub" Then
                                    If VBA.Left$(VBA_Code_Line, 3) <> "Dim" Then
                                        If VBA.Left$(VBA_Code_Line, 6) <> "Public" Then
                                            If VBA.Left$(VBA_Code_Line, 6) <> "Global" Then
                                                If VBA.Left$(VBA_Code_Line, 7) <> "Private" Then
                                                    If VBA.Left$(VBA_Code_Line, 8) <> "Property" Then
                                                        If VBA.Left$(VBA_Code_Line, 8) <> "Function" Then
                                                            If VBA.Left$(VBA_Code_Line, 5) <> "Const" Then
                                                                If VBA.Left$(VBA_Code_Line, 3) <> "Rem" Then
                                                                    My_Check = False
                                                                    Exit For
                                                                End If
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                Next
                If My_Check = True Then VBProj.VBComponents.Remove VBComp
            End If
        End If
    Next
    
    MsgBox "Projenizdeki boş modüller silinmiştir.", vbInformation
End Sub

 

[hakki83]

Microsoft Visual Basic For Applications Extensibility X.X

Korhan hocam merhaba

Bu seçeneği sabitleme imkaınımız var mı Excelde?

Yani her dosya için bu seçeneği açmak gerekiyor.

Sabit olarak işaretleyebilirsek veya kodlara ilave edebilirsek her dosya için uğraşmamış oluruz.