Checkbox caption'ı Textbox'a yazdırma

[seddur]

Merhaba.Ekli dosyada paylaştığım ve yardım istediğim konu açılan userformdaki checkboxları işaretleyerek bu checkboxların caption'larının textboxlara yazdırılmasıdır.Textbox formatını textboxlarda gösterdim.Buna göre Textbox1'e -Örneğin " A BLOK KAT:1"- Textbox3'e - Örneğin "OCAK 1/15" şeklinde hangi checkbox seçili ise seçili olan captionlar textboxlara aktarılacak.Yardımlarınız için Teşekkür ediyorum.

 

[hamitcan]

Bu şekilde deneyin.

Private Sub CommandButton2_Click()

    For Each chk In Frame1.Controls
        If chk.Value = True Then a = chk.Caption: GoTo 10
    Next
10
For Each chk2 In Frame3.Controls
        If chk2.Value = True Then b = chk2.Caption: GoTo 20
Next
20
Sheets("Sayfa1").TextBox1 = a & " " & "Kat: " & b

For Each chk3 In Frame2.Controls
        If chk3.Value = True Then c = chk3.Caption: GoTo 30
Next
30
For Each chk4 In Frame4.Controls
        If chk4.Value = True Then d = chk4.Caption: GoTo 40
Next
40
Sheets("Sayfa1").TextBox3 = c & Chr(10) & d

End Sub

 

[seddur]

Kod için Teşekkür Ederim,çalışıyor.