Se celula diferente de vazia

Função se celula diferente de vazia





Sub Macro1()


Dim linha As Integer
Dim data As Date

data = A & linha
linha = 2


While ActiveCell <> ""

Range("A" & linha & ":" & "E" & linha).Select

' função se a celula a linha for diferente de vazio
' execulta o comando

If (Range("A" & linha) <> "") Then
     
        With Selection.Interior
            .Color = 65535
        End With
 
 


linha = linha + 1



End If

Wend

End Sub