Call checkboxxGuncelle(Guncelle, 16, CheckBox_BioClimatic) '16 demek
yukardaki gibide devam edin abey diğerlerine.Normalde iff çalışıyor hangisini isterseniz onu kullanın.PHP Kod:
Sub checkboxxGuncelle(deger As Long, sutun As Byte, checboxad As MSForms.CheckBox)
With ThisWorkbook.Worksheets("Ana_Sayfa")
If checboxad.Value = True Then
.Cells(deger, sutun) = "Evet"
ElseIf checboxad.Value = False Then
.Cells(deger, sutun) = "Hayýr"
End If
End With
End Sub