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.

Boa tarde Netinho.
Ajudo sim.

Vou enviar uma mensagem no MP.

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...

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.

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...

Luciano,

Pelo eu entendi aqui, você precisa apenas colocar no inicio do código da impressão. E no fim do código você adiciona

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...

Verifique que membro não foi encontrado e adicione.
Provavelmente é o lstvOrç. (Listview)

Montei um exemplo exemplo pra você.

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 ...