Cells.Find(What:="28/04").Activate

[Vitor miranda de paula]

Olá, tudo certo ?

Cara, sou novo aqui e se por acaso estiver cometendo qualquer erro favor me informar.

Estou com uma dificuldade que é a seguinte, Nessa parte do "Cells.Find(What:="28/04").Activate" gostaria de trocar a data 28/04 pela data atual igual quando coloca "=hoje()" porém ao colocar apenas "Date" ou "=hoje()" não roda.

Segue abaixo completo, preciso selecionar todas as celular que possuem algo escrito abaixo da data vigente, copiar e colar para outro lugar, nesse código estou testando em uma planilha feita para testes mais só mudaria as referências. 

 

Sub CopiaECola()
'
'
'

'
    Range("B2").Select
    
    Cells.Find(What:="28/04").Activate
    
    
    ActiveCell.Offset(0, -1).Select
    
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    
    Selection.Copy
    
    Range("o1").Select
    
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    
End Sub
 

[Curso de Excel Grátis]

Estimado, as funções no VBA são em inglês, imagino que deva ser algo como now()

porém, o now() retorna a data inteira com hora e tudo , como você quer dia e mês teria que fazer algo assim

 

Format(Now, "DD/MM")

 

Cells.Find(What:=Format(Now, "DD/MM")).Activate

 

 

[Vitor miranda de paula]

Opa, grato pela atenção.

Quanto aos comandos em inglês eu tenho ciência, tentei esse método indicado e não rodou 😞 

 

Eu estou estudando sobre o "With" mas ainda não o entendi direito para aplicar ou identificar oque está de errado.

[Curso de Excel Grátis]

bom dia, o with é usando quando você quer fazer varias coisas com um objeto, e no lugar de você repetir o nome do objeto com você coloca with objeto e sai fazendo tudo, por exemplo

no lugar de 

cells(1,1).select

cells(1,1).color = 123

cells(1,1).text= "fasdfa"

você faria 

with cells(1,1) 

   .select

   .color = 123

   .text= "fasdfa"

end with

então é mais para organizar o código, se puder, disponibiliza sua planilha num link para dar uma olhada nela.