Toda la actividad

Muchas gracias @RubenDario

Hola @RubenDario Faltaría que en cada línea dentro del With le pongas un punto al inicio With Hoja1 .Range("B6:B18,F6:F18,J6:J18").Select .Range("J6").Activate With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With .Selection.ClearContents .Range("A1").Select End With Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones. No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón. Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo. Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub

Buenos días! Estimado @Sergio es una verdadero placer ver y navegar por el nuevo diseño. Estoy seguro que muchos de los que estamos aquí lo estamos disfrutando. El día de ayer 27 de agosto ingresé de nuevo y me llevé una grata sorpresa. Muchas felicidades maestro !! Rubén.

Hola amigos Adjunto un archivo de uso diario en el cual me funciona bien una macro de limpieza de rangos específicos. Quiero estar seguro que si abro otro archivo no se ejecute en éste recién abierto la misma macro si presiono (por equivocación) las teclas de acceso directo. En este caso Ctrl+Mayus+V. Lo hice con grabación de macros y al código generado yo le agregué "With Hoja1" y su correspondiente "End With". ¿Debo en alguna parte del código (supongo que al principio) agregar algo más? Algo como "ThisWorkbook" u otra propiedad... Gracias de antemano Rubén 000000 Transferencias.xlsm

Le aumenté a 3 Seg. Y nada, no se que estoy haciendo mal Este seria la impresión original al cargar el Formulario: Y esta es la Impresión que me sale, me carga el Saldo en la Celda J21 del Recibo

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