Ir para conteúdo
Fórum Script Brasil

robatsilva

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Tudo que robatsilva postou

  1. robatsilva

    Tratamento de erro

    Bom no seu código, a única coisa q ele faz quando dá um erro é exibir a mensagem do msgbox. Quando não há erro algum ele executa essas três linhas: Selection.Interior.ColorIndex = 6 UserForm4.Show exit sub Ou seja, na normalidade, as linhas acima são executadas. Caso haja erro ele executa o que está abaixo de "saida". Se você quer que o userform seja exibido quando há erro, então mude o código para: Private Sub CommandButton2_Click() On Error GoTo saida Selection.Interior.ColorIndex = 6 'aqui será sempre executado, se houver um erro nesse código ele pula para saida. exit sub saida: 'quando há erro o programa pula para essa linhha MsgBox "Antes de excluir dados clique em LANÇAMENTOS", , "CADASTRO DE CHEQUES" UserForm4.Show 'esse userform só será exibido se houver erro. End Sub Mas de qualquer forma, mande a planilha para analisar.
  2. robatsilva

    Tratamento de erro

    Vamos então fazer um teste, deixe a linha On Error GoTo saida como comentário (colocando aspas simples na frente). Dessa forma ele encerra o procedimento no exit sub. Caso haja um erro você poderá depurar para ver. quando você clica no botão ele abre normalmente o UserForm4?
  3. robatsilva

    Tratamento de erro

    O código deve ser assim: Private Sub CommandButton2_Click() On Error GoTo saida Selection.Interior.ColorIndex = 6 UserForm4.Show exit sub saida: MsgBox "Antes de excluir dados clique em LANÇAMENTOS", , "CADASTRO DE CHEQUES" End Sub
  4. Olá. Estou tentando abrir um arquivo de nome "export.csv" via código vba no excel. Mas quando ele abre, abre totalmente desconfigurado. Quando clico no arquivo com o mouse, ele abre normalmente. Como fazer para abri-lo via VBA sem desconfigurá-lo. Já usei o comando Shell, que abriu o arquivo da forma correta, mas por esse comando não consigo manipulá-lo via VBA, pois o aplicativo não reconhece que o arquivo foi aberto. ex: workbooks.open "F:\export.csv" 'esse código abre ele desconfigurado Shell ("C:\Program Files\Microsoft Office\Office14\EXCEL.EXE " & """f:\projetos\ion\export.csv"""), vbMaximizedFocus ' ESSE CÓDIGO ABRE ELE, MAS NÃO consigo acessar ele via código para copiar algumas células e colar no arquivo onde está o código
  5. Pessoal, tenho um formulário com diversas caixa de texto que estão vinculadas a uma tabela. coloquei os botões próximo registro e registro anterior, quando clico neles eles os dados são mostrados nessas caixas de texto. Coloquei um botão com um algorítimo que realiza uma busca, e se encontrar o valor pesquisado ele coloca esse valor na primeira caixa de texto. Agora, não sei como fazer para que após inserir nessa caixa de texto o resultado da pesquisa, o formulário preencha todas as caixas de texto referentes àquele campo. Vou exemplificar melhor: A tabela vinculada possui as colunas: Matrícula Nome Nota 1 Nota 2... (até nota 10) Faltas Prova1 Prova2 O formulário possui as caixas de texto vinculadas a cada uma dessas colunas. Realizo pesquisa por matrícula, e quando encontra o valor coloca a matrícula pesquisada no txtmatrícula. Gostaria que quando isso ocorrece o restante das caixas de texto fossem atualizadas de acordo com a matrícula pesquisada... Obrigado pela atenção! Róbinson
×
×
  • Criar Novo...