Cara, acho que agora estou entendendo, mas como não sei como está o código "Copiar1, 2, 3.. ..." não sei o que está acontecendo... kkkkkkkkk...

Cara, dá uma olhada. Qualquer coisa da o grito. Abraço

fazerbem, não entendi. isso: If Range("E11") = "" Then Run "Copiar1" GoTo Segue Else If Range("F11") = &quo...

Edson Baixe a planilha e verifique a fórmula que inseri na coluna G Se foi útil, clique na mãozinha, que fica do lado da ferramenta Citar. 15_04_...

Boa tarde valdabr, Vê se ajuda. Qualquer coisa da o grito. Abraço

Cara, como não consigo fazer os testes aqui, apenas executa e vê se funciona normal como antes depois dessa atualização: Option Explicit Sub X_Lojas_...

Cluti Se for só PROCV, confira na planilha. 15_04_16_B.O EM DESENVOLVIMENTO com PROCV_Patropi.zip Se a resposta foi útil, clique na mãozinha. Dê ...

ciuti, no seu modelo temos Plan1 e Plan2, a Plan2 é que tem a formula. Pergunto : Você quer digitar na Plan1 e os dados serem transportados para a Pl...

Boa tarde dimoraes Se for só juntar as formulas, fica assim: =SE(E($B4="";$C4="");"IP";SE(E($B4=1;$C4="");&q...

Bom dia Fazerbem, Posso fazer uma mudança quase radical dando uma otimizada no código? Vou almoçar agora e quando voltar dou uma olhada. Qualquer co...

Bom dia artzn, Cara, dá para usar assim: =EXT.TEXTO(EXT.TEXTO(A9;LOCALIZAR(EXT.TEXTO(A9;LOCALIZAR("187";A9;1);19);A9)+NÚM�...

Bom dia artzn Em outra célula copie e cole a fórmula abaixo: =DIREITA(A9;PROCURAR("";A9;1)+19) Se for útil, clique na mãozinha. Dê retorn...

Bom dia edsonbono Seja bem-vindo ao fórum! Como você é novato no fórum, para facilitar a tua participação no fórum, sugiro tomar conhecimento do con...

Bom dia robo8268, Cara, não fiz testes por motivos óbvios, mas tenta assim: Dim PosErroProximo As Long Sub Graficos() Dim itens(1 To 6, 1 To 2) As ...

Bom dia artzn, Tem como dar uns dois exemplos de como chega a informação para você e qual informação quer extrair? Qualquer coisa da o grito. Abraço