Una macro donde capture cualquier frase

una macro donde capture cualquier frase y en la primera celda escriba la primera letra en la segunda
celda las dos primeras letras y asi sucesivamente (hacia abajo)

1

1 respuesta

Respuesta
1

Te mando mi solución. Esta macro te pedirá que introduzcas una frase y la descompondrá como solicitas desde la celda A1 hacia abajo.

Sub frase()
valor = InputBox("introduzca una frase por favor")
If valor = "" Then Exit Sub
tope = Len(valor)
m = 1
Range("a1").Select
For x = 1 To tope
ActiveCell.Value = Mid(valor, 1, m)
m = m + 1
ActiveCell.Offset(1, 0).Select
Next
End Sub

recuerda finalizar y puntuar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas