Error 1004 en macro (Dante amor)
Tengo este macro que me ayudó Luis Mondelo, en un archivo funciona a la perfección, pero al pasarlo al archivo donde tengo que utilizarlo, me da el error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto.
Sub proceso()
valor = "rojo"
Set busca = Sheets("hoja2").Range("a1:a" & Range("a65000").End(xlUp).Row).Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
destino = busca.Offset(0, 1).Address
End If
Sheets("hoja4").Range("b15:w18").Copy
Sheets("hoja2").Range(destino).PasteSpecial Paste:=xlValues
End Sub
A ver si puedes ayudarme a encontrar el problema...
Gracias!
1 respuesta
Así quedaría la macro
Sub proceso()
valor = "rojo"
Set busca = Sheets("hoja2").Range("a1:a" & Range("a65000").End(xlUp).Row).Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
destino = busca.Offset(0, 1).Address
Sheets("hoja4").Range("b15:w18").Copy
Sheets("hoja2").Range(destino).PasteSpecial Paste:=xlValues
End If
End SubEn tu libro deberás tener las hojas llamadas "hoja2" y "hoja4"
Saludos. Dante Amor
No olvides finalizar la pregunta.
Lo primero, muchas gracias Dante, pero no va.
Ahora no da el error, pero no pega las celdas que ha copiado.
¿Sabes qué puede ser?
No pega, porque no encuentra en la hoja2, en la columna A, la palabra "rojo", escribe la palabra rojo en cualquier fila de la columna "A" y prueba nuevamente.
