|
lo primero que tienes que hacer es preguntar si Target.Column es 5 (E) o 6 (F), algo del estilo
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
if Target.Column = 5 or Target.Column = 6 Then
Target.Value = Application.WorksheetFunction.Proper(Left(Target.Value, 1)) & Mid (Target.Value, 2, Len(Target.Value))
If Right(Target.Value, 1) <> "." Then
Target.Value = Target.Value & "."
End If
End if
End Sub
Saludos
gfellay
|