#ParticipaEEE: ¿Cuántos Jueves hay en un año, resolver con Excel?

#ParticipaEEE: ¿Cuántos Jueves hay en un año, resolver con Excel?Hoy en #MartesDeExcel:
Con base en inquietud dejada en nuestro Canal de Youtube por un miembro de nuestra Comunidad Triple EEE hemos decidido crear el espacio #ParticipaEEE con el fin de atender y gestionar algunos casos o solicitudes dejados por nuestra Comunidad, la novedad de este espacio es que la solución de los casos es que será proporcionada por la Comunidad Triple EEE.

Kris Adely es quien participa con la inquietud el día de hoy, solicitando que le ayudemos a calcular con Excel ¿cuántos Jueves hay en un año?, a través de este espacio #ParticipaEEE,rea como parte de la Comunidad Triple EEE es ayudarle a Kris Adely a encontrar la solución de lo que necesita ella, solo que para dar tu solución, te recomendamos que veas el ejercicio completo, ya que este se complemento o se le agregó algo más, esto lo verás en el vídeo a continuación.

En el próximo artículo presentaremos la respuesta de este caso, mencionaremos a las personas que proporcionaron una respuesta al caso y la forma en que lo solucionaron, la invitación es que participes aportando una solución al caso de Kris Adely, deja tu aporte en la zona de comentarios de este artículo.

A continuación el vídeo explicativo con el caso completo:

1) Suscríbete en nuestro Canal de Youtube: https://goo.gl/FrswaC

2) Suscríbete a este curso gratuito para aumentar tu productividad en Excel un 80% y obtén 4 regalos adicionales al suscribirte a este curso: http://goo.gl/zNqh0o

Artículos anteriores:

  1. Día 40 – Consultar empleado en Excel mostrando sus datos y su Foto
  2. Día 39 – Simule resultados con los Escenarios de Excel
  3. Día 38 – Macro en Excel para Eliminar fila con doble Click
  4. Día 37 – Ejecutar Macro en Excel cuando cambie el valor de una Celda
  5. Día 36 – Utilizando un ComboBox en Excel como un hipervínculo

17 comentarios en “#ParticipaEEE: ¿Cuántos Jueves hay en un año, resolver con Excel?”

  1. Buenas tardes comunidad,
    Este es mi aporte a la solucion de:
    ¿Cuántos Jueves hay en un año, resolver con Excel?

    Año Consultado 2013

    Cantidad de jueves año anterior 2012 52

    Cantidad de jueves año consultado 52 “=F17+SI(Y(F16=F18);1;SI((F16+0-7)>=F18;1;0))

    Cantidad de jueves año siguiente 2014 52

    Comienzo de año 01/01/2013
    Final de año 31/12/2013
    Dia semana jueves

    Diferencia en fechas: “=+E15-E14 364
    No. Del dia Jueves al iniciar año: “=DIASEM(E14;2)” 2
    No. De Semanas: “=+F19/7 52
    No. Del dia jueves en la semana 4
    Dias que sobran al No. De semanas 0 El No. De semanas es exacto

    Aplica igual para año anterior y posterior

    Saludo Cordial,

    Raul F. De La Torre C.

  2. Saludos comunidad aca una posible formula para resolver el problema planteado lo realice con Function para hacerlo mas flexible

    Function CantidadDias(x As Integer, DiaCalculo As String) As Integer
    Dim y As Date
    Dim CuentaDias As Integer

    Z = DateValue(“1/1/” & x)
    y = DateValue(“31/12/” & x)
    While Z <= y
    If Application.WorksheetFunction.Weekday(Z, 2) = Range("H7") Then 'en esta celda evalué el día con un Si
    CuentaDias = CuentaDias + 1
    End If
    Z = Z + 1
    Wend
    CantidadDias = CuentaDias

    End Function
    Se puede hacer mas flexible aun colocando la evaluación dentro de la Function

    Para el caso año despues y año anterior generé dos funciones mas CantidadDiasD yCantidadDiasA y lo único por hacer es sumar o restar en "z" y "y" donde aparece la x, ejemplo
    Z = DateValue("1/1/" & x+1)
    y = DateValue("31/12/" & x+1) para el año despues

    Espero les guste
    SAC

  3. buenos dias, me parece muy valiosa la informacion que aca se publica, estoy iniciando con el reto 40 excel voy en el reto N° 6 y me han aportado mucha informacion valiosa, los felicito por su dedicacion y esfuerzo para que mucha gente como yo aprenda cada dia .

  4. Bien aca lo comentado anteriormente
    If DiaCalculo = “Lunes” Or DiaCalculo = “Lun” Then
    NumDia = 1
    ElseIf DiaCalculo = “Martes” Or DiaCalculo = “Mar” Then
    NumDia = 2
    ElseIf DiaCalculo = “Miercoles” Or DiaCalculo = “Mie” Then
    NumDia = 3
    ElseIf DiaCalculo = “Jueves” Or DiaCalculo = “Jue” Then
    NumDia = 4
    ElseIf DiaCalculo = “Viernes” Or DiaCalculo = “Vie” Then
    NumDia = 5
    ElseIf DiaCalculo = “Sabado” Or DiaCalculo = “Sab” Then
    NumDia = 6
    ElseIf DiaCalculo = “Domingo” Or DiaCalculo = “Dom” Then
    NumDia = 7
    End If
    con esto incluido luego del último Dim permitirá que la función esté disponible para cualquier archivo, ah no olviden cambiar a línea
    If Application.WorksheetFunction.Weekday(Z, 2) = NumDia Then
    CuentaDiasD = CuentaDiasD + 1
    End If
    saludos

  5. Pingback: Solución: ¿Cuántos Jueves hay en un año, resolver con Excel? - Especialistas En Excel

  6. Pingback: Macro en excel - acumular suma en una misma celda

  7. Pingback: Función SIFECHA en Excel

  8. Pingback: 8 Trucos en Excel para comparar datos rápidamente

  9. Pingback: Función BDCONTAR en Excel

  10. Pingback: Función DIAS.LAB en Excel - Calcular Días laborables

  11. Pingback: Función PROMEDIO.SI en Excel - Funciones de Excel - Especialistas En Excel

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *