Jump to content
joselica

ANSWERED ME PIERDO CON LA MACRO

Recommended Posts

Hola a todos,

Pues nada,. estoi aqui otra vez pidiendo ayuda.

Se ve que con los videos tutoriales lo lio más de la cuenta, lo que estoy intentando es  crear dentro de la  macro en el rango de celdas (C9:C11) de que me salga el texto siempre en MAYUSCULAS y en el rango de celdas (C11:I11) me salga el texto siempre  en MINUSCULAS.

 

H1.Range("C9:I9").Value = UCase(Target)
End If
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Range("C11:I11"), Target(1, 1)) Is Nothing Then
   Target(1, 1).Value = LCase(Target)
End If
Application.EnableEvents = True

Adjunto el documento.

Gracias.

MAYUSCULAS o MINUSCULAS.xlsm

Share this post


Link to post
Share on other sites

Hola,

Algo anda mal en tu archivo... pero con esto deberia ser suficiente... Pon este código en la hoja FICHA.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C9")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("C11")) Is Nothing Then Target = LCase(Target)
End Sub

Saludos.

 

Edited by Leopoldo Blancas

Share this post


Link to post
Share on other sites

Buenos días Leopoldo,

Muchas gracias por tu ayuda.

Una pregunta.

Si deseo que en el apartado nombre me salga los nombres asi: "Alejandro Verde Ventana" siempre la palabro con la primera letra en MAYUSCULA"  indistintamente si lo tecleo con mayuscula o minuscula ¿Como lo tengo que hacer?

Saludos,

Share this post


Link to post
Share on other sites

Algo así:

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False
   Select Case Target.Address
      Case "$C$9": Target = UCase(Target)
      Case "$C$10": Target = Evaluate("=PROPER(C10)")
      Case "$C$11": Target = LCase(Target)
   End Select
   Application.EnableEvents = True
End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png