Colega Mauro Coutinho Obrigado pelo retorno! Seria praticamente isso. Porém ao invés de uma Sub queria trazê-la como uma Function. onde eu apenas ref...

Desculpe, o arquivo parece estar corrompido... Poderia postar novamente?

Boa tarde! Veja se é mais ou menos isso:

Acho que seria tipo isso: Application.OnKey "{Escape}", ""

Bem, acredito que seja isso então...

Colega kiwirafael , existe um caracter esquisito entre o valor. O que eu fiz foi copia-lo (mesmo não sabendo do que se trata) e usá-lo na fórmula s...

Desculpe, acho que não entendi. Você que que funcione apenas quando pressione Enter?

Veja se é isso:

Nesse caso apenas copie essa fórmula em C2 e arraste para baixo: =SE(B2<>PROC(B2;$I$2:$K$2;$I$2:$K$2);"-";PROCV(A2;$H$2:$K$7;PROC(B2;...

Tente assim: Sub encontra_coluna() Cells(15, ActiveCell.Column).Value End Sub Abçr!

isso é um pouco inseguro no sentido de garantir a lógica matemática. Até porque você não vai se preocupar em digitar parenteses (quando fosse necessár...

Dúvida: É você mesmo quem digitaria esse texto? ou ele já viria pronto de algum lugar?

Colega Synth Bom dia! com vai? Segue conforme pedido...

Tente isso: Sub LimitarCaractere() Dim lin As Long ul = ActiveSheet.Range("Z" & Rows.Count).End(xlUp).Row For i = 1...