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:
- Día 40 – Consultar empleado en Excel mostrando sus datos y su Foto
- Día 39 – Simule resultados con los Escenarios de Excel
- Día 38 – Macro en Excel para Eliminar fila con doble Click
- Día 37 – Ejecutar Macro en Excel cuando cambie el valor de una Celda
- Día 36 – Utilizando un ComboBox en Excel como un hipervínculo
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.
Hola Raúl, gracias por tus aportes, de eso se trata en nuestra cominidad Triple EEE, saludes
Buenas tardes está muy interesante la pregunta lo haría con una macro y una fórmula de contar
Hola Jessy, gracias por comentar, un abrazo.
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
Hola Sac, gracias por el aporte, esperamos que sigas conectado con todo nuestro contenido. Saludos
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 .
Hola Nicolas, con mucho gusto, sigue con el #Reto40Excel disfrútalo y aprende, gracias por comentar, saludos.
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
Muchas gracias por el aporte, lo publicaremos en el artículo respectivo, saludos.
Pingback: Solución: ¿Cuántos Jueves hay en un año, resolver con Excel? - Especialistas En Excel
Pingback: Macro en excel - acumular suma en una misma celda
Pingback: Función SIFECHA en Excel
Pingback: 8 Trucos en Excel para comparar datos rápidamente
Pingback: Función BDCONTAR en Excel
Pingback: Función DIAS.LAB en Excel - Calcular Días laborables
Pingback: Función PROMEDIO.SI en Excel - Funciones de Excel - Especialistas En Excel