UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

masdelomenos


Buenas noches estimados.
Estuve intentando encontar la manera de que cada vez que escriba se transforme automaticamente el contenido de la ceda en mayuscula sin mucho exito.
Dependo de ustedes una vez mas.

Muy considerados y gracias.

Gabriel.
Archivos
masdelomenos-PROYECTO.zip
No tienes los permisos para descargar los archivos.
(98 KB)

Igtelo


Hola Masdelomenos.

El teclado cuenta con una tecla que dice mayúsculas, sólo actívala y listo.

Saludos
Ignacio Téllez

ioyama


Hola Masdelomenos

Entiendo que lo que quieres es evitar que en algún determinado campo metas minúsculas y que mantener activadas las mayúsculas no te sirve. Te adjunto una macro de evento que todo lo que escribas en una detreminada columna te lo pondrá en mayúsculas.

Un saludo desde Vitoria
Archivos
Mayusculas_io_160309.zip
No tienes los permisos para descargar los archivos.
(8 KB)

masdelomenos


Muy buenas.
Ignacio muchas gracias sin embargo la solución que buscaba era la ofrecida por ioyama.
Ioyama adapte tu solucion y funciono a la perfeccion.
¿Existe la posibilidad de que la macro se cumpla en 2 o mas columnas?
Gracias (Y)

Gabriel

masdelomenos


Estimados.
Esta tarde buscando un poco mas en internet me encontre con

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell   As Range
    On Error Resume Next
    Application.EnableEvents = False
    For Each cell In Target
        cell = UCase(cell)
    Next
    Application.EnableEvents = True
End Sub

Hice clik derecho sobre la solapa del nombre de la hoja, luego ver codigo y pegandolo surgio lo tan ansiado.
El unico inconveniente es que al ejecutar la macro que traslada a otra hoja de acuerdo a ciertas condiciones tarda un poco mas en realizarlo.
Tendra solucion esa demora?

masdelomenos


Estimados, a la solución brindada por Ioyama

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 4 Then Exit Sub
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
End Sub

solo le coloque un ' al inicio de If Target.Column <> 4 Then Exit Sub
quedando

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    'If Target.Column <> 4 Then Exit Sub
    Application.EnableEvents = False
    Target = UCase(Target)
    Application.EnableEvents = True
End Sub

consiguiendo que cualquier cosa que escriba se convierta en mayuscula en cualquier celda del documento

Gracias a todos por su apoyo y conocimiento Very Happy

Gabriel

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.