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

El metodo .Pastespecial te puede ser util

Saludos desde Honduras

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

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

Hola Larpi

Comenta porfavor (es parte de las normas no abandonar los temas), espero tus comentarios

Saludos

Perdona,

es que voy un poco mal de tiempo y no me lo he podido mirar detenidamente.

Saludos

Holo siento porque se que parece que haya abandonado el tema. Lo probe hace unos dias pero con las prisas no logre sacarlo.

Espero tener mas tiempo para mirarlo detenidamente.

Gracias