Agregar una linea al final de la table

[walterw]

quiero agregar una linea al final de mi tabla
pero la linea se me agrega una antes??

Sub SI()
'
Dim myRange As Range
Dim ce As Range
Application.Goto Reference:="R1C1"
ActiveCell.CurrentRegion.Select
Set myRange = ActiveCell.CurrentRegion
myRange.CurrentRegion.Select
myRange.Offset(+1, 0).Select
myRange.EntireRow.Select

End Sub


que hago MAL???

 

[valedor]

Supongo que por agregar te refieres a "insertar" una fila, aunque si esta al final, salvo que tengas más datos por debajo, pero en otras columnas, no es necesario insertar...

en la siguiente linea

myRange.Offset(+1, 0).Select

lo que haces es desplaxar tu seleccion una fila abajo, pero solo seleccionas

myRange.EntireRow.Select

en la linea anterior, seleccionas TODAS las filas de myRange, no solo una...


Si quieres hacer lo que manifiestas **quiero agregar una linea al final de mi tabla**, la siguiente linea lo hace

Range("A1").End(xlDown).Offset(1, 0).EntireRow.Insert

Suponiendo que tu tabla empieza en A1 y que ya existe por lo menos un registro en ella...

On 2002-09-10 00:16, walterw wrote:
quiero agregar una linea al final de mi tabla
pero la linea se me agrega una antes??

Sub SI()
'
Dim myRange As Range
Dim ce As Range
Application.Goto Reference:="R1C1"
ActiveCell.CurrentRegion.Select
Set myRange = ActiveCell.CurrentRegion
myRange.CurrentRegion.Select
myRange.Offset(+1, 0).Select
myRange.EntireRow.Select

End Sub