13/06/2007, 17:02
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 18 años, 5 meses Puntos: 18 | |
| Re: Excel - Seleccionar Fila :S
Un ejemplo que hice para un amigo:
Sub mover()
Dim Rango As Range
Sheets("PENDIENTE PAGOS").Select
For Each Rango In ActiveSheet.Range("I3:I600")
If Rango = "P" Then
Rango.EntireRow.Cut
Sheets("FACTURAS PAGADAS").Activate
Range("a4").End(xlDown).Offset(1, 0).Activate
ActiveSheet.Paste
End If
Next
Sheets("PENDIENTE PAGOS").Activate
Range("A5:A600").SpecialCells(xlCellTypeBlanks).En tireRow.Delete
End Sub
Aqui hay dos hojas como vez. En la hoja "pendientes de pago", en la columna I, el escribia una "P", para aquellas pagadas, y queria que cada fila donde hubiese esta "P", se pasara a la hoja "Facturas pagadas", una debajo de otras, y luego essas filas "vacias" desaparecieran
Abraham |