Checkbox işaretleyince Textboxa aktarsın

[manly]

Bir userform üzerinde 10 adet checkbox ve 10 adet Textbox var. checkbox1 işaretlediğimde Textbox1'e "X" eklesin. Boş geçince "-" işareti atsın. Bu sırasıyla 10 adet Checkbox için olsun. Böyle bir makro kodu istiyorum.

 

[acar6783]

Boş geçince "-" işareti atsın. Bu sırasıyla 10 adet Checkbox için olsun.

Boş geçince değil de varsayılan olarak "-" yazsanız daha uygun olur diye düşünüyorum.
Checbox 10tane ile sınırlı ise her birine ayrı kod yazabilirsiniz.
Eğer fazla olma ihtimali varsa "ClassModule" hazırlayabilirim

 

[manly]

14 adet ile sınırlı ama yinede size bırakıyorum.

 

[acar6783]

Dosyanız ektedir. İnceleyiniz...
https://yadi.sk/d/PxRLpPozgI1Gog

 

[acar6783]

Sayıya göre 10 yazan yerleri değiştirin. Texboxların ve checboxların da isimleri standart isimlere göre düzenlendi. Ona göre güncellersiniz

 

[manly]

Şu an xlsm uzantılı açamıyorum. kodu gönderebilirmisiniz excel 93 yüklü bende.

 

[acar6783]

ClassModule

Public WithEvents chcbx  As MSForms.CheckBox
Private Sub chcbx_Click()
For Y = 1 To 10
If UserForm1.Controls("Checkbox" & Y) = True Then

UserForm1.Controls("textbox" & Y) = "X"
Else
UserForm1.Controls("textbox" & Y) = "-"
End If

Next Y

End Sub

Userform

Dim chcbx(10) As New Class1



Private Sub UserForm_Initialize()

Dim X As Byte


     For X = 1 To 10

     Set chcbx(X).chcbx = Controls("Checkbox" & X)

Next X

End Sub

Bu da 2003vers.
https://yadi.sk/i/nByACN0L34IlsQ

 

[manly]

Çok Teşekkür ederim. Ellerinize sağlık...

 

[acar6783]

Rica ederim.
İşinize yaradıysa ne mutlu. Kolay gelsin

 

[manly]

Şöyle bir sorun ile karşılaştım. Userform içinde textbox ve bir buton yardımı ile sayfadan veri aratması yaptığım bir makroyu ilave edince hata veriyor.
Compile error:
Sub or function not defined

 

[acar6783]

Dosyanızı yükleyebilirseniz inceleyeyim

 

[manly]

O şu an zor. Özel kurum. Ben akşama örnek bir dosya verebilirim.

 

[manly]

Sorunu çözdüm sanırım
Dim chcbx(10) As New Class1
Bu kodu sayfanın en başında tutmam gerekiyormuştu. Arada kalınca sorun veriyor.