En selección de celdas escribir solo en mayúsculas
Buenos días
Necesitaría que en esta selección, Range("A12:A41,C12:C41").Select, al escribir me salgan siempre en mayúsculas, para no estar siempre cambiando de mayúsculas a minúsculas.
Un saludo
1 respuesta
Respuesta de Luis Herrero Casares
1
Lo he conseguido, poniendo en un modulo :
Option Explicit
Public Function AMayusculas(strTexto As String) As String
AMayusculas = UCase(strTexto)
End Function
Y en la hoja que lo necesito :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(" A12:A41,C12:C41")) Is Nothing Then
Target.Value = AMayusculas(Target.Value)
End If
End Sub
Hola Luis, podrías ahorrarte la función si en el evento de la hoja pones:Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A12:A41,C12:C41")) Is Nothing And Target = LCase(Target) Then Target = UCase(Target) End IfEnd Sub - Marcial C. C.
Fabuloso.Gracias - Luis Herrero Casares