Kod:
Dim gun As Integer
gun = 0
For i = 66 To 90
Excl.Range(Chr(i) & "8") = Format(gun & " " & Me.DtDonem, "dd mmmm yyyy dddd")
gun = gun + 1
Next i
For i = 65 To 71
Excl.Range(Chr(65) & Chr(i) & "8") = Format(gun & " " & Me.DtDonem, "dd mmmm yyyy dddd")
gun = gun + 1
Next i