Tem uma funçao no arquivo postado que valida o cnpj/cpj, bem mais completo do que verificar a qtd de digitos. Dê uma olhada no post: http://w...

Experimente a formatação Personalizada: [<=99999999999]000.000.000-00;00.000.000/0000-00

Segue algumas opçoes: Identer on line: http://www.vbindent.com/?indent Este editor tem algumas funcionalidades free : http://ww...

Compartilhe seu arquivo Access. Aparentemente esta faltando incluir componentes.

Acrescente essas duas linhas no inicio do codigo que postei : Para tratar essa situação e que atenderá a condição se a celula B12 estiver vazia. Ou se...

Expermente usar a propriedade State. Se o valor for 1 entao conecta outro banco Teria que analizar seu coidigo por inteiro. Mas seria mais ou menos a...

Sgue exemplo, considerando a celula B12 da aba Original: Alterei considerando as condiçoes abaixo: CNPJ: 14 posições CPF: 11 posições Entao se o usuar...

Se sua Etiqueta tem 2 colunas conforme a imagem, voce tem que imprimir de 2 em 2. Veja o exemplo (na plan2). imprimir em sequência_1.zip

ISIDRO2016 bom dia. Para o modelo da sua impressora, tem que enviar a impresão uma-a-uma, e a cada envio, alterando a numeração. Agora, há um proble...

Experimente usar o comando Chdir antes do diretorio. Este comando irá alterar o diretório ou pasta atual. Exemplo: Chdir "D:PVPDF"

Ficaria mais ou menos assim: Private Sub btn_consultar_Click() Dim EmpFound As Range With ThisWorkbook.Sheets("banco") ...

Veja este exemplo se lhe atende: Use a formula como => Ex.: =Extenso_Valor(A1) Modelo_Extenso.zip

@hpernaf, Veja as alteracoes, inclui os titulos das colunas no Listbox1 no seu arquivo. Eu usei colunas auxiliares para criar um intervalo dos titulos...

Segue exemplo. Ajuste as suas informações (Nome da Aba, intervalos, etc..) nos locais indicados, se necessário. Sub Copiar_dados_para_uma_planilha_f...

Boa tarde, Veja agora, com as alterações: Salva no Formato *.xls (excel 97/2003 *conf. solicitado) Sub Mail_Every_Worksheet_With_Address_In_A1_PD...