checkbox'a kod uyarlama

[İhsan Tank]

merhaba arkadaşlar

Sheets("REHBER").Range("A" & Bos_Satir).Value = TextBox1.Text

bu kodu cehckbox için nasıl ayarlıyabilirim.
tik'i işaretlendiğinde açıklamayı yazacak. boş ise herhangi bir hareket görmeyecek.

 

[ynmcan]

Syn. Ihsan Tank;
Kodu aşağıdaki gibidüzenleyebilirsiniz.

If CheckBox1.Value = True Then
Sheets("Sayfa1").Range("A" & Bos_Satir). = TextBox1.Text
Else
Exit Sub
End If

 

[İhsan Tank]

Syn. Ihsan Tank;
Kodu aşağıdaki gibidüzenleyebilirsiniz.

If CheckBox1.Value = True Then
Sheets("Sayfa1").Range("A" & Bos_Satir). = TextBox1.Text
Else
Exit Sub
End If

syn : ynmcany
beni yanlış anladığınızı düşünüyorum.
ben textbox'ta yazan bu kodu nasıl checkbox'a uyarlıyabilirim diye sormuştum.
yani

Sheets("Sayfa1").Range("A" & Bos_Satir). = CheckBox1.Text

gibi
bunu denedim olmuyor.

 

[ynmcan]

Syn. Ihsan Tank;
Yine yanlış anlamadıysam. Aşağıdaki gibi kullanın.

Sheets("Sayfa1").Range("A" & Bos_Satir). = CheckBox1.[COLOR="Red"]Caption[/COLOR]

 

[İhsan Tank]

Syn. Ihsan Tank;
Yine yanlış anlamadıysam. Aşağıdaki gibi kullanın.

Sheets("Sayfa1").Range("A" & Bos_Satir). = CheckBox1.[COLOR="Red"]Caption[/COLOR]

bu kod hata veriyor

 

[İhsan Tank]

Syn. Ihsan Tank;
Yine yanlış anlamadıysam. Aşağıdaki gibi kullanın.

Sheets("Sayfa1").Range("A" & Bos_Satir). = CheckBox1.[COLOR="Red"]Caption[/COLOR]

teşekkür ederim
kod'u

Sheets("REHBER").Range("D" & Bos_Satir).Value = CheckBox1.Caption

yalnız boş bırakıldığında gene açıklamayı yazmakta
boş bırakması gerek

 

[Excelmy]

İhsan bey
Örnek eklememişsiniz ancak, birden fazla CheckBox kullandığınız varsayımı ile.
Eğer CheckBox'larda yazılanlar ayrı ayrı sütunlara işleniyorsa ;

If CheckBox1.Value = True Then
Sheets("REHBER").Range("D" & Bos_Satir).Value = CheckBox1.Caption
Else
Exit Sub
End If

Sadece D sütununa işleniyorsa bir TextBox veya Label ekledikten sonra OptionButton kullanarak bu işlemi yapmak daha pratik olacaktır.

 

[İhsan Tank]

İhsan bey
Örnek eklememişsiniz ancak, birden fazla CheckBox kullandığınız varsayımı ile.
Eğer CheckBox'larda yazılanlar ayrı ayrı sütunlara işleniyorsa ;

If CheckBox1.Value = True Then
Sheets("REHBER").Range("D" & Bos_Satir).Value = CheckBox1.Caption
Else
Exit Sub
End If

Sadece D sütununa işleniyorsa bir TextBox veya Label ekledikten sonra OptionButton kullanarak bu işlemi yapmak daha pratik olacaktır.

hocam teşekkür ederim
ben deneme yapmak için bir şeyler yapıyorum
aynı kod'u optionbutton ile yapamadım.
örnek dosya ekte
hocam kodları bu tarz yazarsanız sevinirim.
çünkü çok farklı kodları çözemeiyorum.
şimdiden teşekkür ederim

 

[Excelmy]

Sayın İhsan Tank
Ekli dosyayı inceleyiniz.

 

[İhsan Tank]

Sayın İhsan Tank
Ekli dosyayı inceleyiniz.

hocam çok teşekkür ederim.
işimi gördü yazdığınız kodlar.