Toni Ortonoves

Tengo varios códigos que funcionan perfectamente desde hace tiempo tanto en 2019 como en 365 y desde hace unos días algunos no terminan de ejecutarse en 365. ¿Alguien sabe si hay algún tipo configuración o seguridad que esté bloqueando su ejecución?...

Me encuentro con un código que funciona correctamente desde hace años, ¿Y ahora sin motivo aparente solamente consigo ejecuarlo bien empleando el modo de interrupción? Es como si fuese "demasiado rápido" ...

Hace un par de años que llevo utilizando varios códigos en mi pc con macros vba excel, y todo perfecto, hasta que hace unos días, me encontré con que al utilizar una nueva macro me desaparecía el código del "otro" fichero en el que estaba trabajando....

Estoy intentado seleccionar varias opciones en un mismo AutoFilter en VBA EXCEL pero con Array solo consigo 2, alguien sabe como hacer más opciones. El código que utilizo es : Range("A1").AutoFilter FIELD:=1, Criteria1:=Array("Pantalones" & "*",...

Tengo 2 radiadores de aluminio que se han estropeado y en su parte superior oxidado. Alguien me puede decir su causa y que solución tiene.

Estoy intentando copiar una macro de un libro excel a otro y tengo los 2 libros abiertos pero no me funciona (Desde Libro GESTIÓN a Libro DATOS), La macro se llama FICHERO_1 Sub EXPORTAR_ARCHIVO()...

Tengo un libro excel que se actualiza cada día con la fecha y preciso abrirlo sin tener que indicar el nombre exacto. Estoy intentando con el siguiente código : Sub ARCHIVODIARIO() RUTA = "C:\Users\PCTONI\ARCHIVO DIARIO " NOMBRE = "*" Workbooks.Open...

Tengo este código pero no me funciona del todo bien, ya que no selecciona los datos que tengo filtrados y se queda en el encabezado : Range("A1:J1").Select C1 = Selection.Address Range(C1).End(xlDown).Select c2 = Selection.Address MsgBox C1 & c2...

Necesito guardar de alguna forma las impresiones que se realizan en el archivo Excel vba

Tengo este código pero NO consigo que al abrir el libro excel VAYA a la hoja indicada MYFILE1 = "C:\Users\Xavi\MILIBRO1.xlsm" Workbooks.Open MYFILE1 FullName = Split(MYFILE1, Application.PathSeparator) WBO = FullName(UBound(FullName)) B1 = "Hoja2"...