Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 271 ocorrências

por Rafael Monteiro
Qua Jul 26, 2017 6:40 pm
Fórum: Modelos Prontos
Tópico: Sistema Agendamento em VBA e Outlook - 32 Bits
Respostas: 2
Exibições: 7071

Sistema Agendamento em VBA e Outlook - 32 Bits

Pessoal,

Segue modelo de Sistema de Agendamento em VBA.

Sistema tem 1 Formulário de Agendamento em VBA e Formulários Próprios do Outlook.

Bom proveito.
por Rafael Monteiro
Qua Jul 26, 2017 4:42 pm
Fórum: VBA Básico
Tópico: Atribuir Teclas de Função ... F1 F2 F3 a um multi-pagina no vba Excel
Respostas: 9
Exibições: 2869

Re: Atribuir Teclas de Função ... F1 F2 F3 a um multi-pagina no vba Excel

Boa tarde Netinho.
Ajudo sim.

Vou enviar uma mensagem no MP.
por Rafael Monteiro
Dom Jul 02, 2017 9:46 am
Fórum: VBA Básico
Tópico: msgbox com soma de caixa de seleção
Respostas: 1
Exibições: 585

Re: msgbox com soma de caixa de seleção

Roswell, Vc precisa ter uma base para a condição. (IF) Ter uma célula que conte quantas caixas de texto que foi selecionado. Então vc precisa apenas colocar a condição. Exemplo. Digamos que vc colocou a base de contagem de selecão de caixa na célula A1, o código ficaria assim: if range ("a1") > 5 th...
por Rafael Monteiro
Ter Jul 26, 2016 8:49 am
Fórum: VBA Básico
Tópico: Erro em tempo de Execução 424
Respostas: 2
Exibições: 947

Re: Erro em tempo de Execução 424

Bom dia Luciano,

O Erro "424" Indica que o código não está encontrando o objeto Chamado. Por exemplo.

Se você colocar o código. Userform2.show e esse userform2 não existir ele irá trazer o erro 424.
por Rafael Monteiro
Sex Jul 22, 2016 9:24 am
Fórum: VBA Básico
Tópico: Imprimir Planilha
Respostas: 4
Exibições: 917

Re: Imprimir Planilha

Bom dia Luciano, Fiz um ajuste no código. Copie e cole no código do botão 'Imprimir Medidas' e veja se funciona. Private Sub btpPAPELMEDIDAS_Click() ''''########### gera papel de medidas '*** FOI NECESSÁRIO CRIAR UMA CONDIÇÃO PARA HAVER UMA VERIFICAÇÃO ANTES DE INICIAR O CÓDIGO DE IMPRESSÃO If Appli...
por Rafael Monteiro
Qui Jul 21, 2016 9:11 am
Fórum: VBA Básico
Tópico: Imprimir Planilha
Respostas: 4
Exibições: 917

Re: Imprimir Planilha

Luciano,

Pelo eu entendi aqui, você precisa apenas colocar

Código: Selecionar todos

Application.Visible = True 
no inicio do código da impressão. E no fim do código você adiciona

Código: Selecionar todos

Application.Visible = False
por Rafael Monteiro
Qui Jul 21, 2016 9:01 am
Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
Tópico: Hiperlink abrir arquivo
Respostas: 2
Exibições: 1532

Re: Hiperlink abrir arquivo

Neri, Para fazer isso você tem que ir adicionando a extensão do arquivo desejado. Veja um exemplo: Dim sArquivo Dim sEspecificação As String Dim sTítulo As String sEspecificação = "Arquivos (*.pdf*)(*.Docx*)(*.xls*)(*.xlsm*)(*.mdb*),*.* " sTítulo = "Selecione um arquivo:" sArquivo = CStr(Application...
por Rafael Monteiro
Qua Jul 13, 2016 10:44 am
Fórum: Modelos Prontos
Tópico: Módulo Orçamento 2.0
Respostas: 59
Exibições: 31918

Re: Módulo Orçamento 2.0

Verifique que membro não foi encontrado e adicione.
Provavelmente é o lstvOrç. (Listview)
por Rafael Monteiro
Sex Mar 11, 2016 10:32 am
Fórum: VBA Básico
Tópico: (RESOLVIDO) ajuda com checkbox
Respostas: 2
Exibições: 588

Re: ajuda com checkbox

Nessa caso você pode usar IF. Ficaria mais ou menos assim: Private Sub CommandButton1_Click() If Me.OptionButton1.Value = True Then MsgBox "gravar os dados da textbox na linha 2 coluna N" End If If Me.OptionButton2.Value = True Then MsgBox "gravar os dados da textbox na linha 3 coluna N" End If End ...