Ir ao conteúdo
  • Cadastre-se

Macro para copiar dados e colar valores na linha vazia


Posts recomendados

Boa noite.

Estou com uma dificuldade e gostaria de ajuda.

Tenho uma planilha que uso como um Romaneio, onde digito as Notas fiscais que serão entregues ao motorista.

Porém, gostaria de utilizar este romaneio como padrão, e sempre após digitar os números de notas, rodar uma macro que copie estes dados e cole eles como valores em outra pasta do excel, porém, sempre abaixo da ultima linha que estiver preenchida, ou seja, na primeira linha vazia, pois haverá numeros de notas fiscais importadas a todo momento, e não posso substituir, pois preciso que a lista de notas digitadas no dia esteja completa no final.

Espero que possam me ajudar

Abração

Link para o comentário
Compartilhar em outros sites

  • 2 anos depois...

Bom dia!

 

Não estou conseguindo entende como faço para criar novo tópico,por isso respondo por este.

 

Estou precisando de uma macro de pesquisa que procure um valor "não exato" na planilha "Entregas" - range ("A:U"), pode ser uma palavra chave ou parte de uma palavra.

 

A macro que tenho hoje já faz a primeira parte,ou seja, ela encontra o valor, se houver alguma correspondência.

 

Porém se a macro não encontra nenhuma correspondência, ela dá erro.

 

Gostaria que fosse feita uma correção na mesma e que isto gerasse uma mensagem de "valor não encontrado".

 

Segue macro abaixo:

 

Sub PesquisaNotaFiscalemEntregas()

Dim Procurar As String

Dim localizado, EndPrimeiroItem
Application.ScreenUpdating = False
Procurar = InputBox("Digite a Nota Fiscal procurada", "Localizar Registro de Agendamento")
If Procurar = "" Then Exit Sub
Sheets("Entregas").Select
With Sheets("Entregas").Range("a:u")
Set localizado = .Find(Procurar, LookIn:=xlValues, LookAt:=xlPart)
localizado.Offset(0, 0).Select

End With


End Sub
 

 

Valeu!  Fico no aguardo.

 

 

 

Link para o comentário
Compartilhar em outros sites

Experimente

Sub PesquisaNotaFiscalemEntregas() Dim Procurar As String, localizado As Range  Procurar = InputBox("Digite a Nota Fiscal procurada", "Localizar Registro de Agendamento")   If Procurar = "" Then Exit Sub    With Sheets("Entregas")     Set localizado = .Range("A:U").Find(Procurar, LookIn:=xlValues, LookAt:=xlPart)      If Not localizado Is Nothing Then       .Activate       localizado.Select      Else: MsgBox "valor não encontrado"      End If    End WithEnd Sub
Link para o comentário
Compartilhar em outros sites

Muito obrigado!

 

Resolveu!

 

Sabes me dizer como faço para criar ma macro que, se na célula A2 tiver um número e eu escrever a palavra "sim" em B2, a macro faz esta mesma pesquisa pela valor em A2 e lança o "sim" na coluna O , na linha correspondente ao número escrito em A2?

Link para o comentário
Compartilhar em outros sites

 

Não estou conseguindo entende como faço para criar novo tópico,por isso respondo por este.

 

Utilize o botão "NOVO TÓPICO" no alto da página ;)

 

 

Sabes me dizer como faço para criar ma macro

Sei! Crie a macro... :P

 

Mas se você quer ajuda para criar a macro ou quer que alguém prepare a macro pra você, sugiro que abra um novo tópico para este novo assunto. Disponibilize uma amostra do seu arquivo com as explicações e exemplos na própria planilha.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...