Ekşi Duyuru

dosyanda başka neler var bilmiyorum ama "nesne" olarak sadece checkbox'lar varsa;

bul ve seç -> özel git -> nesneler -> ok

ya da;

Sub sec()
ActiveSheet.DrawingObjects.Select
End Sub

mahallenindelisi

baska nesnelerim var.
şöyle birsey denedim fakat olmuyor nerde sorun war anlayamadım..

Sub OnayKutusu5_Tıklat()
If onaykutusu5.Value = Checked Then
onaykutusu6.Checked
Else: onaykutusu6 = Empty
End If
End Sub

doan

"onaykutusu5" i tanımlamamışsın ki! "set as onaykutusu5 bilmem ne" gibi bir tanımla yapman lazım yamulmuyorsam..

mahallenindelisi

checkbox için nasıl bir tanımlama yapıcam peki??

doan

soruyu yanlış anladım ben sanırım. eğer tüm "checkbox"lara "tick" koymak istiyorsan;


Sub CheckBox1_Click()
Dim cb As CheckBox
If ActiveSheet.CheckBoxes("Check Box 1").Value Then
For Each cb In ActiveSheet.CheckBoxes
If cb.Name <> ActiveSheet.CheckBoxes("Check Box 1").Name Then
cb.Value = True
End If
Next cb
End If
End Sub

mahallenindelisi

buda yemedi yaa..
neyse artık olmıcak bu iş sanırsam.
tesekkur ettim ilgin icin.

doan

yardımcı olamadım ama excel.web.tr'ye sorabilirsin. mutlaka yardımcı olurlar.

mahallenindelisi