Tarih Düzeltme Konusunda Yardım

Günlerin haftalara oturması için

 If vCol = Weekday(vFirst) - 1 Then   

Satırını

 If vCol = Weekday(vFirst, 0) - 1 Then   

Değiştirildiğinde günler tam oturacaktır.