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

por TARSA
Qui Jul 26, 2018 7:28 pm
Fórum: Geral
Tópico: COPIAR DIRETÓRIO PARA PENDRIVE
Respostas: 3
Exibições: 1607

COPIAR DIRETÓRIO PARA PENDRIVE

Boa noite, Preciso criar um código que copie todo o conteúdo de um determinado diretório e sub diretórios do meu P.C e o sobrescreva no meu pendrive, mas não estou obtendo exito. Estou usando a seguinte linha: Sub Copiar_dir() Shell "cmd /c xcopy /y /e C:\ORIGEM\*.* F:\DESTINO\" End Sub Alguém pode ...
por TARSA
Sex Jul 14, 2017 1:46 pm
Fórum: Geral
Tópico: Compatibilidade API 32 para 64 bits
Respostas: 3
Exibições: 1772

Re: Compatibilidade API 32 para 64 bits

Funcionou perfeitamente Mikel. Obg mais uma vez.
por TARSA
Dom Jul 09, 2017 3:09 pm
Fórum: Geral
Tópico: Compatibilidade API 32 para 64 bits
Respostas: 3
Exibições: 1772

Re: Compatibilidade API 32 para 64 bits

Olá mestre Mikel,

Muito obrigado pela sua ajuda.
por TARSA
Dom Jul 02, 2017 12:11 pm
Fórum: Geral
Tópico: Compatibilidade API 32 para 64 bits
Respostas: 3
Exibições: 1772

Compatibilidade API 32 para 64 bits

Pessoal, necessito de ajuda para finalizar uma API que roda perfeitamente em 32 bits, porém em Office 64 (Excel) está apresentando erro de compatibilidade. Ela é: Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Fun...
por TARSA
Qui Jun 01, 2017 3:07 pm
Fórum: VBA Básico
Tópico: Verificar se impressora padrão está desligada
Respostas: 12
Exibições: 4251

Re: Verificar se impressora padrão está desligada

Legal seu código com os avisos. Vou testar caso precise implantar com MENSAGENS.

Valeu.
por TARSA
Qua Mai 31, 2017 6:46 pm
Fórum: VBA Básico
Tópico: Verificar se impressora padrão está desligada
Respostas: 12
Exibições: 4251

Re: Verificar se impressora padrão está desligada

Claro que sim, com maior prazer.
Lembrando que adaptei o código que enviei primeiro por engano, esse só implantei.

Abraços.
por TARSA
Qua Mai 31, 2017 3:47 pm
Fórum: VBA Básico
Tópico: Verificar se impressora padrão está desligada
Respostas: 12
Exibições: 4251

Re: Verificar se impressora padrão está desligada

Pessoal peço mil desculpas, a função de verificar se impressora está ON\OFF é a seguinte: Public Function PrinterOffline(Optional pstrPrinter As String = "Default") As Boolean Dim strWhere As String Dim objWMI As Object Dim objPrinters As Object Dim objPrinter As Object Set objWMI = GetObject("winmg...
por TARSA
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: 4251

Re: Verificar se impressora padrão está desligada

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/
por TARSA
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: 4251

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...
por TARSA
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: 4251

Re: Verificar se impressora padrão está desligada

Muito obrigado,

Vou tentar adaptar.