
mateusmarona
-
Posts
27 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Livros
Cursos
Análises
Fórum
posts postados por mateusmarona
-
-
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?
-
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.
-
Boa noite.
Estou reabrindo este tópico para tirar uma dúvida quanto a macro acima.
Nela, sempre menciono um range específico que vai de A2 até B20000, porém, com posso fazer se eu não sei a célula final e gostaria que a macro verificasse??
-
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
-
Valeu, cara.. salvou minha vida, pelo menos por agora..hehe, este é um trabalho muito importante para mim....
Me diz uma coisa, aproveitando. É possível inserir uma Msg box no ínicio que pergunte:
Confirma Importação de Dados:
SIM NÃO
MUITO OBRIGADO...
-
OSVALDO, ficou perfeito, muito obrigado..
Um detalhe...
Quando a macro tenta fechar o arquivo saldoemestoque, ele pergunta se eu quero manter os dados na área de transferência, e eu tenho que clicar NÃO. Tem como a macro fazer isto automático? Para que a planilha feche sozinha?
Agradeço muito pela força e ajuda tão rápída...
-
Na verdade não ajuda muito, pois achei diferente a ideia, mas agradeço.
Eu preciso que a macro abra o arquivo saldoemestoque.xls, copie os valores contidos entre A2:B20000 da plan1 e cole especial valores em A2:B20000 na plan 2 do arquivo empresa.xlsm. É Possível? Se tiver um código que ajude...
Abraço
-
Boa noite à todos.
Sou novato no fórum e em macros VBA e MUITO NECESSITADO de ajuda...
Estou trabalhando numa grande empresa e preciso desenvolver um novo modelo de análise de demanda X saldos de itens. MUITO IMPORTANTE PARA MINHA CARREIRA..
Existe uma planilha na rede que atualiza os saldos em estoque através de um Transfer .dtf, onde na coluna A estão os produtos e na B o saldo;
Eu elaborei uma planilha onde constam todos os produtos, e criei uma macro que importa os dados desta planilha da rede. Porém, preciso que ao invés de copiar as células e colar, a macro copie e cole somente os valores.
Segue meu código abaixo:
Sub ImportarDados()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Workbooks.Open Filename:="C:\Documents and Settings\ms606184\Desktop\saldoemestoque.xls"
Set wsOrigem = Workbooks("saldoemestoque.xls").Worksheets("Sheet1")
Set wsDestino = Workbooks("empresa.xlsm").Worksheets("Sheet2")
With wsOrigem
Range("A2:B20000").Copy Destination:=wsDestino.Range("A2:B20000")
End With
Workbooks("saldoemestoque.xls").Close SaveChanges:=True
MsgBox "Importação de Dados Concluída"
End Sub
Preciso dela em valores, pois utilizo a seguinte fórmula para jogar os saldos para os produtos, gerando saldo ZERO para os itens que não aparecem na lista:
=IF(ISNA(VLOOKUP(B6;Sheet2!$A$2:$B$20000;2;FALSE));0;VLOOKUP(B6;Sheet2!$A$2:$B$20000;2;FALSE))
AGRADEÇO MUITO SE ME AJUDAREM, MESMO..
Obrigado já..
Abração
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
Macro para copiar dados e colar valores na linha vazia
em Microsoft Office e similares
Postado
Me ajudem, devo ser meio burro, pois não acho o botão de novo tópico,heheheheheh