Antoni

Lo mismo, pero con mi toque personal. Pulsando sobre la "imagen", esta pasa a la celda activa. El formulario se muestra como NO MODAL, por lo que se puede interactuar con la hoja. Besitos. MCaptionImg.xlsm

A ver si lo ves más claro. Abre el adjunto y pulsa sobre la flecha azul. Filtrar por año.xlsm

¿Tienes alguna macro o UDF? Sube tu archivo y le echaremos un vistazo.

Basta con buscar Autofilter año en Google. Si vas a filtrar por la columna A: (Macro hecha a partir de la grabadora de macros) Sub FiltrarAño() 'De la ayuda de Microsoft: https://learn.microsoft.com/es-es/office/vba/api/excel.range.autofilter 'Autofilter Criteria2: 'Se usa también como criterio único en campos de fecha que se filtran por fecha, mes o año. 'Seguido de una matriz, detalla el filtrado Array(Nivel, Fecha). 'Donde el Nivel es 0-2 (año, mes, fecha) y la Fecha es una fecha válida dentro del período de filtrado. TextBox1 = "2022" 'Ejemplo valor en textbox1 filtro = "01/01/" & TextBox1 ActiveSheet.Columns("A").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(0, filtro) End Sub

Por favor, ¿Podrías explicar como lo has arreglado?

Sube tu archivo y pon un ejemplo de lo que quieres.

Si no existe el label, nunca ha podido funcionar el formulario.

Set rango = Union(Range("UNO"), Range("DOS"), Range("TRES"))

Sube un archivo Excel con los datos tal como los tienes y explica con un ejemplo lo que quieres obtener.

La macro: Sub Exportar(Rango As Range, Tipo As String) Dim Gráfico As ChartObject Rango.CopyPicture xlScreen, xlPicture Set Gráfico = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=Rango.Width, Height:=Rango.Height) Gráfico.Activate With Gráfico.Chart .Paste .Export Filename:="Imagen." & Tipo, Filtername:=Tipo End With Gráfico.Delete End Sub Cómo ejecutarla: Sub ExportarImagen() Exportar Range("A1:C7"), "JPG" End Sub

Para acceder a la celda C13: Range("Tabla1[ENTRADA]")(12).Select

Espero que te pueda servir. Calendario Maurizio.xlsm

Sin el archivo y con un ejemplo de lo que quieres, va a ser difícil que alguien te pueda ayudar.

Vamos a ver si lo he entendido. ¿ Lo que quieres es un calendario en la hoja con VBA, sin fórmulas ?

No se si he entendido lo que buscas. Numero_Setimana_Inizio_Mese.xlsm

No se que entiendes por "demorarse", he hecho multitud de pruebas y en todos los casos la macro se ejecuta en menos de 1 segundo.

¿Has añadido alguna hoja? ¿Has cambiado alguna hoja de nombre? ¿Has protegido alguna hoja? ¿El PC es el mismo? ????????

No se que ha hecho JSDx2, yo he hecho esto. Calcular_Edad.xlsm

Añade este código, he supuesto que el combo se llama ComboBox1: Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _ ByVal X As Single, ByVal Y As Single) ComboBox1.DropDown End Sub

Si.

Ese código no es mío, pero contestando a tu consulta te paso unas macro que hacen lo que pides. Solo tienes que cambiar el rango y el nombre del archivo. Rango de la hoja activa: Sub RangoPDF() Dim Archivo As String Range("A1:C15").CopyPicture xlScreen, xlPicture Sheets.Add 'Hoja de trabajo Range("C5").Select 'Celda de destino ActiveSheet.Paste '-- Archivo = ThisWorkbook.Path & "F:\Mi archivo.pdf" 'Archivo a crear ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Archivo '-- Application.DisplayAlerts = False 'Ignora mensajes ActiveSheet.Delete 'Eliminamos la hoja de trabajo Application.DisplayAlerts = True 'Restaura mensajes End Sub Toda la hoja: Sub HojaPDF() Dim Archivo As String '-- Archivo = ThisWorkbook.Path & "F:\Mi archivo.pdf" 'Archivo a crear ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Archivo '-- End Sub

Sin el archivo y sin concretar lo que quieres, difícil.

Prueba con esta macro: Sub FiltrarHoy() ActiveSheet.UsedRange.AutoFilter Field:=[CN1].Column, _ Operator:=xlFilterValues, Criteria1:=Format(Date, "mm/dd/yyyy") End Sub

Prueba el Userform2 del adjunto. Calendario (1).xlsb