OK. Por favor, quando estiver OK, vote positivamente.

Então... anexe seu arquivo aqui.

m.bessa, OK. Para testar, insira seu email na coluna A e na linha onde for aparecer a palavra ATRASADA em qualquer uma das colunas F, P ou S. Veja s...

eduardoabp, Bom Dia! Vem... não entedi exatamente qual é a sua demanda mas... veja: para fazer referência a uma célula com um valor oculto você pod...

Glaudemir, Bom dia! Tente assim: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target...

m.bessa1, Bom dia! Desculpe... tem como compactar com ZIP?

Juauvitor, O projeto está bloqueado com senha.

aorms, Veja se é assim. Intervalos dentro da função SE.zip

Opa! Há um pequeno equívoco no código anterior. Considere este: Sub GetSheets() Dim j As Integer Dim NumSheets As Integer ...

Sub GetSheets() Dim j As Integer Dim NumSheets As Integer NumSheets = Sheets.Count For j = 1 To NumShe...

badchico, Boa Tarde! Fiz através de código VBA. Veja se assim lhe atende. balanço.zip

robertonl, Boa tarde! Para "puxar dados" de qualquer planilha do seu arquivo, estando em qualquer lugar (qualquer planilha ativa) você dev...

felipebc, Boa tarde! Veja se é assim. Salvar em PDF com Condição.zip

rbac.sp, Bom dia! Anexe, aqui mesmo no fórum, um exemplo compactado com ZIP do seu arquivo. Podem ser dados fictícios caso queira, todavia, com o la...

gustavo.silva, Bom dia! Supondo que o nome do arquivo esteja na célula A1, use assim: ChDir ActiveWorkbook.Path ActiveWorkbook.S...