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

por pedrobb
Seg Abr 28, 2014 9:37 pm
Fórum: VBA Básico
Tópico: Erro 13 Tipos Incompatíveis em Form
Respostas: 2
Exibições: 6546

Re: Erro 13 Tipos Incompatíveis em Form

Obrigado, Rafael.
Era isso mesmo.
Grato,
Pedro
por pedrobb
Sáb Abr 26, 2014 9:17 am
Fórum: VBA Básico
Tópico: Erro 13 Tipos Incompatíveis em Form
Respostas: 2
Exibições: 6546

Erro 13 Tipos Incompatíveis em Form

Tá dando o erro: Erro em tempo de execução '13': Tipos incompatíveis. FIM ou DEPURAR.
Ocorre ao fechar o formulário.
Ao depurar, na rotina de Cálculo do CPF, mostra a linha: total = total + Mid(Numero, i, 1) * fator, da função calculadigito.

Espero ajuda,
Pedro
por pedrobb
Qui Mar 13, 2014 9:33 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Exportar Valor para Outra Planilha
Respostas: 2
Exibições: 560

Re: Exportar Valor para Outra Planilha

Consegui: Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim KeyCells As Range Dim L As Integer Set KeyCells = Range("E17") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing And Range("E17").Value <> "" Then L = Application.WorksheetFunc...
por pedrobb
Qui Mar 13, 2014 8:35 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Exportar Valor para Outra Planilha
Respostas: 2
Exibições: 560

[RESOLVIDO] Exportar Valor para Outra Planilha

Em Vba, como devo fazer para Exportar o valor da célula E17 (planilha Menu) para a última célula vazia da Coluna C (da planilha Dados)?
por pedrobb
Sáb Jul 28, 2012 12:54 pm
Fórum: VBA Básico
Tópico: Validação de Dados
Respostas: 8
Exibições: 1965

Re: Validação de Dados

Very Good!
Isso mesmo que eu precisava.
Obrigado, amigo.
Pedro
por pedrobb
Sáb Jul 28, 2012 8:37 am
Fórum: VBA Básico
Tópico: Validação de Dados
Respostas: 8
Exibições: 1965

Re: Validação de Dados

JoseA, Obrigado pela ajuda. Tá dando conflito, pois já tenho a Worksheet_Change abaixo: Private Sub Worksheet_Change(ByVal Target As Range) If Not Range("A15") Is Nothing Then If Range("a15") = "PARABÉNS!" Then Alarme1 End If If Range("a15") = "" Then Sheets("Dados").Label2.Visible = False End If En...
por pedrobb
Qua Jul 25, 2012 8:41 pm
Fórum: VBA Básico
Tópico: Validação de Dados
Respostas: 8
Exibições: 1965

Validação de Dados

Em uma seleção de células (B5:P5) uso a validação de dados para Não Permitir valores Repetidos: =NÃO(CONT.SE($B5:$P5;B5)>1)
Funciona muito Bem.

Agora preciso que o Intervalo aceite somente Valores de 01 a 99.

Pode ser por VBA ou Excel. Alguém pode ajudar?

Grato,
Pedro
por pedrobb
Qua Jul 25, 2012 12:49 pm
Fórum: VBA Básico
Tópico: Verificar conexão com Internet
Respostas: 2
Exibições: 748

Verificar conexão com Internet

Para verificar conexão com a Internet, Tentei usar a função abaixo: Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _ (ByRef lpdwFlags As Long, _ ByVal lpszConnectionName As String, _ ByVal dwNameLen As Integer, _ ByVal dwReserved As Long) _ As Long Dim sConnType As String * 2...