Error en macro al correr en diferentes versiones de excel
publicado
Hola
Soy nuevo en el foro, se me presenta una situación al compartir un archivo en excel que tiene una macro para almacenar los datos de un formulario en una base de datos.
La macro lo que hace es que toma copia los datos de un rango de datos en la hoja del formulario y los pega en la Hoja Data en el inicio de la tabla, haciendo un insertar hacia abajo y desplanzando las filas que se puedan encontrar abajo.
El punto es que la macro me corre a la perfección en mi computadora y en otras, pero en algunas versiones de excel me arroja el problema de automatización o me puede dar el error de "Error en el metodo copy de la clase range"
Hola
Soy nuevo en el foro, se me presenta una situación al compartir un archivo en excel que tiene una macro para almacenar los datos de un formulario en una base de datos.
La macro lo que hace es que toma copia los datos de un rango de datos en la hoja del formulario y los pega en la Hoja Data en el inicio de la tabla, haciendo un insertar hacia abajo y desplanzando las filas que se puedan encontrar abajo.
El punto es que la macro me corre a la perfección en mi computadora y en otras, pero en algunas versiones de excel me arroja el problema de automatización o me puede dar el error de "Error en el metodo copy de la clase range"
Muchas gracias por su ayuda!
Sub SavePesos()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Hoja1, Hoja2 As Worksheet
Set Hoja1 = ThisWorkbook.Sheets("Data")
Set Hoja2 = ThisWorkbook.Sheets("Pesos")
Sheets("Pesos").Activate
Range("Z2:AL12").Select
Selection.Copy
Sheets("Data").Activate
Range("B2").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Hoja2.Select
Range("D9:D21").Select
Selection.ClearContents
Range("D4").Select
Application.DisplayAlerts = True
End Sub
Adjunto el codigo del error
HbI forms part2 - Copy.xlsm