16/03/2009, 10:24
|
| | | Fecha de Ingreso: marzo-2009
Mensajes: 7
Antigüedad: 15 años, 1 mes Puntos: 0 | |
| Problema Excel
Hola, tengo una dudilla, ¿por qué este código me genera un error 400?
For row2 = 4 To numRegistros
If Cells(row2, 2).Value = "1" Then
Range(Cells(row2, 3), Cells(row2, 6)).Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Range(Cells(row2, 3), Cells(row2, 6)).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
End If
Next row2
Si las celdas destino las pongo estáticas (la fila en negrita la sustituyo por ActiveSheet.Range("A1:D1").Select, sí que me funciona, pero claro, me machaca la copia en cada iteración del bucle :(
Alguno veis el error? muchas gracias a todos |