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 Respuesta
Respuesta de Luis Mondelo
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 Subrecuerda finalizar y puntuar
