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 269 ocorrências

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: 569

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: 927

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: 890

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: 890

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: 1486

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: 31549

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: 575

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 ...
por Rafael Monteiro
Seg Fev 29, 2016 1:07 pm
Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
Tópico: Hiperlink em Form Excel[RESOLVIDO].
Respostas: 8
Exibições: 1731

Re: Hiperlink em Form Excel

Adicionei um exemplo, veja se isso ajuda.
Teste hiperlink.rar
Hiperlink
(12.21 KiB) Baixado 144 vezes