Notifications
Clear all

[Resolvido] Busca Responsável em Coluna Conforme Tabela

16 Posts
4 Usuários
8 Reactions
1,751 Visualizações
(@pedrobb)
Posts: 0
New Member
Topic starter
 

Na Planilha anexa, preciso retornar o responsável automaticamente na Coluna P, se qualquer Dado da Coluna O estiver na tabela Q1:T4.

Pra facilitar o entendimento, eu preenchi manualmente a coluna P.

 
Postado : 01/01/2022 3:48 pm
Tags do Tópico
(@pedrobb)
Posts: 0
New Member
Topic starter
 

Segue novo anexo.

Talvez a tabela fique melhor assim:

Responsável Id CPF Apelido
Pedro 8997785 12345678900 PEDRO
Zezinho 9977944 98765432100 ZEZINHO
Geraldo 8859838 7263600777 GERALDO
Zezito 9857486 46956998800 ZEZITO
 
Postado : 01/01/2022 6:07 pm
(@cleiton-jm)
Posts: 115
Estimable Member
 

@pedrobb Eu fiz um modelo aqui usando seu raciocínio.

Att

 
Postado : 03/01/2022 2:48 pm
pedrobb reacted
(@pedrobb)
Posts: 0
New Member
Topic starter
 

@cleiton-jm 

Muito obrigado pela atenção! Você fez a solução por VBA. Valeu!!!!

Há um probleminha. Se um dos responsáveis não tiver o Apelido, ou CPF, ou ID, ou seja, a célula estiver vazia, dá conflito.

Dá pra corrigir?

 

Grato,

Pedro

 
Postado : 03/01/2022 3:51 pm
(@cleiton-jm)
Posts: 115
Estimable Member
 

@pedrobb Correção feita!!

 
Postado : 04/01/2022 6:59 am
pedrobb reacted
(@pedrobb)
Posts: 0
New Member
Topic starter
 

@cleiton-jm 

Grato pela atenção!

Não funcionou. Eu limpei a célula T3 e cliquei em Iniciar, mas o Nome do Responsável permaneceu em P3.

 
Postado : 04/01/2022 7:32 am
(@cleiton-jm)
Posts: 115
Estimable Member
 

@pedrobb 

Eu estava considerando como base de critério também a coluna Q, ou seja, se os nomes na coluna Q existir na coluna P eu validava também. O que eu fiz foi reduzir o número de colunas que era assim: "For icol = 17 To 20" e ficou assim "For icol = 18 To 20", excluindo assim a coluna Q da base de critérios.

Sub Iniciar()

Dim ultrow, TbUltRow As Long
Dim letras, x, irow, icol As Long
Dim Dados, registro As String

ultrow = Cells(Cells.Rows.Count, "O").End(xlUp).Row
TbUltRow = Cells(Cells.Rows.Count, "Q").End(xlUp).Row
Range("P2:P100").ClearContents

For x = 2 To ultrow
Dados = Cells(x, 15).Value
registro = ""

For irow = 2 To TbUltRow

For icol = 18 To 20
registro = Cells(irow, icol).Value

If InStr(1, Dados, registro, vbTextCompare) > 0 And registro <> "" Then
Cells(x, 16).Value = Cells(irow, 17).Value
Exit For
End If

Next icol

Next irow
Next x

MsgBox ("Fim")
End Sub

________________________________

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

 

 
Postado : 04/01/2022 8:37 am
pedrobb reacted
(@pedrobb)
Posts: 0
New Member
Topic starter
 

@cleiton-jm 

Sensacional!

Show de Bola!

Muito Obrigado!!!!!!!!!!!!!!!!!!!!!!!

 

 

 
Postado : 04/01/2022 9:53 am
(@deciog)
Posts: 0
New Member
 

 pedrobb, Bom Dia.

 

Demorei mas achei uma solução por formula confere

Se foi útil, clique na mãozinha Curtir é a forma de agradecimento

Decio

 
Postado : 06/01/2022 10:14 am
pedrobb reacted
(@pedrobb)
Posts: 0
New Member
Topic starter
 

@deciog 

Decio,

Grato pela atenção!

Percebi 2 coisas:

a) a Linha 8 tá com retorno errado,

b) dá erro se alguma célula do intervalo estiver vazia.

Vide anexo.

Grato,

Pedro

 

 
Postado : 06/01/2022 10:49 am
(@deciog)
Posts: 0
New Member
 

@pedrobb , Bom Dia.

Ops, não tinha visto isso, corrigi confere

Se foi útil, clique na mãozinha Curtir é a forma de agradecimento

Decio

 
Postado : 07/01/2022 8:34 am
pedrobb reacted
(@pedrobb)
Posts: 0
New Member
Topic starter
 

@deciog 

Novamente obrigado pela atenção!

Se algum responsável Não Informar o CPF, ou o ID, ou o Apelido, continua dando erro na sua fórmula. 

Ou seja, pode acontecer de célula do Intervalo R2:T5 ficar vazia.

Agradeço se puder verificar.

 
Postado : 07/01/2022 9:28 am
(@deciog)
Posts: 0
New Member
 

@pedrobb 

Acho que agora ficou certo confere e de retorno

Abraços

Decio

 
Postado : 07/01/2022 11:11 am
pedrobb reacted
(@pedrobb)
Posts: 0
New Member
Topic starter
 

@deciog

Aí Sim!

Ficou perfeito. Muito obrigado a Você e ao Cleiton jm.

Segue anexa a planilha com as Opções por VBA e por Fórmula.

 
Postado : 07/01/2022 1:25 pm
(@edsonbr)
Posts: 0
New Member
 

@pedrobb, bom dia!

Como um estímulo a mais a quem colaborou respondendo às dúvidas, além do agradecimento textual, procure também fazê-lo clicando no ícone da mãozinha na ou nas respostas que foram úteis! Aqui no Planilhando, isso não traz nenhum débito ou consequência negativa ao membro (diferentemente do S.O., por exemplo).

 
Postado : 08/01/2022 9:20 am
deciog reacted
Página 1 / 2