Tengo un formulario en una hoja excel 2007 y quisiera que en algunas celdas cuando termine de escribir automáticamente pase a formato Nombre Propio, encontré en este mismo foro el siguiente código pero no logro hacer que sea solo para las celdas B2 y B4, en la hija1:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = Empty Then Exit Sub
If Target.Column = 6 Or Target.Column = 19 Or Target.Column = 23 Then Target = UCase(Target) If InStr("B2$,B4$", Left(Target.Address(, False), 2)) Then _
Hola:
Tengo un formulario en una hoja excel 2007 y quisiera que en algunas celdas cuando termine de escribir automáticamente pase a formato Nombre Propio, encontré en este mismo foro el siguiente código pero no logro hacer que sea solo para las celdas B2 y B4, en la hija1:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = Empty Then Exit Sub
If Target.Column = 6 Or Target.Column = 19 Or Target.Column = 23 Then Target = UCase(Target) If InStr("B2$,B4$", Left(Target.Address(, False), 2)) Then _
Target = Application.WorksheetFunction.Proper(Target)
End Sub
Muy agradecido de antemano...!!!