Al momento de ejecutar la macro me sale un error 1004, solo funciona una vez guardo cambios y sale el error

1 post / 0 nuevos
karelanda
Imagen de karelanda
Offline
última acción: Hace 4 días 12 horas
alta: 13/05/2019 - 20:56
Puntos: 35
Al momento de ejecutar la macro me sale un error 1004, solo funciona una vez guardo cambios y sale el error

 Application.ScreenUpdating = False

    

    ActiveSheet.Protect Password:="CDS-MTY2019", UserInterfaceOnly:=True, AllowFormattingColumns:=True, _

    AllowFormattingCells:=True, AllowFormattingRows:=True


    Range("F6,F7,F8,F9,F10,F11,F12,F13,F14,F15,F16").Select

    Range("F16").Activate

    Selection.Copy

    Sheets("Base de datos ").Select

    Range("B6").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=True

    Application.CutCopyMode = False

    Rows("6:6").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("B7:L7").Select

    With Selection.Font

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

    End With

    With Selection.Font

        .Name = "Arial"

        .Size = 12

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

        

    ActiveSheet.Protect Password:="CDS-MTY2019", UserInterfaceOnly:=True, AllowFormattingColumns:=True, _

    AllowFormattingCells:=True, AllowFormattingRows:=True


    End With

    Range("A4").Select

    Sheets("Portada").Select

    Range("F6").Select



    Application.ScreenUpdating = True

 

End Sub

Etiquetas: