ciao
in un modulo
Option Explicit
Sub Cancella()
Dim x As Long
Dim y As Long
For x = 1 To 16
For y = 2 To 7
If Cells(x, y).Interior.Color <> RGB(0, 176, 240) Then
Cells(x, y).ClearContents
End If
Next
Next
End Sub
poi collegala dove vuoi tu
[Modificato da federico460 05/01/2020 12:27]