MACRO EN EXCEL

Estimados miembros del foro, necesito una ayudita, no he logrado hacer que de
una celda activa se active la siguiente celda inferior, es decir,tengo que
ubicarme en el final del texto de la columna por ejemplo la celda A5911, esto
lo hice con Selection.End(xlDown).Select y ahora quiero pasar a la celda
A5912, claro sería muy fácil si uso un Range("A5912") pero no siempre la
siguiente celda va a ser A5912, siempre necesito una más que la del final, es
una macro que me tiene que servir para archivos con diferente número de
filas, el número de filas de la hoja también lo logro sacar con
ActiveCell.FormulaR1C1 = "=row(R[1]C)" pero la idea es poner este valor no en
la celda activa sino en la siguiente inferior, espero haberme explicado bien
lo que necesito, muchas gracias de antemano por su gran ayuda.

Saludos.

Prueba esta línea:

Cells(activecell.row+1,activecell.column).activate

Esto te activará la línea siguiente a la posición donde tengas la celda
activa.

Saludos...



"Christian" escribió:

> Estimados miembros del foro, necesito una ayudita, no he logrado hacer que de
> una celda activa se active la siguiente celda inferior, es decir,tengo que
> ubicarme en el final del texto de la columna por ejemplo la celda A5911, esto
> lo hice con Selection.End(xlDown).Select y ahora quiero pasar a la celda
> A5912, claro sería muy fácil si uso un Range("A5912") pero no siempre la
> siguiente celda va a ser A5912, siempre necesito una más que la del final, es
> una macro que me tiene que servir para archivos con diferente número de
> filas, el número de filas de la hoja también lo logro sacar con
> ActiveCell.FormulaR1C1 = "=row(R[1]C)" pero la idea es poner este valor no en
> la celda activa sino en la siguiente inferior, espero haberme explicado bien
> lo que necesito, muchas gracias de antemano por su gran ayuda.
>
> Saludos.

Gracias David, eso era exactamente lo que quería, yo lo logré de esta
manera
media rara:

ActiveCell.FormulaR1C1 = "=row(RC)"
aux = "A" & ActiveCell.Value + 1
Range(aux).Activate

pero voy a usar lo que tu me dices porque es más fácil

Muchas gracias.

"David" wrote:

Mostrar la cita

Prueba esta línea:

Cells(activecell.row+1,activecell.column).activate

Esto te activará la línea siguiente a la posición donde tengas la celda
activa.

Saludos...



"Christian" escribió:

> Estimados miembros del foro, necesito una ayudita, no he logrado hacer
> que de
> una celda activa se active la siguiente celda inferior, es decir,tengo
> que
> ubicarme en el final del texto de la columna por ejemplo la celda
> A5911, esto
> lo hice con Selection.End(xlDown).Select y ahora quiero pasar a la
> celda
> A5912, claro sería muy fácil si uso un Range("A5912") pero no siempre
> la
> siguiente celda va a ser A5912, siempre necesito una más que la del
> final, es
> una macro que me tiene que servir para archivos con diferente número de
> filas, el número de filas de la hoja también lo logro sacar con
> ActiveCell.FormulaR1C1 = "=row(R[1]C)" pero la idea es poner este valor
> no en
> la celda activa sino en la siguiente inferior, espero haberme explicado
> bien
> lo que necesito, muchas gracias de antemano por su gran ayuda.
>
> Saludos.

Prueba con: ActiveCell.Offset(1, 0).Select

Saludos desde Tenerife
*************************
"Christian" escribió en el mensaje
news:
> Gracias David, eso era exactamente lo que quería, yo lo logré de esta
> manera
> media rara:
>
> ActiveCell.FormulaR1C1 = "=row(RC)"
> aux = "A" & ActiveCell.Value + 1
> Range(aux).Activate
>
> pero voy a usar lo que tu me dices porque es más fácil
>
> Muchas gracias.
>
> "David" wrote:
>
>> Prueba esta línea:
>>
>> Cells(activecell.row+1,activecell.column).activate
>>
>> Esto te activará la línea siguiente a la posición donde tengas la celda
>> activa.
>>
>> Saludos...
>>
>>
>>
>> "Christian" escribió:
>>
>> > Estimados miembros del foro, necesito una ayudita, no he logrado hacer
>> > que de
>> > una celda activa se active la siguiente celda inferior, es decir,tengo
>> > que
>> > ubicarme en el final del texto de la columna por ejemplo la celda
>> > A5911, esto
>> > lo hice con Selection.End(xlDown).Select y ahora quiero pasar a la
>> > celda
>> > A5912, claro sería muy fácil si uso un Range("A5912") pero no siempre
>> > la
>> > siguiente celda va a ser A5912, siempre necesito una más que la del
>> > final, es
>> > una macro que me tiene que servir para archivos con diferente número de
>> > filas, el número de filas de la hoja también lo logro sacar con
>> > ActiveCell.FormulaR1C1 = "=row(R[1]C)" pero la idea es poner este valor
>> > no en
>> > la celda activa sino en la siguiente inferior, espero haberme explicado
>> > bien
>> > lo que necesito, muchas gracias de antemano por su gran ayuda.
>> >
>> > Saludos.