SILVIOFELINTO, Bom Dia! Veja se pode ser assim. Para alterar os prazos, basta alterar a linha: If CInt(Range("E" & i).Va...

Lorenzon, Se o usuário utilizar o Calc da suíte BrOffice da Oracle (que adquiriu da Sun Microsystems) ele conseguirá ver todo o seu código e poderá d...

Tiagosx, Boa Tarde! Associe o código abaixo a um botão. Sub Imprimir() ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End S...

Lorenzon, Bom Dia! Veja se é assim. Exemplo.zip

SILVIOFELINTO, Boa Tarde! Veja se é assim. ACOMPANHAMENTO.zip

Edcronos, Bom Dia! Use o código abaixo para encontrar os Combos e saber o nome de cada um. Dim Caixa As ComboBox For Each Caixa In UserForm1...

Ok. De nada! Peço que vote positivamente clicando na mãozinha ao lado da ferramenta CITAR.

bilokas, Boa Tarde! O erro está ocorrendo no evento Change do seu txtPesquisa. Lá, você tem o seguinte código: Dim i As Integer ...

Exatamente! Só isso mesmo!

Ok, Halk. Entendido. Segue após correção. Materiais (A).zip

Halk, Talvez eu não tenha entendido a sua demanda... aqui deu certo (segundo o meu entendimento! como fiz: 1 - No Combo Pesquisar Por, escolhi o ite...

Obrigado pelos elogios Amigo. Peço vota positivamente clicando na mãozinha existente ao lado da ferramenta citar.

Abra o editor do VBA (ALT+F11), vá ao menu Ferramentas, selecione o item Referências procure e marque a referência Microsoft Outlook 12.0 Object Libra...

vinniz, Bom Dia! Bem... com a planilha fechada eu não sei como é que faz! Se servir abrindo a planilha, segue o seu próprio arquivo já adaptado par...

CAIOCITO, Bom Dia! Compacte com ZIP um exemplo e anexe o mesmo aqui.