Como eliminar filas con For each
Publicado por Cristian (2 intervenciones) el 24/11/2015 20:57:52
Hola!!!
Espero me puedan ayudar, recien estoy aprendiendo VB para excel, y se me ocurrio automatizar una pequeña tarea, que incluye eliminar todas las filas en donde la fecha de la celda sea inferior a lo digitado en un inputbox. Pero me elimina solo una fila.
Aca va el codigo que utilizo:
Espero ser claro, ya que aun me complica el metodo For each y el For Next, no los entiendo del todo.
Gracias por su ayuda.
Un abrazo
Espero me puedan ayudar, recien estoy aprendiendo VB para excel, y se me ocurrio automatizar una pequeña tarea, que incluye eliminar todas las filas en donde la fecha de la celda sea inferior a lo digitado en un inputbox. Pero me elimina solo una fila.
Aca va el codigo que utilizo:
1
2
3
4
5
6
7
8
9
10
11
Sub elim_fila()
Worksheets(1).Range("C1000000").End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Select
Dim seleccion As Range
fechacelda = CDate(InputBox("Seleccione fecha a eliminar", ""))
For Each seleccion In Selection
If seleccion.Value < fechacelda Then
seleccion.EntireRow.Delete
End If
Next seleccion
End Sub
Espero ser claro, ya que aun me complica el metodo For each y el For Next, no los entiendo del todo.
Gracias por su ayuda.
Un abrazo
Valora esta pregunta
0