Juntar filas
Hola nuevamente galoa ayer me candastes los códigos para una macro en los cuales debía eliminar un registro si en columna E ponía pagado,,, la macro funciona perfectamente bien el tema es que al eliminar todo lo que ya esta pagado la hoja se queda medio vacía medio llena osea que hay muchas filas vacías mezcladas con filas llenas y si pudiera ser me gustaría que cuando se eliminen las pagadas se recorrieran hasta encontrar una celda llena a fin de que se quedara un poco más organizado.
Te adjunto la macro para ver si modificándola pudiera cumplir dicha orden, en caso contrario mandame una nueva instrucción para asignarla a otra macro y que cumpliera dicha orden.
For fila = 2 To 10000
If Range("E" + Format(fila)) = "Pagado" Then
Range("B" + Format(fila)).ClearContents
End If
Next fila
Un saludo.
Te adjunto la macro para ver si modificándola pudiera cumplir dicha orden, en caso contrario mandame una nueva instrucción para asignarla a otra macro y que cumpliera dicha orden.
For fila = 2 To 10000
If Range("E" + Format(fila)) = "Pagado" Then
Range("B" + Format(fila)).ClearContents
End If
Next fila
Un saludo.
1 respuesta
Respuesta de galoa
1
Si te entiendo bien, quieres eliminar la fila en donde el código de la columna B haya sido borrado. Para esto, supongamos que tus datos van desde la fila 2 hasta la 1000:
For fila = 1000 To 2 Step -1
If Len(Range("B" + Format(fila))) = 0 Then
Range("B" + Format(fila)).EntireRow.Delete
End If
Next fila
For fila = 1000 To 2 Step -1
If Len(Range("B" + Format(fila))) = 0 Then
Range("B" + Format(fila)).EntireRow.Delete
End If
Next fila
