Instrucción CopyToRange sólo valores

LARPI · el 27 de enero

Hola de nuevo,

quería saber si en la instrucción CopyToRange habría la posibilidad que copiara sólo valores y mantuviera el formato de la hoja destino siempre igual.

Gracias

Gerson Pineda · el 27 de enero

El metodo .Pastespecial te puede ser util

Saludos desde Honduras

LARPI · el 28 de enero

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

Gerson Pineda · el 28 de enero

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