Burada 66 ve 90 arası gün sayısını eksik atıyor. değiştirdiğimde de hata veriyor.
66 ve 90 gün sayısı değil Chr kod karşılığı 66 B 90 Z harflerine karşılık gelir
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
En pratik bu oldu kulağı biraz tersten göstermiş olduk ama Konuyu okuyan Hocalarımız daha başarılı bir kod sunacaktır.