Soru takvim uygulaması

[muhsar]

merhaba ,ekte sunduğum xlam.formatındaki eklentiyi site içerinden bulup exele yükledim.güzel çalışıyor fakat gün kısmı yanlış görüyor.bir gün sonranın günü görünüyor. yani bugün 06.06.2019 günlerin olduğu üst satırda cuma görünüyor

 

[Korhan Ayhan]

Alternatifler;

https://www.excel.web.tr/threads/sayfada-sag-klik-menuesuende-takvim-uygulamasi.132079/
https://www.excel.web.tr/threads/sayfada-mouse-ile-sag-klik-yaparak-takvim-uygulamasini-acmak.71768/
https://www.excel.web.tr/threads/evren-calendar-uf-ile-takvim-yaptim.95648/
https://www.excel.web.tr/threads/takvim-formlari.140305/
https://www.excel.web.tr/threads/belirlenen-huecrelere-takvim-ekleme.170819/#post-931742
https://www.excel.web.tr/threads/takvim.95533/

 

[muhsar]

sn hocam,bu işlemleri yapmayı başaramadım, benim istediğim tam ekte sunduğum cleander çalıştırıp üzerinde bulunduğum hücreye seçtiğim tarihi yazdırmak.ama hatanın düzeltilmesi zor ise bu haliyle kullanmaya çalışayım.,ilginiz için teşekkür ederim

 

[Korhan Ayhan]

Uyarlayamadığınız yer neresidir? Yardımcı olalım.

 

[Korhan Ayhan]

Edindiğiniz dosyayı kullanmakta ısrarlıysanız dosyadaki aşağıdaki satırı bulup değiştiriniz.

'Callback for btnWeedDay1 getLabel
Sub WeekDayLabel(control As IRibbonControl, ByRef returnedVal)
'Stop
    returnedVal = Left(WeekdayName(Weekday(DateSerial(Year(dtmDate), Month(dtmDate), Val(Right(control.ID, 2))), 2)), 2)
End Sub

 

[muhsar]

çok teşekkür ederim

 

[Merhum İdris SERDAR]

.

Alternatif:


Aşağıdaki satırı,

returnedVal = Left(WeekdayName(Weekday(DateSerial(Year(dtmDate), Month(dtmDate), Val(Right(control.ID, 2))))), 2)

Bununla değiştirin.

returnedVal = Format(DateSerial(Year(dtmDate), Month(dtmDate), Val(Right(control.ID, 2))), "ddd")

.

 

[muhsar]

ilginiz için çok teşekkür ederim,sorun giderildi.