Poner mayúsculas
Hola, me llamo Jose y si no es molestia me gustaría preguntarte algo.
A través de VBA me gustaría que siempre que entro en un libro de trabajo excel, se me pusieran las mayúsculas, o sea que todo el texto que escribiera en cualquier celda del libro, estuviese siempre en mayúscula.
¿Es esto posible? Gracias adelantadas.
A través de VBA me gustaría que siempre que entro en un libro de trabajo excel, se me pusieran las mayúsculas, o sea que todo el texto que escribiera en cualquier celda del libro, estuviese siempre en mayúscula.
¿Es esto posible? Gracias adelantadas.
Respuesta de pergo
1
Dices... siempre que entro en un libro... ¿es siempre el mismo?
Si es así, pega el siguiente código en el modulo llamado 'Thisworkbook' del libro en cuestión, en el caso de que sean más libros has de hacer la misma operación en todos ellos.
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If VarType(Target.Value) = 8 Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub
Espero que te sirva! Saludos.-
p.d. ah! Si quisieras que en lugar de en todo el libro, lo que deseas, solo ocurriera en una de las hojas o un numero de ellas, también podemos hacerlo.
Si es así, pega el siguiente código en el modulo llamado 'Thisworkbook' del libro en cuestión, en el caso de que sean más libros has de hacer la misma operación en todos ellos.
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If VarType(Target.Value) = 8 Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub
Espero que te sirva! Saludos.-
p.d. ah! Si quisieras que en lugar de en todo el libro, lo que deseas, solo ocurriera en una de las hojas o un numero de ellas, también podemos hacerlo.
