işaretli olanını nasıl yazdırırım?

[Amaxx]

Bir hücreye 3 seçenekli checkboxlardan işaretli olanını nasıl kaydederim?

yani;

ActiveCell.Offset(0, 11).Value = (checkbox1.caption - checkbox2.caption - checkbox3.caption)

 

[Orion1]

checkbox'lar çalışma sayfasındamı.Userform'damı?

 

[Amaxx]

checkbox'lar userform' da

 

[Orion1]

Aşağıdaki kodları userform'un kod sayfasına yapıştırınız.

Private Sub CheckBox1_Click()
Dim deg As String
ActiveCell.Offset(0, 11).Value = ""
If CheckBox1.Value = True Then deg = CheckBox1.Caption
If CheckBox2.Value = True Then deg = deg & " " & CheckBox2.Caption
If CheckBox3.Value = True Then deg = deg & " " & CheckBox3.Caption
ActiveCell.Offset(0, 11).Value = deg
End Sub

Private Sub CheckBox2_Click()
Dim deg As String
ActiveCell.Offset(0, 11).Value = ""
If CheckBox1.Value = True Then deg = CheckBox1.Caption
If CheckBox2.Value = True Then deg = deg & " " & CheckBox2.Caption
If CheckBox3.Value = True Then deg = deg & " " & CheckBox3.Caption
ActiveCell.Offset(0, 11).Value = deg

End Sub

Private Sub CheckBox3_Click()
Dim deg As String
ActiveCell.Offset(0, 11).Value = ""
If CheckBox1.Value = True Then deg = CheckBox1.Caption
If CheckBox2.Value = True Then deg = deg & " " & CheckBox2.Caption
If CheckBox3.Value = True Then deg = deg & " " & CheckBox3.Caption
ActiveCell.Offset(0, 11).Value = deg

End Sub

 

[Amaxx]

hocam n' olur af buyurun, bunun daha kısa bir yolu yok mudur? o kadar çok seçenekli sorum var ki formumda?

 

[Orion1]

hocam n' olur af buyurun, bunun daha kısa bir yolu yok mudur? o kadar çok seçenekli sorum var ki formumda?

Userform'a bir tane commandbutton koyun.
Ve aşağıdaki kodları ona yapıştırın.
Sonra butona tıklayın.

Dim deg As String
ActiveCell.Offset(0, 11).Value = ""
If CheckBox1.Value = True Then deg = CheckBox1.Caption
If CheckBox2.Value = True Then deg = deg & " " & CheckBox2.Caption
If CheckBox3.Value = True Then deg = deg & " " & CheckBox3.Caption
ActiveCell.Offset(0, 11).Value = deg

 

[Amaxx]

hocam elinize sağlık, teşks