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...

Olá, Marcio. Complementando a informação do Patropi, instale o código no módulo da planilha, assim: 1. copie o código do post 2. clique com o direito ...

Veja se algum dos comandos abaixo atende. ActiveWindow.Visible = False Windows("NomeDoArquivo").Visible = False

Experimente Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$5" Then Exit Sub On Error Resume Next ...

Sub PreencheVazias() Range("A2:A" & Cells(Rows.Count, 1).Row).SpecialCells(xlBlanks).Value = "N/A" ...

em 'J2', arraste para baixo e para a direita =ÍNDICE($C:$C;(LIN(A2)-2)*8+COLUNA(C1)) obs. algumas versões do Excel utilizam COL em lugar de COLU...