Burada 66 ve 90 arası gün sayısını eksik atıyor. değiştirdiğimde de hata veriyor.
Access 'ten Excele Veri Gönderirken Son Dulu Hücreyi Bulma Ve Değer Yazdırma
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 i
Konuyu Okuyanlar: 1 Ziyaretçi
