Borrar Filas

26/03/2009 - 18:49 por Angelo Vernaza | Informe spam
Hola Amigos,

tengo la siguiente macro que es para borrar un grupo de las 4 ultimas
filas con datos pero me da error, alguien que me pueda ayudar

Sub BorrarFilas()

Dim fila As String

fila = ActiveCell.Row

'Borro los subtotales
Range("A1").Select
Selection.ClearOutline

'Selecciono filas a borrar
Range("A65536").Select
Selection.End(xlUp).Select
Range("fila & : & Activecell.Offset(0,-3)").Select
Selection.Delete

End Sub

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
27/03/2009 - 04:37 | Informe spam
hola, Angelo !

tengo la siguiente macro que es para borrar un grupo de las 4 ultimas filas con datos pero me da error ...



1) necesitas "borrar" (el contenido de) las ultimas 4 filas?... o eliminar completamente las 4 filas -???-

2) analiza esta parte de tu codigo:
'Selecciono filas a borrar
Range("A65536").Select
Selection.End(xlUp).Select
Range("fila & : & Activecell.Offset(0,-3)").Select
Selection.Delete



y observa lo siguiente:

a) la ultima celda seleccionada (Selection.End(xlUp).Select) es la fila "n" de la columna A

b) y en la siguiente instruccion le "dices" a la macro: -> Range("fila & : & Activecell.Offset(0,-3)").Select
1) TODO esta delimitado por comillas dobles: -> "fila & : & Activecell.Offset(0,-3)"
2) tu variable fila ha dejado de ser variable y se convierte en parte de la cadena de texto
3) igual sucede con el objeto "ActiveCell.Offset(0,3)" <= es parte de una cadena de texto
4) si la celda (ultima) seleccionada esta en la columna A...
como le pides que "regrese" 3 columnas "a la izquierda" ??? => Offset(0,-3)

comentas cual es el arreglo (real) de la tabla donde necesitas eliminar/borrar las 4 ultimas celdas ?

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida