Salve, ho questo problema
devo scambiare dati tra due celle scelte manualmente
ed ho trovato qui sul forum questo codice che funziona, ma mi siccome le mie sono celle colorate in base al contenuto, questo codice non mi copia anche la formattazione , come posso fare?
questo il codice che ho adesso
Sub inverti()
ActiveSheet.Unprotect
Dim cella1 As Variant
Dim cella2 As Variant
Dim cella As Range
Dim indir(2) As String
Dim i As Byte
If Selection.Count <> 2 Then
MsgBox "Devi selezionare esattamente due celle"
Exit Sub
End If
i = 0
For Each cella In Selection.Cells
indir(i) = cella.Address
i = i + 1
Next
cella1 = Range(indir(0)).Value
cella2 = Range(indir(1)).Value
Range(indir(1)).Value = cella1
Range(indir(0)).Value = cella2
ActiveSheet.Protect
come posso modificarla per fare in modo che mi copi anche il colore di ogni cella e scambiarlo insieme ai dati?
grazie mille in anticipo
Rispondi quotando