Llegue amigos.
Hice la prueba hoy y muy triste quedé, a punto de suicidarme.
es que no me resulta, acepta toda cantidad de caracteres que le meta.
¿Que estoy haciendo mal?
Cita: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case Is = c 'columna
Target.Value = Left(Target.Value, 4) ' numero de caracteres que quiera que acepte)
Case Is = d
Target.Value = Left(Target.Value, 7)
Case Is = e
Target.Value = Left(Target.Value, 4)
Case Is = f
Target.Value = Left(Target.Value, 7)
Case Is = g ''''''''''''''''''''''''''''''''''''''''''''''''' hago referencia acá para mensionar que tambien probe con numero Case Is = 1
Target.Value = Left(Target.Value, 4)
Case Is = h
Target.Value = Left(Target.Value, 7)
End Select
End Sub