Copy interior color with no conditional formatting

[SERRY]

Ciao Guys!

I need help. Is there any way to copy and paste just the interior color of a selection without conditional formatting of the selection?

If I use

Cells(Riga, Colonna).PasteSpecial xlPasteFormats

it copies just also the conditional formatting of the selection, so it doesn't work.


I have this:

Sub SalvaStato()
If Cells(1, 34) <> 0 Then
Worksheets("AttivitąGiorno").Activate
fine = Cells(1, 34)
For i = 4 To fine + 3
Worksheets("AttivitąGiorno").Cells(i, 8).Copy
Riga = Cells(i, 33)
Colonna = Cells(i, 34)
Worksheets("Diario").Cells(Riga, Colonna).PasteSpecial xlPasteFormats
Next
End If
End Sub

Thank you all very much!!!

Serry :-)

[SERRY]

Ciao Guys!

I need help. Is there any way to copy and paste just the interior color of a selection without conditional formatting of the selection?

If I use

Cells(Riga, Colonna).PasteSpecial xlPasteFormats

it copies just also the conditional formatting of the selection, so it doesn't work.


I have this:

Please Login or Register  to view this content.

Thank you all very much!!!

Serry :-)

[Winon]

Post deleted.

[JOHN H. DAVIS]

This will pass the interior color from A2 to A6. (ie one range to another). Hope that helps.

Please Login or Register  to view this content.