ORDEM DA MACRO - SIMPLES  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

ORDEM DA MACRO - SIMPLES

Mensagempor tuliogomes » Qua Dez 05, 2018 9:28 pm

Boa noite pessoal !

Sou novo no grupo, queria uma ajuda por favor !
Elaborei uma macro que faz o seguinte:
Seleciona uma célula com um número
Cola o conteúdo dessa célula uma célula da planilha que pretendo fazer a busca
Chama o "Ctrl+L" e pesquisa o que está na célula que acabei de colar (não soube fazer de outra forma)

Depois disso, eu preciso que ele mude para 5 células à direita, e coloque a fórmula "Hoje()" e copie e cole essa mesma célula como valores (para que fique fixo).

No entanto, ele está colocando a fórmula antes de deslocar para a direita, e não fazendo como preciso.
Tentei fazer para chamar a macro, mas tbm não deu.
Essa é minha macro:
Código: Selecionar todos
Sub Atualizar_consulta()
'
' Ver_atualizar
'

'

    Range("B3").Select
    Selection.Copy
    Sheets("Planilha1").Select
    Range("O1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Find(What:=Range("O1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
    SendKeys ("{RIGHT 7}")
         ActiveCell.FormulaR1C1 = "=TODAY()"
     Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


Vão me ajudar muito, de verdade !!!
Obrigado !
Editado pela última vez por wagner em Qui Dez 06, 2018 7:11 am, em um total de 1 vez.
Razão: Códigos VBA devem ser inseridos com a TAG CODE existente no início da caixa de mensagens.
tuliogomes
Membro
Membro
 
Mensagens: 3
Registrado em: Ter Mai 16, 2017 1:11 pm
Has thanked: 2 times
Have thanks: 0 time

{ SO_SELECT }

Re: ORDEM DA MACRO - SIMPLES  [Resolvido]

Mensagempor wagner » Qui Dez 06, 2018 7:22 am

tuliogomes,

Bom dia!

Antes de mais nada, solicitamos, por gentileza, ao postar códigos VBA aqui no fórum, que utilize a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direita).

Quanto a sua dúvida, altere seu código para esse aqui:
Código: Selecionar todos
Sub Atualizar_consulta()
    Range("B3").Select
    Selection.Copy
    Sheets("Planilha1").Select
    Range("O1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells.Find(What:=Range("O1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
        Cells(ActiveCell.Row, ActiveCell.Column + 5).Select
        ActiveCell.Value = Date
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
tuliogomes (Qui Dez 06, 2018 9:45 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1951 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes