Formato de la celda 30 posiciones

Hola, Ubaldo.

Suponiendo que los datos que quieres rellenar con asteriscos se encuentran
en la columna A, a partir de la fila 5, prueba con lo siguiente:

1.
Pulsa clic derecho en el separador de la hoja, y selecciona "Ver código".


2.
Pega el siguiente código:

Public NoActualizar As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As String
If NoActualizar = False Then
If Target.Column = 1 And Target.Row >= 5 Then
NoActualizar = True
Target.Value = Left(Target.Value & String(30, "*"), 30)
End If
Else
NoActualizar = False
End If
End Sub

3.
Cierra el editor de VBA, y prueba ingresar datos en diferentes lugares de la
columna A.

Si es lo que neceistabas, sólo tendrás que adaptar algunas "cosillas" en el
código: en la línea IF, puedes controlar el número de la columna y el número
de la fila inicial. Pruébalo y nos cuentas.

Un inconveniente que veo, es ¿qué pasaría si se ingresa un dato de más de 30
caracteres? y ¿qué si el dato ingresado es un número o una fecha? (el código
lo convertirá a texto)

Bueno, estoy divagando. Pruébalo y nos cuentas...

Saludos.



"Ubaldo" escribió:

> Hola a Todos
>
> Por necesidades de trabajo necesito que al entrar una información en una
> celda del excel esta se rellene con 30 posisiones de un determinado caracter,
> por ejemplo un asterisco, es decir que si entro el valor 4444 la celda se
> rellene con 4444**************** hasta 30 posiciones, sabeis si es posible
> asignar algún formato de celda personalizado o alguna macro de como podria
> hacerlo.
>
> gracias.