ListView'e proje icerisindeki userformları listeleme

[programer]

Herkese iyi haftalar. Forumda ve nette araştırmamam rağmen bir sonuca varamadım. Benim yapmak istediğim Proje içerisindeki UserForm ları ListView de listeleme burda UserForm1 Hariç diğerlerini listelemek istiyorum böyle birşey yapıla bilirmi. Örnek dosya ekte. Herkese iyi çalışmalar

 

[programer]

Herkese iyi akşamlar. http://www.excel.web.tr/f48/vbe-form-ve-macro-isimlerini-yazdyrmak-t67020.html likte sorumla ilgili cevap bulabildim form isimlerini ListView e alabiliyorum ama bazı formların bu listede görünmesini istemiyorum bunu nasıl yapabilirim. Örnek dosya ekte mesela UserForm3'ü listede görmek istemiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Merhabalar

UserForm1'in Inıtialize olay kodlarını şu şekilde revize ediniz.

Option Explicit
Const sFormlar = "UserForm2,UserForm3"
[COLOR="DarkGreen"]'Bu sabite; virgülle ayırarak, diğer görüntülemek
'istemediğiniz form isimlerini ilave edebilirsiniz.[/COLOR]

Private Sub UserForm_Initialize()
    Dim sGoruntulenmeyenler As String
    Dim objVBC As VBComponent
    For Each objVBC In ThisWorkbook.VBProject.VBComponents
        If objVBC.Type = 3 Then
            If Not Varmi(objVBC) Then
                With ListView1
                    .ListItems.Add , , objVBC.Name
                    .ListItems(1).ListSubItems.Add , , objVBC.Name
                End With
            End If
        End If
    Next
End Sub

Private Function Varmi(obj As VBComponent) As Boolean
            
    Dim vSpl As Variant
    For Each vSpl In Split(sFormlar, ",")
        If CStr(Trim(vSpl)) = obj.Name Then
            Varmi = True
            Exit For
        End If
    Next
    
End Function

.

 

[programer]

Sayın Ferhat bey yardımınız için teşekkür ederim tam istediğim gibi olmuş