Aprendiendo

Hola Victor

Prueba con <<cells(indicador de fila, indicador de columna)>>

No se que es lo que realmente necesitas, pero un símil de tu código, usando
"cells" sería:

Dim i As Integer
For i = 1 To 10
Cells(i, 1).Select
Cells(i, 1) = InputBox("Escribe tu nombre")
Cells(i, 2).Select
Cells(i, 2) = InputBox("Escribe tu dirección")
Cells(i, 3).Select
Cells(i, 3) = InputBox("Escribe tu teléfono")
Next i

Espero te sirva

"Victor" escribió en el mensaje
news:

Hola que tal estoy a prendiendo a usar vb en exel y como ejemplo hice el
sig. codigo
Dim i As Integer
For i = 1 To 10
Range("A1").Select
ActiveCell.FormulaR1C1 = InputBox("Escribe tu nombre")
Range("B1").Select
ActiveCell.FormulaR1C1 = InputBox("Escrbribe tu direccion")
Range("C1").Select
ActiveCell.FormulaR1C1 = InputBox("Telefono")
i = i + 1
Range ("a(i)") <<<< Aqui es donde no se como hacer para

pocicionarme

en una celda abajo cada vez que termina el codigo
Next i

Hola Víctor

Es un poquito más "estético" eliminando las líneas que tienen select, es
decir:

For i = 1 To 10
Cells(i, 1) = InputBox("Escribe tu nombre")
Cells(i, 2) = InputBox("Escribe tu dirección")
Cells(i, 3) = InputBox("Escribe tu teléfono")
Next i

Un saludo
Javier G

"Victor" escribió en el mensaje
news:

Gracias es justo lo que necesitaba

"Javier G" <jalexgarciaARROBAhotmail.com> wrote in message
news:
> Hola Victor
>
> Prueba con <<cells(indicador de fila, indicador de columna)>>
>
> No se que es lo que realmente necesitas, pero un símil de tu código,
usando
> "cells" sería:
>
> Dim i As Integer
> For i = 1 To 10
> Cells(i, 1).Select
> Cells(i, 1) = InputBox("Escribe tu nombre")
> Cells(i, 2).Select
> Cells(i, 2) = InputBox("Escribe tu dirección")
> Cells(i, 3).Select
> Cells(i, 3) = InputBox("Escribe tu teléfono")
> Next i
>
> Espero te sirva
>
> "Victor" escribió en el mensaje
> news:
> > Hola que tal estoy a prendiendo a usar vb en exel y como ejemplo hice

el

> > sig. codigo
> > Dim i As Integer
> > For i = 1 To 10
> > Range("A1").Select
> > ActiveCell.FormulaR1C1 = InputBox("Escribe tu nombre")
> > Range("B1").Select
> > ActiveCell.FormulaR1C1 = InputBox("Escrbribe tu direccion")
> > Range("C1").Select
> > ActiveCell.FormulaR1C1 = InputBox("Telefono")
> > i = i + 1
> > Range ("a(i)") <<<< Aqui es donde no se como hacer para
> pocicionarme
> > en una celda abajo cada vez que termina el codigo
> > Next i
> >
> >
>
>

disculpen el codigo seria sin el ""i=i+1+ solamente range("a(i)")
"Victor" wrote in message
news:

Hola que tal estoy a prendiendo a usar vb en exel y como ejemplo hice el
sig. codigo
Dim i As Integer
For i = 1 To 10
Range("A1").Select
ActiveCell.FormulaR1C1 = InputBox("Escribe tu nombre")
Range("B1").Select
ActiveCell.FormulaR1C1 = InputBox("Escrbribe tu direccion")
Range("C1").Select
ActiveCell.FormulaR1C1 = InputBox("Telefono")
i = i + 1
Range ("a(i)") <<<< Aqui es donde no se como hacer para

pocicionarme

en una celda abajo cada vez que termina el codigo
Next i

Gracias es justo lo que necesitaba

"Javier G" <jalexgarciaARROBAhotmail.com> wrote in message
news:

Hola Victor

Prueba con <<cells(indicador de fila, indicador de columna)>>

No se que es lo que realmente necesitas, pero un símil de tu código,

usando

"cells" sería:

Dim i As Integer
For i = 1 To 10
Cells(i, 1).Select
Cells(i, 1) = InputBox("Escribe tu nombre")
Cells(i, 2).Select
Cells(i, 2) = InputBox("Escribe tu dirección")
Cells(i, 3).Select
Cells(i, 3) = InputBox("Escribe tu teléfono")
Next i

Espero te sirva

"Victor" escribió en el mensaje
news:
> Hola que tal estoy a prendiendo a usar vb en exel y como ejemplo hice el
> sig. codigo
> Dim i As Integer
> For i = 1 To 10
> Range("A1").Select
> ActiveCell.FormulaR1C1 = InputBox("Escribe tu nombre")
> Range("B1").Select
> ActiveCell.FormulaR1C1 = InputBox("Escrbribe tu direccion")
> Range("C1").Select
> ActiveCell.FormulaR1C1 = InputBox("Telefono")
> i = i + 1
> Range ("a(i)") <<<< Aqui es donde no se como hacer para
pocicionarme
> en una celda abajo cada vez que termina el codigo
> Next i
>
>