Jump to content

Instrucción CopyToRange sólo valores


LARPI

Recommended Posts

Hola Gerson,

copio aquí el código:

Sub Botón208_Clic()
Sheets("hoja1").Select
Range("k1") = Sheets("hoja3").Range("C1")
uf = Sheets("hoja2").Range("A" & Cells.Rows.Count).End(xlUp).Row
Sheets("Hoja2").Range("A1:j" & uf).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("m1:m2"), COPYTORANGE:=Range("b6:j6")
End Sub[/CODE]

Aquí no puedo canviar directamente el copytorange por pastespecial. He porbado diferentes convinaciones pero no funciona.

Saludos

Link to comment
Share on other sites

Hola Larpi

Me referia a lo siguiente:

    Sub Botón208_Clic()
Application.ScreenUpdating = False
Sheets("hoja1").Select
Range("k1") = Sheets("hoja3").Range("C1")
uf = Sheets("hoja2").Range("A" & Cells.Rows.Count).End(xlUp).Row
With Sheets("Hoja2").Range("A1:j" & uf)
[COLOR=#a9a9a9]Rem >>> .AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("m1:m2"), COPYTORANGE:=Range("b6:j6")[/COLOR]
.AutoFilter Field:=13, Criteria1:=Range("M2")
.Copy
Range("B6").Activate: Selection.[COLOR=#ff0000][B]PasteSpecial [/B][/COLOR]xlValues
End With
Range("A1").AutoFilter
ActiveCell.Select
Application.ScreenUpdating = True
End Sub[/CODE]

Debo comentarte, que cuides tu ortografia, y siempre trata de subir un archivo, todo esto es para tu (y de todos) beneficio

Espeto te funcion y nos comentas porfavor

Saludos desde Honduras

Link to comment
Share on other sites

  • 2 weeks later...

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy