Excel - Seleccionar Fila :S

[Pablus00]

Hola colegas, necesito una mano para resolver este lio, tengo 2 hojas, una de ellas tiene datos acomodados en filas con su nombre, apellido, compra, etc, intento hacer un macro, que desde la celda P9 hacia abajo, si esta escrito ok, que se seleccione toda esa fila y se copie en la 2da hoja.


Range("Q9").Select
'mientras la celda tenga escrito algo de informacion que se detenga ahi
Do While ActiveCell.Value <> Empty
'me muevo una columna a la izquierda hasta el casillero "status"
ActiveCell.Offset(0, -1).Select
If ActiveCell.Value = "OK" Then
'ActiveCell.Rows.Select
Range(Cells(ActiveCell.Row, 1)).Select
End If
Loop

Hasta aca llegue, y no logro poder seleccionar la fila que contiene el dato "OK" en la columna P..

[abrahamvj]

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

[Pablus00]

Hola Abraham, la verdad es que es practicamente para lo que lo estaba necesitando. Te cuento que hice unas pruebas y me da este error que no se resolver:

Error 1004: Error el el metodo activate de la clase Range

Private Sub CommandButton2_Click()

Dim Rango As Range
'Sheets("PENDIENTE PAGOS").Select, lo anule por que el boton ya esta en la hoja que necesito
For Each Rango In ActiveSheet.Range("P9:P15")
If Rango = "P" Then
Rango.EntireRow.Cut
Sheets("Base de Datos").Activate
ActiveSheet.Unprotect
Range("a9").End(xlDown).Offset(1, 0).Activate
'Rows("9:9").Select /Esta variante tampoco funciono
'Selection.Insert Shift:=xlDown /Esta variante tampoco funciono

ActiveSheet.Paste
End If
Next
'Sheets("PENDIENTE PAGOS").Activate
'Range("A5:A600").SpecialCells(xlCellTypeBlanks).E n tireRow.Delete

End Sub

[abrahamvj]

No uses un boton de controles, usa uno de formularios, y la macro en un modulo normal. Si por alguna razon tienes que usar uno de comandos, pues "llama" (CALL) desde este la macro del modulo normal, no lo coloques en el moduo d ela hoja

Abraham

[Pablus00]

La diferencia que ocurria era que vos lo llamabas desde la hoja Facturas Pagadas (ahi estaba tu boton) y yo intente hacerlo desde "pendiente pagos", al invertir esto la macro andubo, aun con el boton de comandos.

Por otro lado lo que me ocurria era que no me agregaba una linea nueva, al copiar la linea desde PENDIENTE PAGO no se por que, pero me copiaba una encima de la otra, entonces lo cambie asi el codigo y andubo:

Dim Rango As Range
Sheets("Envios por Correo").Select
For Each Rango In ActiveSheet.Range("P9:P15")
If Rango = "P" Then
Rango.EntireRow.Copy
Sheets("Base de Datos").Activate
ActiveSheet.Unprotect
Rows("9:9").Select
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
End If
Next
'Sheets("PENDIENTE PAGOS").Activate
'Range("A5:A600").SpecialCells(xlCellTypeBlanks).E n tireRow.Delete
End Sub

Todavia no termine de comprobar que funcione sin errores de ningun tipo, pero va mejor, sigo trabajando y te cuento, gracias abraham