Jump to content
Fórum Script Brasil
  • 0

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


Question

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
 

Link to post
Share on other sites

2 answers to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149264
    • Total Posts
      645605
×
×
  • Create New...