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

por milton
Qui Fev 13, 2020 1:53 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Macro desabilita Botão direito do mouse
Respostas: 2
Exibições: 274

Re: Macro desabilita Botão direito do mouse

webmaster obrigado pela atenção, porém não deu certo. Com o código abaixo funcionou. Sub sair_final() Dim barras On Error Resume Next For Each barras In Application.CommandBars barras.Enabled = True Next Application.DisplayStatusBar = True Application.DisplayFormulaBar = True Application.DisplayFull...
por milton
Ter Fev 11, 2020 12:39 pm
Fórum: VBA Básico
Tópico: se celula estiver vazia, trazer mensagem "Não há registro" [RESOLVIDO]
Respostas: 7
Exibições: 387

Re: se celula estiver vazia, trazer mensagem "Não há registro"

rachelgdias boa tarde!
Se voce puder, anexa o arquivo ou parte dele, desse forma fica mais de alguém pode ajudar.
abraço
por milton
Ter Fev 11, 2020 9:45 am
Fórum: VBA Básico
Tópico: [RESOLVIDO] Macro desabilita Botão direito do mouse
Respostas: 2
Exibições: 274

[RESOLVIDO] Macro desabilita Botão direito do mouse

Bom dia Pessoal.

No excel quando clico com botão direito, as opções não aparecem.
Pelo que pesquisei, diz que alguma macro desabilita as opções, mas não achei a solução.
Alguém sabe como resolver?

Desde já agradeço.
por milton
Sex Out 11, 2019 3:13 pm
Fórum: VBA Básico
Tópico: [Resolvido] Carregar imagem no UserForm
Respostas: 3
Exibições: 4631

Re: Carregar imagem no UserForm

Boa tarde pessoal Eu coloquei dessa forma e funcionou. Me.ImgFoto.Picture = LoadPicture() 'Limpar imagem Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & ".jpg") Me.ImgFoto.Picture = LoadPicture("C:\Fotos de Oficiais\" & Me.CbbNome.Value & ".jpeg") Me.ImgFoto.Picture = L...
por milton
Sex Out 11, 2019 9:51 am
Fórum: VBA Básico
Tópico: [Resolvido] Carregar imagem no UserForm
Respostas: 3
Exibições: 4631

Re: Carregar imagem no UserForm

Bom dia!

avgsantos não deu certo.

Se alguém puder ajudar, segue o anexo.

Agradeço desde já.
por milton
Qui Out 10, 2019 7:38 am
Fórum: VBA Básico
Tópico: [Resolvido] Carregar imagem no UserForm
Respostas: 3
Exibições: 4631

[Resolvido] Carregar imagem no UserForm

Bom dia amigos Com esse código eu digito o nome da pessoa no CbbNome e, automaticamente localiza a imagem na Pasta e carregar no UserForm e funciona perfeitamente, porém só carrega .jpg Como posso ajusta-lo para reconhecer outras extensões e carregar automático? Ou seja, independente da extensão que...
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: 1496

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: 1496

[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: 5283

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: 743

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...