Checkbox'un Adını Hücreden Aldırmak

[mustafa1205]

Örnek dosyada user formda bulunan CheckBox' ların adını yani caption nu sayfa1 deki A1,A2,A3 hücresinde bulunan veriyi yazdırabilirmiyiz. Buna imkan var mı acaba ?

 

[vardar07]

Merhaba. Aşağıdaki gibi denermisin.

Private Sub UserForm_Initialize()
CheckBox1.Caption = Sheets("sayfa1").Range("A1")
CheckBox2.Caption = Sheets("sayfa1").Range("A2")
CheckBox3.Caption = Sheets("sayfa1").Range("A3")
End Sub

 

[Merhum İdris SERDAR]

.

Alternatif:

Private Sub UserForm_Initialize()

Dim Sheets(1) As Object

With Sheets(1)
CheckBox1.Caption = [A1]
CheckBox2.Caption = [A2]
CheckBox3.Caption = [A3]

End With

End Sub

.

 

[mustafa1205]

Sayın Vardar07 ve Sayın Yurttaş Hocam. Öncelikle hayırlı bayramlar diliyorum. Kodlar çok güzel çalıştı. Ellerinize sağlık. Çok teşekkür ediyorum. İyi çalışmalar...