Checkbox' ların en son bırakıldığı şekilde kalması

[ynmcan]

* CheckBox' ları işaretlediğimde karşılarında bulunan TextBox' lar kırmızı oluyor. Ancak UserForm' u kapatıp açtığımda CheckBox' lardaki işaretler gidiyor.

* Benim yapmak istediğim UserForm' u kapatıp açtığımda bu CheckBox' ların, ben değiştirinceye kadar en son bıraktığım şekilde kalması. Bunu bir türlü yapamadım.

* Ayrıca her CheckBox için ayrı ayrı kod yerine bunu tek kodla yapmam mümkünmü ?

* Yardımcı olursanız sevinirim.

* Örnek dosyam ekte.

 

[meslan]

Ekli dosyayı inceleyiniz.

 

[nihattt]

biraz daha genişletirsek

bu formu inceledim ve çok hoşuma gitti.
benim istediğim ise bu formdaki seçtiğimiz seçenekleri Sayfa2'deki A5 hücresine nasıl alt alta yazdırırız.

Seçim kısmı 1
Seçim kısmı 2
Seçim kısmı 3

gibi.

Örnek dosyayı inceleyip yardımcı olursanız çok sevinirim.

 

[meslan]

merhaba
forma commandbutton ekleyin.

Private Sub CommandButton1_Click()
Dim i, x, y
For i = 1 To 10
If Controls("textbox" & i) <> Empty Then
x = Controls("textbox" & i).Value
y = y & Chr(10) & x
End If
Next
Sayfa2.[a5] = y
End Sub

 

[kadirdaylight]

Arkadaşlar merhaba bi sorum olacak.. Buradaki checkboxların yanındaki textboxlar olmadan sadece checkbox ların isimlerini kayıt ettirmemiz mümkünmü? mümkünse bunun kodunu bana verebilicek biri varmı?

NOT: Oluşturduğum dosyada 15 userform ve her birinde enaz 10 checkbox var.Bu olağan birşeymi yoksa bukadar fazlasının bi zararı olurmu?