Thomaz,
Se não me engano foi em um desses dois links que guardei no meu histórico que parti para a adaptação.
http://www.vbforums.com/showthread.php? ... -on-or-off
https://leegreffin.wordpress.com/2011/0 ... vba-macro/
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 36 ocorrências
- Qua Mai 31, 2017 3:23 pm
- Fórum: VBA Básico
- Tópico: Verificar se impressora padrão está desligada
- Respostas: 12
- Exibições: 10717
- Ter Mai 30, 2017 8:21 pm
- Fórum: VBA Básico
- Tópico: Verificar se impressora padrão está desligada
- Respostas: 12
- Exibições: 10717
Re: Verificar se impressora padrão está desligada
Pessoal, Resolvi esse problema adaptando uma função que achei na internet. Function PROCURAENDERECO(ByVal Area As Range, ByVal Valor_Procurado As String) If Not Area.Find(Valor_Procurado) Is Nothing Then PROCURAENDERECO = Area.Find(Valor_Procurado).Address Else PROCURAENDERECO = CVErr(xlErrNA) End I...
- Ter Mai 30, 2017 4:08 pm
- Fórum: VBA Básico
- Tópico: Verificar se impressora padrão está desligada
- Respostas: 12
- Exibições: 10717
Re: Verificar se impressora padrão está desligada
Muito obrigado,
Vou tentar adaptar.
Vou tentar adaptar.
- Qua Mai 24, 2017 4:00 pm
- Fórum: VBA Básico
- Tópico: Verificar se impressora padrão está desligada
- Respostas: 12
- Exibições: 10717
Verificar se impressora padrão está desligada
Olá pessoal, Criei um userform que precisa avisar quando a impressora padrão está desligada e quando isso acontecer coloquei uma label com o seguinte caption "Impressora desligada, verifique". Alguém sabe como fazer? Para tanto usei o seguinte código ao iniciar o formulário: Private Sub Us...
- Qui Abr 20, 2017 8:47 pm
- Fórum: Artigos do Site e Blog
- Tópico: Tratamento de erros no Excel 2013 VBA
- Respostas: 6
- Exibições: 23548
Re: Tratamento de erros no Excel 2013 VBA
Caros, Consegui acertar o código finalmente. Substitui "Dim local_imagem As String" por "Dim local_imagem as Variant" e na linha If local_imagem <> "" Then, substitui por If local_imagem <> False Then Agora está funcionando perfeitamente. Mas continua a questão de nenhu...
- Qui Abr 20, 2017 4:57 pm
- Fórum: Artigos do Site e Blog
- Tópico: Tratamento de erros no Excel 2013 VBA
- Respostas: 6
- Exibições: 23548
Re: Tratamento de erros no Excel 2013 VBA
Talvez visualizando o código fique mais fácil de enxergar minha dificuldade.
De qualquer maneira nenhum tratamento de erro está funcionando mais em
minha máquina, mas depois vejo isso.
De qualquer maneira nenhum tratamento de erro está funcionando mais em
minha máquina, mas depois vejo isso.
- Qui Abr 20, 2017 4:56 pm
- Fórum: Artigos do Site e Blog
- Tópico: Tratamento de erros no Excel 2013 VBA
- Respostas: 6
- Exibições: 23548
Re: Tratamento de erros no Excel 2013 VBA
Private Sub btn_import_Click() Dim local_imagem As String Dim cod As Integer Dim nome As String Dim LINHA As Integer Dim aviso nome = cmb_eq_cad2 LINHA = 2 If cmb_eq_cad2 = "" Then MsgBox ("SELECIONE UM EQUINO PARA IMPORTAR A IMAGEM"), vbInformation, "AVISO" Exit Sub El...
- Qui Abr 20, 2017 4:51 pm
- Fórum: Artigos do Site e Blog
- Tópico: Tratamento de erros no Excel 2013 VBA
- Respostas: 6
- Exibições: 23548
Re: Tratamento de erros no Excel 2013 VBA
Legal srobles, obrigado pela ajuda. Esse é justamente o meu problema, ou seja, sei que em determinado momento ao usar Application.GetOpenFilename(filefilter:="Picture Files,*jpg") e o usuário optar pelo "cancelar" dará erro 53, senão funciona muito bem. Dessa forma tentei utiliza...
- Qui Abr 20, 2017 1:43 pm
- Fórum: Artigos do Site e Blog
- Tópico: Tratamento de erros no Excel 2013 VBA
- Respostas: 6
- Exibições: 23548
Tratamento de erros no Excel 2013 VBA
Boa tarde pessoal, Sempre utilizei nas rotinas VBA códigos de tratamento para possíveis erros por motivos óbvios, porém de uma hora para outra eles pararam de funcionar, isto mesmo qualquer um (On Error GoTo, On Error Resume Next...etc). Peço a ajuda de vocês, pois até já desinstalei e instalei o Ex...
- Qui Set 29, 2016 7:47 pm
- Fórum: Excel - Integração com a Web
- Tópico: Extrair Dados do Site de uma companhia aérea através do Selenium VBA
- Respostas: 8
- Exibições: 7662
Re: Extrair Dados do Site de uma companhia aérea através do Selenium VBA
Boa noite Everton, O site da que o botão submit está te causando problemas comigo funcionou numa boa, as tabelas que aparecem com as opções de vôos é que são loucas. Qual comando você usa para enviar as palavras para o textbox dos sites? No caso desse site eu enviei pelo comando "Sendkeys"...
