Tomás Vásquez Fórum

milton

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

milton

rachelgdias boa tarde!
Se voce puder, anexa o arquivo ou parte dele, desse forma fica mais de alguém pode ajudar.
abraço

milton

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.

milton

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

milton

Bom dia!

avgsantos não deu certo.

Se alguém puder ajudar, segue o anexo.

Agradeço desde já.

milton

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

milton

Tov Elen Shau é isso mesmo.
Muito obrigado!!!

milton

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

milton

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

milton

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

Pesquisa resultou em 147 ocorrências

Re: Macro desabilita Botão direito do mouse

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

[RESOLVIDO] Macro desabilita Botão direito do mouse

Re: Carregar imagem no UserForm

Re: Carregar imagem no UserForm

[Resolvido] Carregar imagem no UserForm

Re: Contador de linhas por intervalo - excel vba

[Resolvido] Contador de linhas por intervalo - Excel vba

Data invertida excel vba

Re: Texto em negrito