DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CheckBox1_Click()
CheckBox1.Top = [A2:D3].Top
CheckBox1.Left = [A2:D3].Left
CheckBox1.Width = [A2:D3].Width
CheckBox1.Height = [A2:D3].Height
Sheets("datalar").Select
If CheckBox1 = True Then
Range("AS21") = "DOĞRU"
CheckBox2 = False
Else
Range("AS21") = "YANLIŞ"
End If
End Sub
Private Sub CheckBox2_Click()
CheckBox2.Top = [A4:D5].Top
CheckBox2.Left = [A4:D5].Left
CheckBox2.Width = [A4:D5].Width
CheckBox2.Height = [A4:D5].Height
Sheets("datalar").Select
If CheckBox2 = True Then
Range("AS22") = "DOĞRU"
CheckBox1 = False
Else
Range("AS22") = "YANLIŞ"
End If
End Sub