error 1004: metodo PasteSpecial clase Range
Publicado por María del Mar (2 intervenciones) el 18/01/2021 12:04:43
Antes que nada, comentar que soy principiante en programación de MACROS.
Situación: he creado un macro que copie los valores seleccionados y los pega en una hoja (la cual me la busca según el valor de una celda) , todo en el mismo libro. Ejecuto el macro desde un objeto/botón.
La primera vez que ejecuto no me da problemas, pero cuando lo cargo por segunda vez (con nuevos datos) me sale el problema error 1004 en tiempo de ejecución: Error en el método PasteSpecial de clase Range. Si cierro /finalizo y vuelvo a ejecutarlo ya no me sale.
Me podría ayudar para que no me aparezca nunca el error.
Adjunto el código que empleo (entr
Espero que me puedan ayudar
Situación: he creado un macro que copie los valores seleccionados y los pega en una hoja (la cual me la busca según el valor de una celda) , todo en el mismo libro. Ejecuto el macro desde un objeto/botón.
La primera vez que ejecuto no me da problemas, pero cuando lo cargo por segunda vez (con nuevos datos) me sale el problema error 1004 en tiempo de ejecución: Error en el método PasteSpecial de clase Range. Si cierro /finalizo y vuelvo a ejecutarlo ya no me sale.
Me podría ayudar para que no me aparezca nunca el error.
Adjunto el código que empleo (entr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub load()
'' load MacroActiveSheet.Range("H7").Activate
ActiveSheet.Range("H7", "H19").Select
'selecciono de la ventana activa load_dat los datos que me interesan Selection.Copy'copio los valoresSheets(ActiveSheet.Range("C2").Value).Select
ActiveSheet.Unprotect ("PASWORD")
ActiveSheet.Range("A2", "M2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'selecciono la página que quiero, la desbloqueo y hago pegado especial (esta última linea es la que me da problemas)ActiveCell.Rows("1:1").EntireRow.Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'inserto una nueva fila encima'ActiveSheet.Protect ("PASWORD")
'bloqueo otra vez la paginaSheets("load_data").Select
ActiveSheet.Range("H7", "H19").Select
Selection.ClearContentsActiveSheet.Range("H7").Select
'selecciono los valores otra vez de la primera pagina load_data y los elimino, deselecciono estos seleccionando la primera celda que quiero volver a rellenarEnd Sub
Espero que me puedan ayudar
Valora esta pregunta
0
