Apenas primeira letra maiúscula no Excel

marcelol77
Membro
Membro
Status:
Mensagens: 22
Registro: 27 Jun 2010
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Apenas primeira letra maiúscula no Excel

Mensagem por marcelol77 » 14 Jul 2010

Boa Noite procurei na internet achei pouco sobre isso e o que encontrei não consegui aplicar.
Queria um codigo de VBA para transformar apenas a primeira letra em MAIUSCULA.
ABS

Avatar de usuário
adilsonsoledade
Guru
Guru
Status:
Mensagens: 2017
Registro: 01 Fev 2009
Localização: São Paulo / SP
Karma: [178] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: apenas primeira letra maiuscula

Mensagem por adilsonsoledade » 14 Jul 2010

Boa noite,
Este código deve ajudá-lo;
Código: Selecionar tudo
Sub PrimMaiuscula()
Texto = Application.InputBox(Prompt:="Digite o nome", Title:="Colocar a primeira em maiúscula", Type:=2)
FirstPart = UCase(Left(Texto, 1))
LastPart = LCase(Right(Texto, Len(Texto) - 1))
MsgBox FirstPart & LastPart
End Sub

[ ]s
Adilson Soledade

Blog: usuariosdoexcel.wordpress.com
Facebook: facebook.com/usuariosdoexcel
Twitter: @usuariosdoexcel
A resposta foi útil? Vote no botão ao lado

marcelol77
Membro
Membro
Status:
Mensagens: 22
Registro: 27 Jun 2010
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Apenas primeira letra maiúscula no Excel

Mensagem por marcelol77 » 15 Jul 2010

Não consegui aplicar a formula não adilson mais mto orbigado.

Avatar de usuário
Patropi
Guru
Guru
Status:
Mensagens: 3022
Registro: 28 Nov 2009
Localização: Campo Mourão - PR
Karma: [514] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Apenas primeira letra maiúscula no Excel

Mensagem por Patropi » 15 Jul 2010

Boa noite Marcelo

O meu Office é o 2007 e aqui no meu basta eu usar a fórmula

=PRI.MAIÚSCULA(A1)

No exemplo acima a palavra se encontra na célula A1. Acerta a fórmula conforme a tua planilha.

Abraços
Se a resposta for útil vote positivamente no meu Karma. Mãozinha Verde à esquerda da mensagem

Avatar de usuário
adilsonsoledade
Guru
Guru
Status:
Mensagens: 2017
Registro: 01 Fev 2009
Localização: São Paulo / SP
Karma: [178] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Apenas primeira letra maiúscula no Excel

Mensagem por adilsonsoledade » 15 Jul 2010

Boa noite, para esclarecimento, este código não é uma função e sim um procedimento VBA.
De que forma tentou utilizá-lo e quais foram os problemas encontrados?
A função PRI.MAIÚSCULA() também está disponível nas versões anteriores à 2007.
[ ]s
Adilson Soledade

Blog: usuariosdoexcel.wordpress.com
Facebook: facebook.com/usuariosdoexcel
Twitter: @usuariosdoexcel
A resposta foi útil? Vote no botão ao lado

marcelol77
Membro
Membro
Status:
Mensagens: 22
Registro: 27 Jun 2010
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Apenas primeira letra maiúscula no Excel

Mensagem por marcelol77 » 16 Jul 2010

Então adilson não consegui usar a função tentei em umas planilhas vazias..mais nem deu certo, se puder me explicar ..=D

Avatar de usuário
adilsonsoledade
Guru
Guru
Status:
Mensagens: 2017
Registro: 01 Fev 2009
Localização: São Paulo / SP
Karma: [178] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Apenas primeira letra maiúscula no Excel

Mensagem por adilsonsoledade » 16 Jul 2010

Antes de mais nada você precisa inserir o código num módulo VBA.
Depois que tiver feito isso, pressione ALT+F8 para chamar a lista de macros da tua pasta de trabalho, ou associe o código a um botão ou objeto para acionar a execução.
Coloco abaixo o código comentado para facilitar sua compreensão.
Se o problema persistir, esclareça de que forma está tentado utilizar a macro.
Código: Selecionar tudo
Sub PrimMaiuscula()
'Ativa caixa de entrada de valores para que se digite o texto a ser modificado
Texto = Application.InputBox(Prompt:="Digite o nome", Title:="Colocar a primeira em maiúscula", Type:=2)
'Coloca em maiúsculo a primeira letra do texto informado
FirstPart = UCase(Left(Texto, 1))
'Coloca em letras minúsculas o resto do texto digitado
LastPart = LCase(Right(Texto, Len(Texto) - 1))
'Exibe uma caixa de mensagem, com o resultado da concatenação das duas variáveis
MsgBox FirstPart & LastPart
End Sub

[ ]s
Adilson Soledade

Blog: usuariosdoexcel.wordpress.com
Facebook: facebook.com/usuariosdoexcel
Twitter: @usuariosdoexcel
A resposta foi útil? Vote no botão ao lado

marcelol77
Membro
Membro
Status:
Mensagens: 22
Registro: 27 Jun 2010
Karma: [0] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Apenas primeira letra maiúscula no Excel

Mensagem por marcelol77 » 17 Jul 2010

Adilson mto obrigado funcionou..qria fazer uma pergunta a vc..
ah como saber pelo codigo do VBA se ele deve ser incluido em modulo ou no worsheet..pois sempre erro por ai...??
BRIGADO

Avatar de usuário
adilsonsoledade
Guru
Guru
Status:
Mensagens: 2017
Registro: 01 Fev 2009
Localização: São Paulo / SP
Karma: [178] Acrescente 1 ponto ao karma. Tire 1 ponto do karma

Re: Apenas primeira letra maiúscula no Excel

Mensagem por adilsonsoledade » 18 Jul 2010

Boa noite,
Via de regra o código deve ser inserido num módulo.
Para que seja inserido como um código associado a uma planilha, deve ser um dos tipos a seguir, ou seus similares:
Código: Selecionar tudo
Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub



[ ]s
Adilson Soledade

Blog: usuariosdoexcel.wordpress.com
Facebook: facebook.com/usuariosdoexcel
Twitter: @usuariosdoexcel
A resposta foi útil? Vote no botão ao lado


Retornar para Excel

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 16 visitantes

PUBLICIDADE