Este fórum está sendo desativado

[Inovacao]

Pessoal, boa tarde!!

Como faço para deixar a planilha de forma automática como VERDANA 10 e SEMPRE QUE DIGITAR FICAR EM MAISCULO ou MINUSCULO, da para fazer isto?

Muito obrigado!!

[babdallas]

Tipo da fonte e tamanho: clique na Guia Arquivo, Opções, Geral e procure: Usar este fonte como padrão e Tamanho da Fonte. Modifique para a sua necessidade.

Agora, ao digitar tudo maiúsculo ou minúsculo, eu não consegui achar nenhuma opção específica para isso. O que dá para fazer é colocar o seguinte código no workbook:

Código: Selecionar todos

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Target.Value = ParaMaiuscula(Target.Value2)
    
    'OU para minúscula
    'Target.Value = ParaMinuscula(Target.Value2)
End Sub

Private Function ParaMaiuscula(Texto)
    ParaMaiuscula = VBA.UCase(Texto)
End Function

Private Function ParaMinuscula(Texto)
    ParaMinuscula = VBA.LCase(Texto)

[Deciog]

Compartilhando um exemplo de planilha aceitar somente maiúsculo feito por mim há muito tempo

Espero que gostem

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio

[Inovacao]

Deciog ;

Ele não aceita que digite nada, tudo da erro, maiúsculo ou minúsculo.

Obrigado!!

[Deciog]

Inovacao, Bom Dia.

Fiz os teste e está funcionando, pergunto, qual versão do Excel voce esta usando, pois a função UNICODE foi implantada na versão 2013 para cima

Decio

[Inovacao]

Boa noite, Deciog!!

A versão é 2013.

tudo que digito ele da erro.


Obrigado

[Deciog]

Inovacao, Bom Dia.

Não sei o porque, tenta usar uma versão mais recente e retorne se deu erro

Decio

[Inovacao]

Bom dia, meu caro!!

Como faço para atualizar de forma gratuita para a versão 2016 ou 2019?

Obrigado!!

[Deciog]

Inovacao, Boa Tarde

Não sei não aqui na empresa tudo é legalizado

Decio

[Inovacao]

Boa tarde, Deciog!!

Quero comprar uma versão mais atual, mas não gostaria de ficar pagando mensalidade no 365.

O 2019 seria uma boa escolha na sua opinião, sera que vou sempre receber atualizações como no office 365?

Obrigado!!

[Inovacao]

Boa tarde, Deciog!!

Quando tiver um tempinho da uma ajudinha no meu tópico abaixo, to precisando muito de ajuda.
viewtopic.php?f=9&t=14803

Obrigado!!

Abraços!!

[Deciog]

Inovacao, Bom Dia.

Dei uma olhada, mas só sei fazer com formula matricial e voce não gosta pois fica lento

Decio

[Inovacao]

Bom dia, Deciog!!

Poxa vida se voce pudesse me enviar, eu ficaria muito agradecido, pois como são poucas linhas não ficara tão pesado.


Obrigado!!

[Deciog]

Inovação, Bom Dia.

O colega JCabral já resolveu para voce

Decio

[Inovacao]

Boa tarde, Deciog!!


Sim problema resolvido graças ao amigo JCabral, te pedi somente para ter mais uma opção, sou estudante de Excel e acho que aprendizado nunca é demais.

Mas realmente o problema já foi resolvido.

Abraço