Problema Excel

[adelsaz]

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

[adelsaz]

alguna idea por sencilla que sea?

mil gracias otra vez

[adelsaz]

si sirve de algo el error que me sale es el 400

[3pies]

A mí esto me funciona perfectamente:

Código:

Sub prueba()
numRegistros = 10
For row2 = 4 To numRegistros
If Cells(row2, 2).Value = "1" Then
    Range(Cells(row2, 3), Cells(row2, 6)).Select
    Selection.Copy
    Sheets("Hoja2").Select
    ActiveSheet.Range(Cells(row2, 3), Cells(row2, 6)).Select
    ActiveSheet.Paste
    Sheets("Hoja1").Select
End If
Next
End Sub

Es raro eso que te ocurre. Comprueba que la variable "numRegistros" esté informada, y que no tengas otra parte del código que entre en conflicto con algo.

Si eliges la otra opción que no te da error, prueba cambiando el código así:

Código:

Sub prueba2()
numRegistros = 10
For row2 = 4 To numRegistros
If Cells(row2, 2).Value = "1" Then
    fila = Cells(row2, 2).Row
    columna = Cells(row2, 2).Column
    Range(Cells(row2, 3), Cells(row2, 6)).Select
    Selection.Copy
    Sheets("Hoja2").Select
    ActiveSheet.Range(Cells(fila, columna + 1), Cells(fila, 6)).Select
    ActiveSheet.Paste
    Sheets("Hoja1").Select
End If
Next
End Sub

Ojo, yo he asignado numRegistros = 10, para hacer pruebas.

[ceSharp]

Hola adelsaz,

he intentado interpretar tu código pero me estoy volviendo loco! :)
mas o menos, ¿que es lo que quieres hacer?
mas que nada para hacerme una idea de la interpretación de tu código y si hubiera otra alternativa mas sencilla...

salu2

[adelsaz]

hola de nuevo, gracias a los dos, al final conseguí solucionarlo, el problema creo que venía por utilizar la misma variable (row2) para seleccionar el rango de origen y a la vez de destino (aunque en cualquier otro lenguaje de programación se podría haber hecho así), con lo que declarando una variable "filaDestino" de ámbito global funcionó, os pego el código por si a alguien le pasa lo mismo:

Public filaDestino

Sub Funcion()

....

'importante dar un valor a esta variable antes de entrar en el bucle
filaDestino = 4


For row2 = rowInicial To ambito
If Cells(row2, 34).Value = "1" Then

'Copia de datos
Range(Cells(row2, 31), Cells(row2, 43)).Select
Selection.Copy
Sheets("Colaboraciones").Select
ActiveSheet.Range("B" & filaDestino).Select
ActiveSheet.Paste
filaDestino = filaDestino + 1

'Borrado de datos
Sheets("Proyectos").Select
ActiveSheet.Range(Cells(row2, 31), Cells(row2, 43)).Select
Selection.Delete

'Si borramos la fila, hay que decrementarla para que no se salte una
row2 = row2 - 1

ultFilaDatos = ultFilaDatos + 1

End If

Next row2





End Sub









saludos a todos y gracias one more time ;)