Jump to content

Antoni

Members
  • Posts

    11,546
  • Joined

  • Last visited

  • Days Won

    822

Everything posted by Antoni

  1. 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
  2. A ver si lo ves más claro. Abre el adjunto y pulsa sobre la flecha azul. Filtrar por año.xlsm
  3. ¿Tienes alguna macro o UDF? Sube tu archivo y le echaremos un vistazo.
  4. 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
  5. Sube tu archivo y pon un ejemplo de lo que quieres.
  6. Si no existe el label, nunca ha podido funcionar el formulario.
  7. Set rango = Union(Range("UNO"), Range("DOS"), Range("TRES"))
  8. Sube un archivo Excel con los datos tal como los tienes y explica con un ejemplo lo que quieres obtener.
  9. 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
  10. Para acceder a la celda C13: Range("Tabla1[ENTRADA]")(12).Select
  11. Sin el archivo y con un ejemplo de lo que quieres, va a ser difícil que alguien te pueda ayudar.
  12. Vamos a ver si lo he entendido. ¿ Lo que quieres es un calendario en la hoja con VBA, sin fórmulas ?
  13. 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.
  14. ¿Has añadido alguna hoja? ¿Has cambiado alguna hoja de nombre? ¿Has protegido alguna hoja? ¿El PC es el mismo? ????????
  15. No se que ha hecho JSDx2, yo he hecho esto. Calcular_Edad.xlsm
  16. 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
  17. 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
  18. Sin el archivo y sin concretar lo que quieres, difícil.
  19. Prueba con esta macro: Sub FiltrarHoy() ActiveSheet.UsedRange.AutoFilter Field:=[CN1].Column, _ Operator:=xlFilterValues, Criteria1:=Format(Date, "mm/dd/yyyy") End Sub
×
×
  • Create New...

Important Information

Privacy Policy