Sep 26 2020 06:50 AM
Hi all,
From B2 column to AF2 column, I need to display all days of a specific month.
The starting and last day for every month, are displayed in another Sheet. On the actual Sheet who I need to display something like a Calendar in VBA, I can only display the starting date, but I don't know how to loop to other columns. There is what I tried to do:
Function FicheAbsence(NomFeuille As String)
Dim Var As Variant
Dim FL1 As Worksheet
Dim c As Integer
Range("B1").Value = NomFeuille
For i = 1 To 12
If NomFeuille = Application.Sheets("DB").Range("A" & i + 3).Value Then
Range("B2").Value = Application.Sheets("DB").Range("B" & i + 3).Value
End If
Next i
End Function
How can I loop in different columns but in the same line. The first day is displayed in B2.