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

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

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

 

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

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy