Listados en Excel, añadir registros

17/07/2003 - 16:11 por Juan | Informe spam
Hola a todos,

hace poco puse en este mismo foro la siguiente consulta:

tengo un libro excel con dos hojas. En la primera de ellas, tengo unas
celdas en las que el usuario mete una serie de datos (fecha, concepto,
importe...). Mi idea es que dando a un botón, esos datos se copien en una
fila de la siguiente hoja. Pero lo que no se cómo hacer es que los datos
entren en la siguiente fila, es decir, si tengo 3 registros, que los nuevos
datos entren en la fila 4, y así sucesivamente.

a la que eficientemente se me respondió:

Private Sub CommandButton1_Click()
With Worksheets("Hoja2")
.Cells(.Range("A65536").End(xlUp).Row + 1, 1) = Me.Range("A2")
.Cells(.Range("B65536").End(xlUp).Row + 1, 2) = Me.Range("B2")
.Cells(.Range("C65536").End(xlUp).Row + 1, 3) = Me.Range("C2")
End With
End Sub

Sin embargo, ahora me topo con otro problema: debajo del listado que voy
generando, hay también otro listado.

¿Cómo puedo añadir filas al primer listado? Me encuentro con que si uso
.End(xlUp), se encuentra con el segundo listado, y no llega a insertarme las
filas en el primero.

Gracias por vuestra ayuda

Un saludo

Juan Magaña
 

Leer las respuestas

#1 - José Luis -
17/07/2003 - 22:43 | Informe spam
dos opciones:

Private Sub CommandButton1_Click()
With Worksheets("Hoja2")
.Cells(.Range("A1").End(xlDown).Row + 1, 1) = Me.Range("A2")
.Cells(.Range("B1").End(xlDown).Row + 1, 2) = Me.Range("B2")
.Cells(.Range("C1").End(xlDown).Row + 1, 3) = Me.Range("C2")
End With
End Sub

Siempre y cuando en las columnas a,b y c no haya espacios, o sino tener la
misma macro que tienes:

Private Sub CommandButton1_Click()
With Worksheets("Hoja2")
.Cells(.Range("A65536").End(xlUp).Row + 1, 1) = Me.Range("A2")
.Cells(.Range("B65536").End(xlUp).Row + 1, 2) = Me.Range("B2")
.Cells(.Range("C65536").End(xlUp).Row + 1, 3) = Me.Range("C2")
End With
End Sub

y reemplaza donde dice 65536 y pongas el número de la fila vacia anterior a
la de la del segundo listado

si el segundo listado empieza en la fila 30000 por ejemplo, reemplaza 65536
por 2999



"Juan" escribió en el mensaje
news:bf6ar9$beggl$
Hola a todos,

hace poco puse en este mismo foro la siguiente consulta:

tengo un libro excel con dos hojas. En la primera de ellas, tengo unas
celdas en las que el usuario mete una serie de datos (fecha, concepto,
importe...). Mi idea es que dando a un botón, esos datos se copien en una
fila de la siguiente hoja. Pero lo que no se cómo hacer es que los datos
entren en la siguiente fila, es decir, si tengo 3 registros, que los nuevos
datos entren en la fila 4, y así sucesivamente.

a la que eficientemente se me respondió:

Private Sub CommandButton1_Click()
With Worksheets("Hoja2")
.Cells(.Range("A65536").End(xlUp).Row + 1, 1) = Me.Range("A2")
.Cells(.Range("B65536").End(xlUp).Row + 1, 2) = Me.Range("B2")
.Cells(.Range("C65536").End(xlUp).Row + 1, 3) = Me.Range("C2")
End With
End Sub

Sin embargo, ahora me topo con otro problema: debajo del listado que voy
generando, hay también otro listado.

¿Cómo puedo añadir filas al primer listado? Me encuentro con que si uso
.End(xlUp), se encuentra con el segundo listado, y no llega a insertarme las
filas en el primero.

Gracias por vuestra ayuda

Un saludo

Juan Magaña

Preguntas similares