Seleccionar la siguiente fila vacia, no digo celda eh!

01/10/2006 - 15:06 por ~ jose ~ | Informe spam
Hola, quisiera seleccionar la sigiente fila vacia, digo fila no celda.

Lo que quiero es copiar unas filas de la hoja 'despiece 01' pegarlas en
'despiece total', copiar las filas de 'despiece 02' y pegarlas a partir
de la última fila ocupada de 'depiece total'.
Estoy trabajando con este código que he creado poco a poco, pero no me
funciona, no logro situarme en la siguiente fila (no celda) para pegar
las filas de 'despiece 01'.
Este proceso lo tengo que ampliar hasta 20 despieces.

Sub Macro1()

'copiar todas las filas de despiece 01
Sheets("Despiece 01").Select
Range("B10").CurrentRegion.EntireRow.Copy

'pegar valores en la fila 10
Sheets("Despiece total").Select
Rows("10:10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

'copiar todas las filas de despiece 02
Sheets("Despiece 01").Select
Range("B11").CurrentRegion.EntireRow.Copy

'seleccionar la ultima fila vacia
Sheets("Despiece total").Select
Rows("10:10").End(xlDown).Offset(1, 0).Select

'pegar valores en la fila ultima fila en blanco
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False
Range("C2").Select


End Sub

Un saludo,
jose
 

Leer las respuestas

#1 AnSanVal
01/10/2006 - 15:30 | Informe spam
Hola José. Pienso que es conveniente abrir un hilo nuevo para tu consulta,
para que pueda ser seguida por otros usuarios con una duda similar. ;-)

Prueba con: Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).EntireRow.Select

Saludos desde Tenerife.

"~ jose ~" escribió en el mensaje
news:
Hola, quisiera seleccionar la sigiente fila vacia, digo fila no celda.

Lo que quiero es copiar unas filas de la hoja 'despiece 01' pegarlas en
'despiece total', copiar las filas de 'despiece 02' y pegarlas a partir
de la última fila ocupada de 'depiece total'.
Estoy trabajando con este código que he creado poco a poco, pero no me
funciona, no logro situarme en la siguiente fila (no celda) para pegar
las filas de 'despiece 01'.
Este proceso lo tengo que ampliar hasta 20 despieces.

Sub Macro1()

'copiar todas las filas de despiece 01
Sheets("Despiece 01").Select
Range("B10").CurrentRegion.EntireRow.Copy

'pegar valores en la fila 10
Sheets("Despiece total").Select
Rows("10:10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False

'copiar todas las filas de despiece 02
Sheets("Despiece 01").Select
Range("B11").CurrentRegion.EntireRow.Copy

'seleccionar la ultima fila vacia
Sheets("Despiece total").Select
Rows("10:10").End(xlDown).Offset(1, 0).Select

'pegar valores en la fila ultima fila en blanco
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False
Range("C2").Select


End Sub

Un saludo,
jose

Preguntas similares