Auto relleno de Fechas
Que tal paramisolo,
En esta ocasión tengo la siguiente inquietud.
¿Puede Excel rellenar automáticamente celdas con el numero de semana con su mes correspondiente?
Quiero en Excel dar la fecha inicial y final de un proyecto. Y que Excel me ponga automáticamente el numero de semana y el mes.
Estoy haciendo un diagramma de Gantt con las semanas porque con días seria muy grande.
Te agradezco de antemano la respuesta.
En esta ocasión tengo la siguiente inquietud.
¿Puede Excel rellenar automáticamente celdas con el numero de semana con su mes correspondiente?
Quiero en Excel dar la fecha inicial y final de un proyecto. Y que Excel me ponga automáticamente el numero de semana y el mes.
Estoy haciendo un diagramma de Gantt con las semanas porque con días seria muy grande.
Te agradezco de antemano la respuesta.
1 respuesta
Respuesta de paramisolo
1
Prueba estas instrucciones a ver si te sirven, están pensada para que pongas una fecha en A1 y en B1 te pone la semana (numero) y el mes (numero) Semana 14-Mes 5
Sub Semana_Mes()
semana = VBA.DatePart("ww", Cells(1, 1), vbMonday, vbFirstJan1)
mes = VBA.DatePart("m", Cells(1, 1), vbFirstJan1)
Cells(8, 2).Value = "Semana" & " " & semana & "-" & "Mes" & " " & mes
End Sub
Si quieres que recorrer un rango cambia las veces que la macro comproibará numero de filas (10):
Sub Semana_Mes()
Dim i As Long
Dim semana as Long
Dim mes As Long
For i = 1 To 10
semana = VBA.DatePart("ww", Cells(i, 1), vbMonday, vbFirstJan1)
mes = VBA.DatePart("m", Cells(i, 1), vbFirstJan1)
Cells(i, 2).Value = "Semana" & " " & semana & "-" & "Mes" & " " & mes
Next i
End Sub
Sub Semana_Mes()
semana = VBA.DatePart("ww", Cells(1, 1), vbMonday, vbFirstJan1)
mes = VBA.DatePart("m", Cells(1, 1), vbFirstJan1)
Cells(8, 2).Value = "Semana" & " " & semana & "-" & "Mes" & " " & mes
End Sub
Si quieres que recorrer un rango cambia las veces que la macro comproibará numero de filas (10):
Sub Semana_Mes()
Dim i As Long
Dim semana as Long
Dim mes As Long
For i = 1 To 10
semana = VBA.DatePart("ww", Cells(i, 1), vbMonday, vbFirstJan1)
mes = VBA.DatePart("m", Cells(i, 1), vbFirstJan1)
Cells(i, 2).Value = "Semana" & " " & semana & "-" & "Mes" & " " & mes
Next i
End Sub
