27/11/2021, 01:40
Sayfalar: 1 2
27/11/2021, 01:44
66 ve 90 gün sayısı değil Chr kod karşılığı 66 B 90 Z harflerine karşılık gelir
En pratik bu oldu kulağı biraz tersten göstermiş olduk ama Konuyu okuyan Hocalarımız daha başarılı bir kod sunacaktır.
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 iEn pratik bu oldu kulağı biraz tersten göstermiş olduk ama Konuyu okuyan Hocalarımız daha başarılı bir kod sunacaktır.
Sayfalar: 1 2