Error "438" el objeto no admite esta propiedad o metodos

4 envíos / 0 nuevos
Último envío
civer25
Imagen de civer25
Offline
última acción: Hace 4 meses 1 semana
alta: 04/04/2019 - 17:09
Puntos: 50
Error "438" el objeto no admite esta propiedad o metodos

Estuve intentando cargar unas facturas en un Excel que tiene una Macro, el tema es que está Macro se realizó utilizando la función de grabar que permiten grabar acciones en una Macro, la persona que me pasó el archivo le funciono perfectamente El problema Es que a mí en mi computadora no me funciona quería saber cuál podría ser el problema y para eso adjunto la imagen que me da Excel cuando seleccionó depurar. Es en el módulo 19, donde parece estar el problema, no sé cuál es  el problema con el ingreso los datos que me da el error y ni tampoco cómo se soluciona.

Saludos y desde ya muchas gracias por su ayuda.

AdjuntoTamaño
Image icon ayuda_con_macro.png199.86 KB
File libros_iva.xlsm192.43 KB

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 21 horas 49 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10680
Pues lo he probado y me

Pues lo he probado y me funciona (bueno, lo ejecuto y no me da ningún error al pasar por esa parte del código)

¿en qué condiciones da el fallo? ¿cómo ejecutas la macro?

al inicio de la macro selecciona unas celdas, pero no se indica de qué hoja ¿estás en la hoja donde se supone que tienes que estar para ejecutar la macro?

 

------
Ya sé Excel, pero necesito más.

CronyTech
Imagen de CronyTech
Offline
última acción: Hace 1 mes 3 semanas
alta: 29/02/2020 - 23:09
Puntos: 50
Hola!A mí sí me marcó el

Hola!

A mí sí me marcó el error. Es en esta línea del módulo 19:

    ActiveWorkbook.Worksheets("Libro IVA Compras").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Libro IVA Compras").Sort.SortFields.Add2 Key:= _

        Range("A8:A1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _

        :=xlSortNormal

Se resuelve reemplazando la parte que dice Add2 simplemente por Add.

Saludos.

Programas y complementos para Microsoft Office

Visítame: https://cronytech.jimdofree.com/productos-y-servicios/

 
gunner (no verificado)
Imagen de gunner
Se resuelve reemplazando la parte que dice Add2 simplemente por

Excelente resolvi el inconveniente con una macro de Dias.RisaRisaRisaRisaRisa

Con esa Solucion corre de maravillas.