Multipage üzerindeki nesneleri sayfaya yazdır

[comennius]

Merhaba,

Userform üzerinde 5 sayfadan oluşan MultiPage1 isimli nesnem var.
Multipage1 nın hersayfasında bulunan nesnleri excel sayafasına yazdırmak istiyorum. Örnek dosyada istediğim rapor formatı bulunmaktadır.
Yardımlarınızı rica ederim.

 

[hamitcan]

Private Sub CommandButton1_Click()
    Dim ctrl As Object
    c = 2
    d = 1
    For i = 0 To MultiPage1.Pages.Count - 1
        For Each ctrl In MultiPage1.Pages(i).Controls
            d = d + 1
            Cells(c, 1) = MultiPage1.Pages(i).Name
            Cells(d, 2) = ctrl.Name
            Cells(d, 3) = ctrl.TabIndex
        Next
    c = d + 1
    Next
End Sub

şeklinde dener misiniz ?

 

[comennius]

Çok teşekkür ederim üstad eline sağlık.