Da cella a flag checkbox in una userform

Question

Correlato a: Excel - Controllo Frame e UserForm. Alcuni esempi - VBA

Salve a tutti... ho bisogno di un aiutino......

Ho una userform con cui gestisco una tabella di dati ,in questa userform ho inserito una checkbox che se fleggata mi riporta "SI" in una cella.

Riesco a scrivere nelle celle ma vorrei che quando vado leggere dalle celle con la userform se nella cella c'è il valore "SI" mi riporti il flag nella checkbox

e se invece non c'è il valore "SI" la checkbox rimanga da fleggare.

Spero di essere stato chiaro ,di seguito il codice con cui scrivo con a checkbox.

Private Sub cmdInserisci_Click()

    With Me

        If Len(.txtCommessa.Text) = 0 Then

            MsgBox _

                "Nessuna valore in Nome(chiave primaria)" _

                , , "Attenzione"

            Exit Sub

        End If

    End With

    With sh

        .Unprotect Password:="Pippo"

        lUltRiga = lUltRiga + 1

        .Range("A" & lUltRiga).Value = _

            Me.txtPRC.Text

        .Range("B" & lUltRiga).Value = _

            Me.txtCommessa.Text

        .Range("C" & lUltRiga).Value = _

            Me.ComboBoxCategorico.Value

        .Range("D" & lUltRiga).Value = _

            Me.ComboBoxProvenienza.Value

'controllo CHeckBox

If CheckBox1.Value = True Then

  Range("E" & lUltRiga).Value = "SI"

Else

Range("E" & lUltRiga).Value = ""

End If

                .Protect Password:="Pippo"

    End With

    Call mPulisciTextBox

    Me.cmdInserisci.Enabled = False

End Sub

Grazie a chiunque mi dia una mano.....

Answer 1

Riesco a scrivere nelle celle ma vorrei che quando vado leggere dalle celle con la userform se nella cella c'è il valore "SI" mi riporti il flag nella checkbox

e se invece non c'è il valore "SI" la checkbox rimanga da fleggare.

Spero di essere stato chiaro ,di seguito il codice con cui scrivo con a checkbox.

...

Se ho capito bene, non devi fare altro che il test al contrario.

...

  If Range("E" & Riga).Value = "SI" Then

    CheckBox1.Value = True

  Else

    CheckBox1.Value = False

  End If

...

Answer 2

Perfetto nella sua semplicità (ci sarei dovuto arrivare) ........grazie !