Działanie dwukierunkowe pola wielokrotnego wyboru

Cześć,

Piszę makro, które jest przyłączone do checkbox'a. Ma działać to tak, że jak kliknę checkbox to wstawia się nowy wiersz C10 oraz wpisuje się w komórkę B11 "Kwota MF". Chciałabym aby działało to również w drugą stronę, czyli jak odkliknę checkbox, to wiersz się usunie. Przypuściłam, że jak checkbox jest kliknięty, to wartość komórki C10 jest true.
Tylko jak odkliknę checkbox, to również makro czyta C10 jako true

Sub MF()

On Error Resume Next
If CheckBox1.Value.Range("C10") = True Then
    ActiveSheet.Range("C11").EntireRow.Insert = True
    Range("B11").Value = "Kwota MF"
    
ElseIf CheckBox1.Value.Range("C10") = False Then
    ActiveSheet.Range("C11").EntireRow.Insert = False

End If

End Sub

Magda Pietrzykowska napisał(a):

Cześć,

Piszę makro, które jest przyłączone do checkbox'a. Ma działać to tak, że jak kliknę checkbox to wstawia się nowy wiersz C10 oraz wpisuje się w komórkę B11 "Kwota MF". Chciałabym aby działało to również w drugą stronę, czyli jak odkliknę checkbox, to wiersz się usunie. Przypuściłam, że jak checkbox jest kliknięty, to wartość komórki C10 jest true.
Tylko jak odkliknę checkbox, to również makro czyta C10 jako true

Sub MF()

On Error Resume Next
If CheckBox1.Value.Range("C10") = True Then
    ActiveSheet.Range("C11").EntireRow.Insert = True
    Range("B11").Value = "Kwota MF"
    
ElseIf CheckBox1.Value.Range("C10") = False Then
    ActiveSheet.Range("C11").EntireRow.Insert = False

End If

End Sub

Checkbox1 umieściłem na arkuszu (kontrolka ActiveX), i obsługuję zdarzenie tej kontrolki (kod w arkuszu w którym jest checkbox:

Sprawdź:

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
ActiveSheet.Range("C11").EntireRow.Insert
Range("B11").Value = "Kwota MF"
End If

If CheckBox1.Value = False Then
    If Range("B11").Value = "Kwota MF" Then
    ActiveSheet.Range("C11").EntireRow.Delete
    Else: GoTo lastline
 
    End If
End If
lastline:
Exit Sub
End Sub