Seleccionar la siguiente fila vacia, no digo celda eh!

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

Perdona José. Me pareció que estaba dentro de la consulta anterior. :-(

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

Hola otra vez,
Este codigo que propones me ha funcionado muy bien, lo he modificado un
pelín ya que la primera columna que tengo datos es la 2.

AnSanVal wrote:

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

Ahora tengo otra pregunta, quisiera que en el 'despiece 02' me
seleccione desde la fila 11 ya que en la 10 está el encabezado y ya ha
sido copiado al copiar los datos de la hoja 'despiece 01'




Sub Macro1()


Sheets("Despiece total").Select
Range("B10").CurrentRegion.EntireRow.Delete
'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 02").Select
Range("B11").CurrentRegion.EntireRow.Copy

'seleccionar la ultima fila vacia
Sheets("Despiece total").Select
Cells(Cells(65536, 2).End(xlUp).Row + 1, 1).EntireRow.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

Gracias,
jose

Hola,
He conseguido lo que pedia,
lo he sacado de un codigo de KL,
lo pongo por si alguien le puede interesar.

ActiveSheet.Range("11:" & Cells(65536, 2).End(xlUp).Row).Select


~ jose ~ wrote:

Ahora tengo otra pregunta, quisiera que en el 'despiece 02' me
seleccione desde la fila 11 ya que en la 10 está el encabezado y ya ha
sido copiado al copiar los datos de la hoja 'despiece 01'




Sub Macro1()


Sheets("Despiece total").Select
Range("B10").CurrentRegion.EntireRow.Delete
'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 02").Select
Range("B11").CurrentRegion.EntireRow.Copy

'seleccionar la ultima fila vacia
Sheets("Despiece total").Select
Cells(Cells(65536, 2).End(xlUp).Row + 1, 1).EntireRow.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

Gracias,
jose

Un saludo,
jose