Insira esse código no objeto "Essa_Pasta_de_Trabalho" da sua Workbook: Private Sub Workbook_SheetActivate(ByVal Sh As Object) If ActiveShee...

Legal. Boa idéia. Poderia fazer de forma que, se o arquivo não estiver aberto o Excel abre uma janela de seleção pedindo para que o usuário selecion...

Segue: Insira essa fórmula em B2. =SEERRO(ESQUERDA(A2;PROCURAR(" ";A2;PROCURAR(" ";A2;1)+1));A2) Exemplo em anexo:

Segue conforme sugerido: =SEERRO(SEERRO(E(PROCV("*" & A2 & "*";B2;1;0)<>""); E(PROCV("*" & ...

Poderia usar o meu arquivo como exemplo e colocar manualmente o resultado que deseja? Feito isso, poste aqui pra gente dar uma olhada...

Clique com o botão direito sob o Userform > Ordem de tabulação

Veja se ajuda: 1- Insira a palavra em A1 2- Insira a frase em B1 3- Insira essa fórmula em C1 =SEERRO(E(PROCV("*" & A1 & "*&q...

Sub ImportarDados() On Error GoTo abrir_arquivo inicio_do_codigo: Application.EnableEvents = False Application.ScreenUpdating = False...

Seguindo o seu raciocínio inicial, poderia ser feito assim tbm: =INDIRETO("C" & SOMARPRODUTO((A2:A9="tenda da esquina")*...

Segue minha contribuição:

Segue: =SE(E(B1>=0;B1<=1000);0,86;SE(E(B1>=1001;B1<=2000);0,75;SE(E(B1>=2001;B1<=3000);0,66;SE(E(B1>=3001;B1<=4000);0,59;SE(E...

Mas é isso que a macro está fazendo. Baixe o meu anexo e você poderá conferir... Você só precisa copiar o valor desejado e , para colar, aperte o botã...

posta ai sua planilha ..

Veja se isso atende: Sub Pular_Ocutas_() Do ActiveCell.Offset(1, 0).Select Loop Until ActiveCell.EntireRow.Hidden = False ActiveS...

Veja se é mais ou menos isso o que quer: