errore run-time 1004

Question

Buongiorno

Quando vado a selezionare la casella di controllo mi viene restituito alcune volte l'errore di run-time 1004 (Metodo Range dell'oggetto Worksheet non riuscito). Come posso risolvere? grazie 

Sub ck4()

txtCellaPL_UP = "L20"

txtCellaMass_UP = "E20"

txtCellaSynd_UP = "1221"

If Foglio1.CheckBox4.Value = True Then

Foglio1.Range(txtCellaPL).Value = Foglio1.Range(txtCellaPL_UP).Value                     <-------errore!

Range(txtBenck).Value = Range("R27")

Foglio1.Range(txtCellaMass).Value = Foglio1.Range(txtCellaMass_UP).Value

Foglio1.Range(txtCellaSynd).Value = txtCellaSynd_UP

Foglio1.Range(txtCellaPL_UP).Interior.Color = RGB(225, 255, 153)

Foglio1.Range(txtCellaMass).Interior.Color = RGB(225, 255, 153)

Foglio1.Range(txtCellaPL).Interior.Color = RGB(225, 255, 153)

Foglio1.Range(txtCellaSynd).Interior.Color = RGB(225, 255, 153)

End If

Answer 1

Ciao Salvatore,

Quando vado a selezionare la casella di controllo mi viene restituito alcune volte l'errore di run-time 1004 (Metodo Range dell'oggetto Worksheet non riuscito). Come posso risolvere? grazie 

Sub ck4()

txtCellaPL_UP = "L20"

txtCellaMass_UP = "E20"

txtCellaSynd_UP = "1221"

If Foglio1.CheckBox4.Value = True Then

Foglio1.Range(txtCellaPL).Value = Foglio1.Range(txtCellaPL_UP).Value                     <-------errore!

Non credo che tu abbia definito il valore dell'espressione txtCellaPL.

===

Regards,

Norman

Answer 2

Ciao Salvatore,

vero, la variabile txtCellaPl era vuota.

Grazie mille per la risposta Norman.

Ti ringrazio del gentile riscontro.

===

Regards,

Norman

Answer 3

vero, la variabile txtCellaPl era vuota.

Grazie mille per la risposta Norman.