buscar última fila y copiar

[Nin-i]

Hola!

Cuando ya casi habí­a terminado (creí­a yo) vuelvo a necesitar ayuda... si alguien tiene tiempo y ganas, claro

Mi macro selecciona una fila y la copia, pero lo hace en la fila que le sigue...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ioyama]

Hola Nin-i

Prueba con

Sub fila()
mensaje = "Dime cuantas quieres " & Chr(10) & _
"por favor"
titulo = "Insertar filas "
MICAJITA = Application.InputBox(mensaje, titulo)
For I = 1 To MICAJITA...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[lucas225]

Esto te puede servir...


Sub fila()

ActiveSheet.Select
Range("b1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("A1").Select...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Nin-i]

Gracias a ambos (se dice así­?) por la ayuda. Funciona perfecto

Ioyama, encontré parte del código en otro archivo donde me ayudaste una vez y lo modifiqué. Siento la molestias

Gracias de nuevo