Jump to content

lphant

Members
  • Posts

    318
  • Joined

  • Last visited

Reputation Activity

  1. Thanks
    lphant reacted to John Jairo V in Problemas en formula suma.producto con número de semana ( tipo devuelto 21 )   
    ¡Hola @lphant!
    Lo que sucede es que tienes fechas en blanco dentro del rango seleccionado.  Si los controlas dentro de la fórmula, podrás trabajar de forma tranquila con el tema.  Adicionalmente, he reducido tu fórmula un poco, usando la técnica del "+" para que trabaje la función NUM.DE.SEMANA con rangos.  ¡Bendiciones!
    Libro1 (2).xlsx
  2. Thanks
    lphant reacted to Antoni in Número de semana   
    Te dejo una función que obtiene el número de semana del lunes de la semana que corresponde a la fecha.
    Sub ObtenerSemana() 'Ejemplo de llamada a la función Semana NumSemana = Semana(CDate("01/01/2021")) End Sub Function Semana(Día As Date) Semana = WorksheetFunction.WeekNum(Día - Weekday(Día, vbMonday) + 1) End Function  
  3. Thanks
    lphant got a reaction from tierra_pampa in Formula en hoja sin seleccionar o oculta   
    Gracias @tierra_pampa
    Ya he visto donde tengo el fallo.
    Tengo fórmulas con cells y.....esas son las que sin estar la hoja activa me da error.
    Worksheets("Hoja2").Range(cells(1,2), cells(1,20)).FormulaR1C1= "aquí la fórmula"
    Gracias.
  4. Thanks
    lphant reacted to tierra_pampa in Formula en hoja sin seleccionar o oculta   
    Hola @lphant
    No es necesario activar la hoja para ejecutar "muchas" acciones (salvo cuando debes obligatoriamente seleccionar) o escribir algo.
    Toma un libro nuevo que tenga como mínimo cuatro hojas.
    En un módulo común, copia este código. Selecciona una hoja y ejecútalo.
    Verás que escribe las fórmulas en todas las hojas involucradas sin necesidad de activarlas. Cambia la hoja seleccionada y vuelve a probar el código.
    Qué tengas un buen día! Suerte!
     
    Sub escribir_formulas() With Application .ScreenUpdating = False .DisplayAlerts = False End With Hoja1.Range("A2:A12").FormulaR1C1 = "=IF(RC3<>"""",COUNTIFS(R2C3:R12C4,RC3),1)" Hoja2.Range("B2:B12").FormulaR1C1 = "=IF(RC4<>"""",COUNTIFS(R2C3:R12C4,RC4),1)" Hoja3.Range("C2:C12").FormulaR1C1 = "=IF(RC4<>"""",COUNTIFS(R2C3:R12C4,RC4),1)" With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub
  5. Thanks
    lphant reacted to Mauricio_ODN in Error en ruta al consultar en un excel nuevo   
    Hola
    Intenta colocando estas líneas:
    Set Excel_Nuevo = Workbooks.Add
    Excel_Nuevo.Save
    ''MsgBox Excel_Nuevo.FullName
    RutaExcel = "Data Source=" & Excel_Nuevo.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;"""
    Salvara el libro, pero lo enviara por default a la carpeta de Documentos.
    Espero sea de utilidad, Nos comentas, Saludos.
×
×
  • Create New...

Important Information

Privacy Policy