Como substituir data no VBA


#1

Boa tarde a todos!
Como substituir data no VBA

Sub LimparCelular()
For Each Y In Range(“C4”, “N35”)
'Como subistituir esta data com a data da célula O1
If Y <= “02/05/2018” Then Y.Clear
Next
End Sub


#2

Voce esta perguntando ou oferendo uma forma de substituir data?

Por favor redija melhor seu texto


#3

everton, boa tarde!
Estou precisando substituir
Data igual a data da célula O1
para não precisar ficar trocando data
só mudar a data em O1
If Y <= “O1” Then Y.Clear


#4

Já Consegui
Obrigado


#5

SSP, uma dica apenas e sempre importante programar declarando as variáveis vir que o Y não esta declarado. mais a logica e boa. fica a dica


#6

Willian, bom dia!
Obrigado pela observação.
Funcionou assim.
Sub LimparCelular()
Application.ScreenUpdating = False
For Each Y In Range(“C4”, “N35”)
If Y <= [O1] Then Y.ClearContents
Next
Application.ScreenUpdating = True
End Sub