Um If logo depois de End With, talvez? If CaixaDialogo = vbNullString Then Exit Sub Ou um GoTo, para logo depois do Else (caso queira continuar a s...

O AutoFiltro não ajudaria? Selecionando e filtrando tudo, e classificando por número 1 e 2?

Olá! Veja se a solução a seguir te atende: No código do seu Userform, coloque: Option Explicit Private Sub UserForm_Initialize() Call ...

O arquivo que você enviou veio sem os módulos de macro. Para todos os efeitos, tirei o critério para selecionar (de fato SELECIONAR a célula) para ap...

Poste via opção "Anexar", por favor. Não tenho acesso a links externos por aqui =) Última dúvida. Se houver célula preenchida, pintar o form...

Seria interessante entender mais algumas coisas, e, se for possível, anexar aqui um exemplo da planilha (se tiver dados privados, mude-os por fictício...

Você realmente precisa da propriedade SpecialCells? Caso não, só removê-la e a macro vai pintar esse intervalo, independente de ter valores ou não. Ca...

Dois pontos: 1. No Índice, você apontou apenas uma coluna - A -, quando deveria ter apontado também a coluna B; e, 2. No Corresp, você não apontou a c...

O que você pode fazer é selecionar o Módulo onde você gravou a Macro, ir em Arquivo/Exportar Arquivo. Assim será criado um arquivo *.bas. Para usar em...

Seria possível postar uma planilha de exemplo?

Ok, consegui ver a planilha. Pra mim isso aqui resolveu: =SE(E(R8<>"";R8<>"-");SE(R8=O8;"Pago no vencimento"...

Como não consegui ver a planilha, uma solução que consegui foi essa: =SE(C2<>"";SE(C2=B2;"Pago no vencimento";SE(C2>B2;&q...

Tenta assim: Sub Sel8Fim() Dim a As Integer Sheets(8).Select For a = 8 To Sheets.Count Sheets(a).Select (False) 'Esse argumento vai ma...

Olá! Eu fiz por VBA, conforme o código acima. Não tenho uma solução direta por fórmulas, mas vou postar aqui o código modificado e a planilha atualiza...

Claro! Só baixar a planilha anexa. 1a10000.xlsx