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

6 envíos / 0 nuevos
Último envío
civer25
Imagen de civer25
Offline
última acción: Hace 4 años 1 mes
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 1 día 5 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
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 3 años 10 meses
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.

nero43
Imagen de nero43
Offline
última acción: Hace 3 años 5 meses
alta: 11/10/2020 - 00:13
Puntos: 10
ayuda por favor

hola yo tambien tengo un problema parecido con este codigo

With Sheets("portada")

   If .optionButton19 = True Then

      trim = 2

   ElseIf .optionButton20 = True Then

      trim = 3

   ElseIf .optionButton21 = True Then

      trim = 4

End If

End With

el error sale en esta linea If .optionButton19 = True Then

me podrian ayudar por favor es para una macro de reportes fiscales

Francisco Fernandez (no verificado)
Imagen de gunner
Gracias

CronyTech, gracias, resolví el problema con tu sugerencia, en mi computadora corre sin problema, pero cuando se lleva a otra, marca el problema, pero listo, de verdad gracias