onur3466
Altın Üye
- Katılım
- 31 Ağustos 2019
- Mesajlar
- 186
- Excel Vers. ve Dili
- Ofis 2019 TR
- Altın Üyelik Bitiş Tarihi
- 24-11-2026
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