cambiare colore al testo e alla cella con macro

[Corrado]

Salve a tutti,
volevo chiedervi come fare a cambiare tramite macro il colore di una
cella selezionata in "verde chiaro" e del colore del carattere al suo
interno in "rosso", poi copiarla nella 12ma colonna successiva e
ricambiare il colore della cella copiata in "Nessun riempimento" e del
testo in "nero" o "automatico".


Grazie in anticipo
Corrado

[Norman Jones]

Ciao Corrado

'--------------
volevo chiedervi come fare a cambiare tramite macro il colore di una
cella selezionata in "verde chiaro" e del colore del carattere al suo
interno in "rosso", poi copiarla nella 12ma colonna successiva e
ricambiare il colore della cella copiata in "Nessun riempimento" e del
testo in "nero" o "automatico".
'--------------

Prova:
'=============>>
Public Sub Tester()
Dim Rng As Range
Dim Rng2 As Range

Set Rng = ActiveCell
Set Rng2 = Rng.Offset(0, 12)

With Rng
.Interior.ColorIndex = 4
.Font.ColorIndex = 3
.Copy Destination:=Rng2
End With

With Rng2
.Interior.ColorIndex = xlNone
.Font.ColorIndex = xlAutomatic
End With

End Sub
'<<=============


---
Regards,
Norman

[Corrado]

Ottimo funziona tutto alla perfezione,
grazie mille dell'aiuto.