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