none
Localizar dado e substituir a informação ao lado Excel RRS feed

  • Pergunta

  • Olá, criei uma macro que tem como objetivo debitar a quantidade do produto inserido em um campo de dados. Como não tenho grande conhecimento em VBA, fiz todos os cálculos na própria planilha e utilizei a macro apenas para substituir a nova quantidade já debitada e informar se é necessário pedir mais produtos.

    O meu problema é na hora de substituir a quantidade debitada. Não consigo programar a macro para localizar o produto na base de dados e substituir a quantidade que fica na coluna ao lado. Alguém pode me ajudar?

    Segue a macro atual:

    Sub Teste()
    '
    ' Teste Macro
    '

    '
        Range("L6").Select
        Selection.Copy
       

    Range("E14").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

    :=False, Transpose:=False


        
        If Range("M6") < 999999 Then
            MsgBox "Ok."
        
        End If
        
        If Range("M6") = 999999 Then
            MsgBox "Pedir mais Embalagens."
        
        End If
        
    End Sub

    A parte grifada mostra o local onde a localização e substituição deve ser feita.

    Obrigada.

    sexta-feira, 6 de março de 2015 12:51

Respostas

Todas as Respostas

  • Estou assumindo que você tem mais de um produto diferente.

    Talvez se você detalhar como é a estrutura da sua pasta de trabalho (em termos de colunas e linhas) e funcionamento, poderá haver uma solução melhor, poderia detalhar?


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 6 de março de 2015 15:18
    Moderador
  • Obrigada Felipe,

    Eu já consegui resolver o problema.

    :)

    segunda-feira, 9 de março de 2015 17:58