Rectificar esta macro de mayúsculas
Buenos días.
Necesitaría rectificar esta macro, para que actuara en el rango " Range("A12:A41, C12:C41").Select ", y no en toda la página :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target.Text)
Application.EnableEvents = True
End Sub
Un saludo
1 Respuesta
Respuesta de Dante Amor
2
Así quedaría la macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A12:A41, C12:C41")) Is Nothing Then
Application.EnableEvents = False
Target.Value = WorksheetFunction.Proper(Target.Text)
Application.EnableEvents = True
End If
End SubSaludos.Dante Amor
No olvides valorar la respuesta
