
Sub copia/incolla()
a = Range("B3")
Calculate
ActiveSheet.Range("D3").FormulaR1C1 = a
End sub |
Range("a7:d7")=Range("a1:d1").value |
Sub TuaMacroAggiorna()
If Range("A1").Value = "Off" Then exit sub
'(tutto il resto della tua macro senza cambiare niente)
End Sub |
