[AYU] Problema con ejecucion de macro

Hola de nuevo y gracias por la dedicación! :)
Tengo este código de macro que me está tirando error cada vez que lo quiero ejecutar.
Aquí va el código, gente, a ver lo que pueden hacer.:
=======================================================
Sub Insert()
'
' Insert Macro
'
'
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A9").Select
    ActiveCell.FormulaR1C1 = "12/15/2010"
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "1:03 AM"
    Range("C9:Q9").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("M10:Q10").Select
    ActiveWindow.SmallScroll ToRight:=1
    Selection.AutoFill Destination:=Range("M9:Q10"), Type:=xlFillDefault
    Range("M9:Q10").Select
    Sheets("??? ????").Select
    Range("F8").Select
    Selection.Copy
    Sheets("??????").Select
    ActiveWindow.SmallScroll ToRight:=-3
    Range("E9").Select
    ActiveSheet.Paste
    Sheets("??? ????").Select
    Range("B8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("??????").Select
    Range("F9").Select
    ActiveSheet.Paste
    Sheets("??? ????").Select
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("??????").Select
    Range("G9").Select
    ActiveSheet.Paste
    Sheets("??? ????").Select
    Range("D8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("??????").Select
    Range("H9").Select
    ActiveSheet.Paste
End Sub
============================================
Saludos y gracias! :):)
{"lat":31.7655374094844,"lng":35.0595724582672}
1

1 respuesta

Respuesta
1
¿Y aquí veníamos bien hasta que volvieron a aparecer las líneas del Sheet?
La misma indicación. Colocá el nbre de la hoja que corresponda y ejecutala nuevamente.
Si te salta algún otro error, presioná el botón DEPURAR para que te lleve al Editor y allí te marcará con color la línea errada. Escribime esa línea aquí para que la evalúe.
El mismo comentario que en la anterior...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas