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 |