mateusmarona

Me ajudem, devo ser meio burro, pois não acho o botão de novo tópico,heheheheheh

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