Notifications
Clear all

Planilha Orçamentaria

6 Posts
2 Usuários
0 Reactions
1,307 Visualizações
(@jcsjunior)
Posts: 4
New Member
Topic starter
 

Ola pessoal,

Sou novo no fórum, estou algumas duvidas sobre uma planilha orçamentaria que estou desenvolvendo.

Escrevi esse código, e esta sempre dando erro.

Sub procv()

    Dim i As Integer
    FinalRow = Cells(Rows.Count, 2).End(xlUp).Row
    
    For i = 9 To FinalRow
    
        Cells(i, 2) = Application.WorksheetFunction.VLookup(Cells(i, 2), Worksheets("EQUIPE").Range("a:d"), 2, 0)
                       
    Next i
    
     
End Sub

Vocês podem me ajudar

 
Postado : 04/05/2018 12:58 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

jcsjunior,

Boa tarde!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Algumas solicitações especiais que pedimos, por gentileza, ficar atento:
1 - Não inserir no titulo de suas postagens expressões como Help, Ajuda, etc. O título deve ser um resumo da sua necessidade para que outras pessoas que tenham a mesma dúvida possam efetuar a pesquisa e achar como foi resolvido.
2 - Não insira em suas mensagens frases todas escritas em letras maiúsculas. Isso, na Internet, é compreendido como gritos e muitos usuários sequer respondem somente por esse fato!
3 - Insira sempre um arquivo exemplo compactado com .ZIP aqui mesmo no fórum. Existe, logo abaixo da caixa de mensagens, uma aba chamada "Adicionar um anexo" para essa finalidade. O arquivo exemplo deve ser pequeno, com apenas 5 linhas no máximo, compactado com .ZIP e ter o mesmo layout (nome do arquivo, nome das abas/guias/folhas, mesma linha/coluna onde os dados se iniciam) do arquivo original.
4 - Não utilize a ferramenta CITAR para inserir o inteiro teor das mensagens que lhe são encaminhadas como resposta. Citações, se estritamente necessárias ao entendimento da mensagem que você quer enviar, devem ser apenas de pequenos trechos das mensagens.
5 - Se for postar códigos VBA aqui no fórum, utilize a ferramenta CODE localizada logo no início da caixa de mensagens (quinto botão da esquerda para a direita). As linhas de código devem ficar entre as palavras "CODE e /CODE".
6 - Agradeça sempre às pessoas que lhe responderam e às mensagens que atenderam a necessidade de sua demanda. Esse agradecimento deve ser clicando na mãozinha que fica localizada ao lado da ferramenta CITAR. Lembre-se: o fórum é gratuito e esse é o único incentivo para as pessoas que prestam ajuda. Você pode agradecer a quantos usuários quiser.
7 - O título não deve ser escrito todo em letras maiúsculas.

Quanto a sua demanda, qual é o erro que ocorre? Anexe o arquivo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 04/05/2018 1:04 pm
(@jcsjunior)
Posts: 4
New Member
Topic starter
 

Ok

Wagner.

 
Postado : 04/05/2018 1:07 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

De forma rápida, o que pude perceber é que você está atribuindo na coluna B a mesma coluna B que está procurando. Se for isso, creio que o VBA não acha. Você deveria estar colocando na coluna B, por exemplo, algo que procura na coluna A. Aí sim, o resultado será correto. Todavia o código é esse:

Sub procv()

    Dim i As Integer
    Dim FinalRow As Long
    FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
   
    For i = 9 To FinalRow
   
        Cells(i, 2) = Application.WorksheetFunction.VLookup(Cells(i, 1), Worksheets("EQUIPE").Range("a:d"), 2, 0)
                       
    Next i
   
     
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 04/05/2018 1:16 pm
(@jcsjunior)
Posts: 4
New Member
Topic starter
 

Obrigado pela ajuda.

 
Postado : 04/05/2018 4:13 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

De nada!

Vote positivamente clicando na mãozinha ao lado da ferramenta CITAR.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 04/05/2018 4:22 pm