Ir ao conteúdo

mateusmarona

Membro Pleno
  • Posts

    27
  • Cadastrado em

  • Última visita

posts postados por mateusmarona

  1. 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.

     

     

     

  2. 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

  3. 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

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!