Olá veja se isso ajuda: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = 0 Target.Interior...

Segue: =SEERRO(ÍNDICE($I$2:$I$17;SEERRO(CORRESP(1;($H$2:$H$17=A2)*(MÊS($G$2:$G$17)=MÊS(B2))*(ANO($G$2:$G$17)=ANO(B2));0);"&q...

JNEXCEL Bom dia! Quanto a ficar oculto não sei dizer mas tente o seguinte: Sub mensagem() If ActiveWorkbook.Name = "Controle de Clientes ...

Desculpe me confundi aqui. Segue corrigido. Sub Iniciar() [a1].NumberFormat = "mm:ss" [a1].Value = [...

Clique com o botao direito na célula em amarelo. (Jan) Vá até formatar células >> "Personalizado" >>No campo tipo, digite: mmm ...

Na verdade pra mim não aparece esse GIF Só dá um erro tipo: "Método ou membro de dados não encontrado"

Veja se é assim:

Veja se ajuda: http://www.tomasvasquez.com.br/forum/viewtopic.php?t=3416

Tente algo tipo isso: Ocultar vazias: Sub Ocultar() Application.ScreenUpdating = False For i = 1 to 70 If Sheets(i).range("C4")&#...

E quais são esses campos?

Segue: Sub Abrir() arquivo = Application.InputBox("Digite o nome do arquivo") Workbooks.Open ("C:Usersandre.arruda...

Insira um módulo e cole esses dois códigos. Acredito que dará certo. Sub Iniciar() [a1].Value = Format([a1], "hh:mm...

Tente remover essa linha: Sheets("Demurrage_Info").Select e alterar a linha seguinte para: Set Intervalo = Sheets("Demurrage_Info&...

Veja se é isso: Private Sub Worksheet_Change(ByVal Target As Range) Dim UL As Long If Target.Column = 2 Then ActiveSheet.Unprot...

Desculpe pra mim apareceu isso no segundo link: