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

por milton
Seg Ago 12, 2019 7:32 am
Fórum: VBA Básico
Tópico: [Resolvido] Contador de linhas por intervalo - Excel vba
Respostas: 2
Exibições: 120

Re: Contador de linhas por intervalo - excel vba

Tov Elen Shau é isso mesmo.
Muito obrigado!!!
por milton
Sex Ago 09, 2019 4:45 pm
Fórum: VBA Básico
Tópico: [Resolvido] Contador de linhas por intervalo - Excel vba
Respostas: 2
Exibições: 120

[Resolvido] Contador de linhas por intervalo - Excel vba

Boa tarde pessoal. Estou precisando de uma ajudinha. Tenho esse contador que faz a contagem de linhas preenchidas a partir da célula B19, e funciona perfeitamente. O que preciso é, quando o código executar, se localizar linhas preenchidas no intervalo das células B19 à B55 ele dispara a msgbox "Folh...
por milton
Qua Jul 24, 2019 3:26 pm
Fórum: VBA Básico
Tópico: Data invertida excel vba
Respostas: 0
Exibições: 90

Data invertida excel vba

Boa tarde pessoal. Estou com um probleminha, se alguém puder ajudar eu agradeço. Tenho um banco de dados em excel, hoje com 600 nomes e sempre é incluso mais, em novas inclusões de dados a data grava corretamente no fomato "dd/mm/yyyy", Eu uso a função CDate para não inverter. Cells(totalregistro, 7...
por milton
Qui Jul 04, 2019 10:58 am
Fórum: VBA Básico
Tópico: [Resolvido] Texto em negrito - vba
Respostas: 2
Exibições: 155

Re: Texto em negrito

Fala galera. Bom dia! Consegui a resposta em outro Forum. Segue ai caso alguém precise. Public Sub NegritarParteTexto() Dim lngEspacoApos As Long Dim lngCurso As Long Dim lngHoras As Long Dim strTexto As String 'Dim CbbNomeDoCurso As String ' Dim TxtHoras As String 'CbbNomeDoCurso = "Excel" 'TxtHora...
por milton
Qua Jul 03, 2019 9:48 am
Fórum: VBA Básico
Tópico: [Resolvido] Texto em negrito - vba
Respostas: 2
Exibições: 155

[Resolvido] Texto em negrito - vba

Bom dia amigos! É possível deixar em negrito somente parte do texto por vba? Tenho a frase abaixo e gostaria que ficasse em negrito somente o texto da CbbNomeDoCurso e TxtHoras. Label1 = "no curso " & CbbNomeDoCurso & " com a carga horária de " & TxtHoras & " horas, realizado na" Plan26.Range("E20")...
por milton
Qua Mai 29, 2019 2:27 pm
Fórum: VBA Básico
Tópico: [Resolvido] Editar ListBox sem alterar na Planilha
Respostas: 1
Exibições: 216

Re: Editar ListBox sem alterar na Planilha

Já consegui pessoal.

Vou deixar em anexo caso alguém precise.

Abraço!
por milton
Qua Mai 29, 2019 10:55 am
Fórum: VBA Básico
Tópico: [Resolvido] Editar ListBox sem alterar na Planilha
Respostas: 1
Exibições: 216

[Resolvido] Editar ListBox sem alterar na Planilha

Bom dia Pessoal.

Tem como editar a ListBox sem alterar na Planilha?

Desde já obrigado!
por milton
Ter Mai 28, 2019 8:07 am
Fórum: Geral
Tópico: Validação de Dados
Respostas: 1
Exibições: 139

Re: Validação de Dados

jairoriele bom dia! Veja se seria isso e adapte para o seu projeto. Coloque dentro da TextBox. Abraço Private Sub TextBox1_AfterUpdate() 'Se F12 for menor que a data digita... If Plan1.Range("F12").Value > TextBox1 Then TextBox1.Enabled = False 'Bloqueia MsgBox "Erro", vbCritical, "Erro!" End If End...
por milton
Ter Mai 28, 2019 7:19 am
Fórum: VBA Básico
Tópico: [RESOLVIDO] Alerta de vencimento, envio de email automático - VBA
Respostas: 5
Exibições: 4890

Re: [RESOLVIDO] Alerta de vencimento, envio de email automático - VBA

Bom dia petrossski.
Abre um novo tópico, se possível tbm anexo o arquivo e manda o link aqui.
Abraço
por milton
Qui Mai 09, 2019 10:34 am
Fórum: VBA Básico
Tópico: [Resolvido] Carregar somente números na textbox
Respostas: 2
Exibições: 283

Re: Carregar somente números na textbox

Bom dia Mikel. Não consegui adaptar, mas usei a macro abaixo e funcionou perfeitamente. Muito obrigado por sua atenção linha = 3: strTel = "" Sheets("Plan1").Select Range("D" & linha).Select Do While Range("D" & linha) <> "" If Plan1.Range("D" & linha) = Me.CbbNome Then StrT = Plan1.Range("E" & linh...