ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

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

por Rafael Monteiro
Sex Jul 22, 2016 9:24 am
Fórum: VBA Básico
Tópico: Imprimir Planilha
Respostas: 4
Exibições: 1442

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

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

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: 60
Exibições: 39379

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

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

Re: Hiperlink em Form Excel

Adicionei um exemplo, veja se isso ajuda.
Teste hiperlink.rar
Hiperlink
(12.21 KiB) Baixado 207 vezes
por Rafael Monteiro
Seg Fev 29, 2016 9:25 am
Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
Tópico: Hiperlink em Form Excel[RESOLVIDO].
Respostas: 8
Exibições: 2693

Re: Hiperlink em Form Excel

Sim, é que a referência já está englobada então não há necessidade de colocar o =

Insira o código assim:

Código: Selecionar todos

ThisWorkbook.FollowHyperlink textbox1.value 
por Rafael Monteiro
Seg Fev 29, 2016 8:25 am
Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
Tópico: Hiperlink em Form Excel[RESOLVIDO].
Respostas: 8
Exibições: 2693

Re: Hiperlink em Form Excel

Bom dia,
Esse é o código:

Código: Selecionar todos

ThisWorkbook.FollowHyperlink "http://www.tomasvasquez.com.br/forum/index.php"