Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
problemas com Case
 
Notifications
Clear all

problemas com Case

 
2024 - VBA & Macros
Post Recente por Wagner Morel 6 anos atrás
3 Posts
3 Usuários
0 Reactions
933 Visualizações
RSS
 paulovitor
(@paulovitor)
Posts: 29
Eminent Member
Topic starter
 

pessoal, estou tentando fazer um codigo que percorra uma quantidade de linhas e retorne valores dessas linhas.

todavia, conforme planilha anexa, nao funciona com Case da maneira que coloquei. Devo estar perdendo alguma coisa. Funciona se eu usar If.

no caso, na celula d1, deveria retornar o valor de a16. d2 retornaria o valor de a18, d3 retornaria o valor de a20.
esta dando erro jah na primeira tentativa, retornando o valor de a20 em d1.

embora com If pareça dar certo, fica um pouco contraproducente.
anexei a planilha e o codigo.

 
Postado : 21/08/2018 8:38 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Se não houver necessidade de VBA, faça assim:
Insira essa fórmula em D1 finalizando com Ctrl +Shift + Enter e depois arraste para baixo:

=INDIRETO("A" & CORRESP(C1;ESQUERDA($A$2:$A$268;12);0)+1)

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 21/08/2018 8:49 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

paulovitor,

Bom dia!

Não sei exatamente o que você está tentando fazer. Todavia, a função InStr devolve apenas a posição onde o texto procurado foi encontrado. Desse modo, não tem como usar Select Case desse modo.

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 : 21/08/2018 8:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico