14/06/2007, 11:36
|
 | | | Fecha de Ingreso: diciembre-2003 Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 5 meses Puntos: 11 | |
| Re: Excel - Seleccionar Fila :S
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
__________________ -- Nunca te des por vencido, aún vencido -- Web |