Seleccionar filas con macro

[YAID]

Hola casi no escribo aqui, apenas ando entrando al mundo de las macros, jajajaja.. ta muy dificil... pero hay la llevo...

oigan tengo una duda, espero que me ayuden, miren,.. tengo un archivo exportado de txt a excel... , en el cual hay muchas filas con caracteres "basura" por asi decirlo.. entonces intento crear una macro que me ayude a estarlos eliminando todos sin necesidad de buscarlos y eliminar las filas...., hice algo mas o menos asi.

Sub Eliminar ()

'aqui busca una parte de los caracteres y los selecciona

Cells.Find(What:="INDUSTRIAS, S.A. DE C.V. (2004)", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

'aqui se regresa hasta la columna A de la fila y la selecciona

ActiveCell.Offset(0, -5).Select

'aqui debería decirle que seleccione toda la fila activa y las siguientes 7 de abajo

--- aki kisiera ke me ayudaran porfas----

'aqui elimina las celdas y termina

Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Select

End Sub


Ahora si.. me pudieran ayudar a ponerle que esto lo haga hasta que dejen de haber estas filas "basura", me ayudarian bastante... me imagina que debe ser algun "For Each" o algo asi no??

Ojala me ayuden... asi aprenderia mas....


Saludos a todos.. esta web esta bien chida...

[3pies]

Recuerda que antes de hacer operaciones de este tipo, es conveniente tener una copia del fichero, por si nos cargamos algo de manera imprevista.

Dicho lo cual, prueba estas dos líneas:

Código:

'Seleccionamos el rango comprendido entre la celda
'activa, y siete filas más abajo
Range(ActiveCell, ActiveCell.Offset(7, 0)).Select
'Eliminamos todas esas filas
Selection.EntireRow.Delete

Salu2

[YAID]

Ooooorales muchas gracias compare ,... , si me sirvio y mucho....

jajajap.. ahora... para repetir el proceso... lo ke hice fue llamarla desde otra macro unas 50 veces... claro que este proceso hay que hacerlo como 300 veces... pero asi presiono menos el boton.... jajaja....

de ese modo lo presiono hasta que me marca error y le doy finalizar..

sin embargo este procedimiento ha de ser un poco austero verdad... creen que hay manera que lo haga las "n" veces requeridas hasta que ya no se de el supuesto y que no marque error??....

de todos modos asi como le hice creo que esta bien...


gracias 3 pies por la ayuda...

Saludos....

[3pies]

Para eso esta le bucle for.

Prueba este ejemplo en un nuevo libro de excel (para que no te cargues nada). A partir de ese ejemplo, puedes sacar conclusiones:

Código:

Sub repetimos()
For i = 1 To 50
    ActiveCell = "Esta frase la escribo " & i & " veces."
    ActiveCell.Offset(1, 0).Select
Next
End Sub