Excel 2007 Forzar formato en celdas
tengo una Private Sub Worksheet_Change(ByVal Target As Range) que me fuerza a dichas celdas a mayúscula automáticamente. Ahora también quisiera agregarle que escriba en "ARIAL 11 NEGRITA" también automáticamente.
Dejo la formula que muy amablemente hizo Esla Matilde para la opción de mayúscula para ver si se puede adaptar.
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'seleccionando varias celdas (para borrarlas) no ejecuta
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("f20:g211")) Is Nothing Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub
1 Respuesta
Respuesta de William Kennedy
1
Prueba realizando la siguiente modificación al código que ya tienes:
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'seleccionando varias celdas (para borrarlas) no ejecuta
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("f20:g211")) Is Nothing Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Target.Font.Name = "Arial"
Target.Font.Size = 11
Target.Font.Bold = True
Application.EnableEvents = True
End If
End Sub
