14/08/2006, 13:21
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 17 años, 10 meses Puntos: 18 | |
| La verdad es que le faltan detalles a tu pregunta, pero en todo caso, en esta macro sale un inputbox que te pide la palabra, y luego te envia letra por letra de A1 hasta Ax, donde x es la fila que toque dependiendo de la cantidad de letras.
Abraham
Sub extraer()
Dim bucle As Integer
Dim variable As String, cambiar As String, resultado As String
variable = InputBox("INGRESE PALABRA")
contador = Len(variable)
For bucle = 1 To contador
resultado = Mid(variable, bucle, 1)
cambiar = bucle
Range("a" + cambiar).Value = resultado
Next bucle
End Sub |