Fala, Elizandro. Depois que chutei a tomada aqui tô baixando tudo... Tá meio confuso de entender o que você quer agora. No post acima você comentou...

Experimente Sub SubstituiCódigos() Dim k As Long, d As Long, MA As Range, x As Long For Each MA In Range("L4:L" & Range("L4...

Olá, Elizandro. Não estou conseguindo baixar o arquivo do seu último post. Ao clicar para baixar trava o navegador (Fire Fox).

Olá, Camila. Veja se ajuda. Instale o código abaixo no módulo da planilha, assim: 1. copie o código daqui 2. clique com o direito na guia da planilha...

Experimente: =PROC("zzz";A1:AD1)

O fórum é gratuito e depende da boa vontade de seus usuários em ajudar e contribuir com seus conhecimentos gratuitamente, por isso peço para ser mais ...

Sub mensagemV2() If ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value = 1 Then MsgBox "marcada" Else&#...

Olá, Renata. Veja se o arquivo anexado atende.

Tipo se aparecer em qualquer célula da coluna A resultado "Fabio Sp" trocar para Funcionario1. Veja se atende. Sub SeuCódigo() '.....

Não entendi,pq colar na célula O9 se não tem nada la? Colar na 'O9' foi uma sugestão para não interferir com os dados que você colocou na amostra dis...

Olá, Renata. Experimente colar a fórmula abaixo na célula 'O9', em seguida arraste para baixo, arraste para a direita. =SE(ÉTEXTO(E9);ÍNDICE(E$9:...

Quero criar uma linha que divida em baixo do nome de cada farmácia em 2 colunas, para que eu coloque de um lado perfumaria, e do outro medicamente Se...

Se quiser experimentar uma solução que utiliza macro Instale o código abaixo em um módulo comum, assim: 1. copie o código daqui 2. a partir da planilh...

Olá, Fabio. Experimente Sub PreencheVazias() On Error Resume Next Range("A2:A" & Cells(Rows.Count, 1).Row).Speci...

em 'H8' =DESLOC($C$12;CORRESP($F$8;$C$13:$C$17);CORRESP(H5;$E$12:$H$12)+1;;) em 'H9' =DESLOC($C$12;CORRESP($F$8;$C$13:$C$17);CORRESP(I...