Toda la actividad

Probé la macro incluyendo la linea anterior y en mi ordenador un segundo fue suficiente para que funcionara correctamente. Si te sigue dando el formulario incorrecto modifica el tiempo de espera de esa línea subiendo de 1 a 3 segundos.

Gracias por responder, perdón por la confusión, efectivamente al imprimir me sigue colocando los montos errados al imprimir el formulario

En el mensaje original no comentabas nada de un error, simplemente no te salía el formulario con los valores que deseabas. ¿Es así?

Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error. ' Restaurar formato de fuente With wsHistorico.Rows("2:2").Font .ColorIndex = xlAutomatic .TintAndShade = 0 End With ' Incrementar automáticamente el número de recibo wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1 'Corrección de Error en impresión Application.Wait (Now + TimeValue("0:00:01")) ' Imprimir wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Ahora sí, aquí lo dejo por si a alguien le viene bien. Private Sub Worksheet_Change(ByVal Target As Range) Dim celda As Range Dim imgNombre As String Dim imgOriginal As Shape Dim imgCopia As Shape Dim nombreImagenCelda As String ' Solo actuar si el cambio es en una celda individual If Target.CountLarge > 1 Then Exit Sub Set celda = Target nombreImagenCelda = "Imagen_" & celda.Address(False, False) ' Eliminar imagen existente en esa celda (si existe con ese nombre) On Error Resume Next Me.Shapes(nombreImagenCelda).Delete On Error GoTo 0 ' Determinar qué imagen usar según el valor Select Case celda.Value Case 1: imgNombre = "PruebaEuropa" Case 2: imgNombre = "PruebaAsia" Case 3: imgNombre = "PruebaÁfrica" Case 4: imgNombre = "PruebaAmérica" Case 5: imgNombre = "PruebaOceanía" Case 6: imgNombre = "PruebaMarrón" Case Else: Exit Sub ' No hacer nada si el valor no es válido End Select ' Buscar la imagen original On Error Resume Next Set imgOriginal = Me.Shapes(imgNombre) On Error GoTo 0 If imgOriginal Is Nothing Then MsgBox "No se encontró la imagen '" & imgNombre & "'.", vbExclamation Exit Sub End If ' Copiar la imagen y colocarla sobre la celda imgOriginal.Copy Me.Paste Set imgCopia = Me.Shapes(Me.Shapes.Count) With imgCopia .Top = celda.Top .Left = celda.Left .Height = celda.Height .Width = celda.Width .LockAspectRatio = msoFalse .Name = nombreImagenCelda End With End Sub

Creo que he encontrado la solución dando nombre a las imágenes y haciendo una macro con la que me pone encima esa imagen, dependiendo del número. No, no me funciona porque no me cambia las imágenes al cambiar el número

He comprobado que al eliminar ese listado de nombres, con sus correspondientes fórmulas (aunque INDICE y COINCIDIR no creo que son volátiles), el archivo vuelve a la normalidad. No pierde apenas peso en Kb pero si gana ligereza. Me pregunto si hay otro modo de hacerlo o simplemente me tengo que dar por vencida. La idea es que dependiendo del número que consigo en la celda me cambia a una imagen u otra. El recuadro tapa la celda con el número. ¿Alguna idea?

Hola Maku, Parece que tu problema se encuentra en las fórmulas. Un exceso de fórmulas en la hoja (sobre todo si usas funciones volátiles) puede ralentizar mucho el archivo. Presta atención también a las macros, que no realicen acciones que no tengan que hacer. También puedes eliminar las filas y columnas que no uses. Estas acciones pueden mejorar mucho tu archivo. Espero que se solucione. Si no es así, aquí estamos para ayudarte.

Puede deberse a la cantidad (una por cuadrado) de nombres que tengo creados, con su correspondiente fórmula, en el administrador? (Esta no es la Hoja 1)

Buenas noches, tengo un problema con un libro de excel, va lento en la Hoja 1 He bajado el tamaño de todas las fotos y he conseguido un peso de 926 Kb, la tercera parte de cualquier otro de los que suelo hacer. Sigo sin encontrar la forma de que funcione normalmente. Las macros de los filtros van muy lentas, pero solo las de esa Hoja 1, el resto me funciona con normalidad. Es verdad que la Hoja 1 contiene más macros de las habituales (25 en lugar de 20), pero son muy sencillas. Sin embargo, si elimino el resto de las hojas, y dejo solo la Hoja 1, funcionan bien los filtros de las macros y la velocidad general de cambio de celda y demás. ¿Me podéis dar una idea de qué mirar o por donde atacarle? No puedo subir el archivo porque no me da el tamaño.

Hola, Dorgelis, Si le pones un segundo de retraso a la macro antes de imprimir el formulario, consigues tu propósito. Introduce la línea Application.Wait (Now + TimeValue("0:00:01")) antes de esta: wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Saludos. Estoy enfrentando un inconveniente en mi código VBA. Al cargar los datos en la hoja "Recibo", la información se traslada correctamente a la hoja "Historico", ubicándose en las celdas correspondientes sin problemas. Sin embargo, al momento de imprimir el Recibo, la celda correspondiente a "Saldo Anterior" (que debería conservar su valor original) muestra el monto actual del "Saldo", lo cual es incorrecto. Agradecería orientación para evitar que esa celda sea modificada antes o durante la impresión. Recibo Inmobiliaria 1.xlsm

Los errores en VBA - Ayuda Excel Tareas repetitivas con bucles en VBA - Ayuda Excel 5 ejemplos prácticos de tareas con el objeto Workbook - Ayuda Excel Lo que debes saber al trabajar con hojas en VBA - Ayuda Excel El editor de VBA a fondo - Ayuda Excel Si quieres una guía estructurada para ir de 0 a 100 y tener docenas de códigos listos para usar, todo está compilado en mi Manual 'De 0 a 100 con Macros y VBA'.

Gracias a todos.

Hola a ambos, @RandalHP , por si es de tu interés, te paso un archivo donde con una sencilla fórmula puedes obtener, partiendo de fecha inicial y fecha final a voluntad, el total de cada uno de los 'CeBe'. Ambas fechas habría que introducirlas en J6 y K6. El modelo es fácilmente aplicable/ampliable a rangos de mayor amplitud, sea en datos (filas) o fechas (columnas). Saludos, DATA (B).xlsx

Hola, puedes usar Power Query o columnas auxiliares. Te dejo una forma usando PQ. DATA.xlsx

Hola amigo, adjunto lo solicitado. Ss. DATA.xlsx

Hola, para evitar respuestas no necesariamente certeras, adjunta tu archivo; si hay datos que creas privados, solo reemplázalos por algunos que no alteren lo principal del asunto.

Buenas tardes, tengo un problema para una tabla dinámica que estoy trabajando. Esta contiene fechas en las columnas y los datos sumados en las filas. Pero cuando quiero pasar esto a una tabla dinámica no las puedo agrupar, Excel determina que las cabeceras son nombres y no me las agrupa para sumar por meses o años. ¿De que manera podría trabajar este archivo? Necesito agrupar los datos de la cabecera que salen por mes y años... ☹️

Vale, vale, he visto la luz! Tengo formato condicional que el otro día no vi. Lo miré y no lo vi. Ni te molestes Abraham Valencia. Mil gracias a los dos

Este Listado de condiciones.xlsx

Hola Maku. Yo creo que tu archivo ya cumple lo que quieres! Entiendo que querías una herencia... El primer cuadro lo coloreaste a mano y el segundo ha heredado eso, por lo que está esperando que lo colorees a mano también 😁 Fuera de bromas... Una opción sería que lo hagas con formato condicional y otra opción sería que lo hagas con macros, depende por cuál te inclines y si hay limitaciones en el entorno donde piensas ejecutarlo. Los archivos de macros tienen algunas limitaciones a nivel empresarial por las restricciones impuestas, por temas de seguridad, que impiden su ejecución. Ya nos comentas para poder ayudarte con algo

Hola, me refería a aquel en el que mencionas se filtra y "hereda" los colores

He reducido el archivo dejando solo un continente, espero que sirva. No creo que tengo ningún condicional, las coloreé 'a mano' TODO TARJETAS.xlsx

¿y el archivo? ¿No habrá algún Formato Condicional haciendo ese "trabajo"?