¿Cómo colocar pegado especial al siguiente código?

Ponerle pegado especial
For i = 11 To 14
h3.Range(h3.Cells(i, "D"), h3.Cells(i, "H")).Copy h3.Range("d6:h6")
Run "Libro1.xls! Ir"
h1.Range("d24").Copy h3.Range("h6")
h1.Range("d24").Copy h3.Range("h" & i).PasteSpecial Paste:=xlValues ---- ERROR
Next i

error en el .PasteSpecial Paste:=xlValues ayuda 

De antemano gracias.

Saludos,

1 respuesta

Respuesta
1

Cambia la palabra

XlValues

Por

XlPasteValues

Tambien me sale error :/

Ah, perdona ya vi bien el código, debería ser así:

Quita esta línea

h1.Range("d24").Copy h3.Range("h" & i).PasteSpecial Paste:=xlValues ---- ERROR

Y pon estas:

h1.Range("d24").Copy
h3.Range("h" & i).PasteSpecial Paste:=xlValues

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas