TAKVİM resmi ve dini tatil günlerini gösteriyor

[1mak1mak]

dosya

Teşekkürler ellerinize sağlık istediğim gibi olmuş.
Fazla oluyorum ama birde hücreye tarihin tam oturması için hücrenin otomatik genişletilebilmesi eklenebilirmi.
Standart yeni bir sayfa açıldığında tarihin sığması için sütunu biraz genişletmek gerekiyor.

 

[halit3]

userformun içindeki ilgili koda aşağıdaki kırmızı yeri akle


Sub arama()
Dim i As Long


For i = 1 To 42
'If Controls("Label" & i).Caption = hafiza Then
If i = hafiza Then
If Controls("CommandButton" & i).BackColor <> -2147483633 Then
If Controls("CommandButton" & i).Caption <> "" Then
CommandButton51.Caption = Format(Controls("CommandButton" & i).Caption & "." & ComboBox2.Text & "." & ComboBox1.Text, "dd.mm.yyyy")
If CheckBox1.Value = True Then
Worksheets(ActiveSheet.Name).Cells(ActiveWindow.Selection.Row, ActiveWindow.Selection.Column).Value = CDate(CommandButton51.Caption)
'UserForm7.Hide

Columns(ActiveWindow.RangeSelection.Column).EntireColumn.AutoFit

End If
End If
End If
End If
Next
Me.Hide
End Sub

 

[1mak1mak]

Harika oldu çok teşekkür ederim.
Ellerinize sağlık.

 

[1mak1mak]

Halit bey merhaba
Önceki sayfalarda sanki Bayramların 1.Gün erken gösterilmesi ile ilgili sıkıntı giderildi diye anlamışım ama bu sene
Ramazan Bayramını Kontrol ettiğimde Arefe Günü 18.07.2021 gösteriyor halbuki Türkiye için doğrusu 19.07.2021
Sanırım aynı sıkıntı devam ediyor.
Genede çok Güzel çalışma ellerinize sağlık konu her zaman güncel.

Birde Sağ Klik sizin Takviminizi kullanıyorum bir eksiklik hissediyorum o da Artık Günlere Tıklayamamak Tıklansa iyi olurdu.

 

[1mak1mak]

Halit hocam merhaba
Size yazmıştım ama arada kaynadı sanırım hazırladığınız Sağ Klik Takvim de Artık Günleri > "Göster - Gizle" seçeneği var ama
Göster dediğimizde üzerine Tıklanmıyor. Acaba Tıklanması Aktif edilebilirmi.
Dosyayı xls olarak gönderdim ama AddIns Klasöründe xla olarak kullanıyorum.
iyi çalışmalar

 

[halit3]

Dosyayı kontrol ediniz.

Sag_Klik_Takvim.xls dosyasını indir - download

Sag_Klik_Takvim.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[1mak1mak]

Teşekkürler Artık Tıklanıyor ancak Önceki Ayda problem yok ancaki Sonraki ayı hangi aydaki aydaysak o ayı baz alıyor.
Örnek Aralık Ayında yaptım 2022 Aralık Ayını attı halbuki Ocak 2022 olmalıydı.
Birde Dosyada ilk çalıştırmada hep Artık Günleri işaretlemek gerekiyor İşaretli şekilde başlaması sağlanabilirmi.
İyi çalışmalar.

 

[halit3]

Bu dosyayı bir dene

Sag_Klik_Takvim_2.xls dosyasını indir - download

Sag_Klik_Takvim_2.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[1mak1mak]

Evet Haluk hocam güzel oldu şimdi Artık Günler gayet iyi çalışıyor.
Elinize sağlık
Bir soru daha sormuştum Kod olarakta belirtebilirsiniz CheckBox2 (Artık Günleri Göster) nin
Açılışta Seçili olması için ne gibi değişiklik yapmam gerekir.
Teşekkür ederiz.

 

[halit3]

Sag_Klik_Takvim_3.xls dosyasını indir - download

Sag_Klik_Takvim_3.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Tamam
İsim yanlış oldu herhalde

 

[1mak1mak]

Sag_Klik_Takvim_3.xls dosyasını indir - download

Sag_Klik_Takvim_3.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Tamam
İsim yanlış oldu herhalde

Tamam Hocam bence daha kulanışlı oldu ellerinize sağlık.
Çok Teşekkür ederiz.

 

[yanginci34]

1-aylık takvim içinde iş gününü ve tatil günlerini ayırıyor
2-resmi ve dini günleri gösteriyor

Haftasonu tatil günlerini seçmeli yaptım sayfa4 deki bölümde açılan mesaj kutusuna hafta gününe gelen sayıyı yazmak yeterli

örneğin

cumartesi için 6
pazar için 7
cumartesi ve pazar için 67 veya 76
salı için 2
pazartesi için 1
çarşamba için 3
perşembe için 4
cuma için 5
pazartesi ve çarşamba için 13 veya 31
pazartesi ve pazar için 17 veya 71

yazmak yeterli


yeni eklenen userformda takvim nesnesi olmadan takvim yapılmıştır.

hücreye sağ klık tıklıyarak takvime ait userforma ulaşılabiliyor
ve imleçle beraber hareket ediyor.



artık günler için bazı düzenlemeler yapıldı

Sayfada takvim uygulamasıda hafta sonu ve tatil günlerini renklendiriyor.

Not:
Dini günlerde islam aleminde bazen farklılıklar görünmektedir.Bununla ilgili aşağıya bazı linkler eklenmiştir.
http://www.excel.web.tr/f14/takv-m-resmi-ve-dini-tatil-gunlerini-gosteriyor-t74563/sayfa5.html

http://www.google.com.tr/#hl=tr&biw=1276&bih=811&rlz=1R2GGLT_trTR411&q=Arap+takvimindeki+farklılık+nedeniyle+Mevlid+Kandili+&aq=f&aqi=&aql=&oq=&fp=1&bav=on.2,or.r_gc.r_pw.r_qf.,cf.osb&cad=b

http://www.takvim.com/takvim_donusum.php

http://www.hayrettinkaraman.net/kita...leler/0097.htm

Not proğram dini günleri
Ofis kodları içindeki (Calendar) nesnesinden otomatik olarak aşağıdaki gibi almaktadır.

vbCalGreg ('Miladi Takvim. PC deki)
vbCalHijri (Hicri Takvim modu. PC deki Takvimi Hİcriye çevirir.)


Bu linkdede dini tatil günlerini gösteriyor.
dini günler

27.05.2020 tarihinde güncellenmiştir

Hocam mükemmelsiniz bir çok çalışmalarımıza ışık tutuyorsunuz sizlere minnettarız. Ellerinize sağlık.

 

[SSAFFAK]

Değerli Hocalarım Merhabalar; Konu çok eski biliyorum ama en azından şansımı denemek istedim. Bu takvim de yıl değerini "sayfa1 deki C3" ten almasını düşünürsek, Yani takvim sayfasındaki tüm butonları kaldrıp "sayfa1 deki C3" teki yıl değeri değiştiğinde resmi günler ve dini bayram günleri otomatik görüntületebilirmiyiz? ("Dini Günler göster" butonunu ve Yılın yanındaki butonların kaldırılması gibi) Ayrıca AA sütunundan yarım tatil günlerini başka sütuna taşıma makrosu olabilirmi acaba ? Yardımlarınızı rica ediyorum.

 

[SSAFFAK]

Değerli Hocalarım Merhabalar; Konu çok eski biliyorum ama en azından şansımı denemek istedim. Bu takvim de yıl değerini "sayfa1 deki C3" ten almasını düşünürsek, Yani takvim sayfasındaki tüm butonları kaldrıp "sayfa1 deki C3" teki yıl değeri değiştiğinde resmi günler ve dini bayram günleri otomatik görüntületebilirmiyiz? ("Dini Günler göster" butonunu ve Yılın yanındaki butonların kaldırılması gibi) Ayrıca AA sütunundan yarım tatil günlerini başka sütuna taşıma makrosu olabilirmi acaba ? Yardımlarınızı rica ediyorum.

Değerli Hocalarım yukarıda belirttiğim şekilde kodun düzeltilmesi gibi bir ihtimal varmıdır ? Bir fikir lütfen..

 

[halit3]

Değerli Hocalarım Merhabalar; Konu çok eski biliyorum ama en azından şansımı denemek istedim. Bu takvim de yıl değerini "sayfa1 deki C3" ten almasını düşünürsek, Yani takvim sayfasındaki tüm butonları kaldrıp "sayfa1 deki C3" teki yıl değeri değiştiğinde resmi günler ve dini bayram günleri otomatik görüntületebilirmiyiz? ("Dini Günler göster" butonunu ve Yılın yanındaki butonların kaldırılması gibi) Ayrıca AA sütunundan yarım tatil günlerini başka sütuna taşıma makrosu olabilirmi acaba ? Yardımlarınızı rica ediyorum.

dosya

 

[SSAFFAK]

Halit Hocam süpersiniz elleriniz dert görmesin çok sağolun. Son bişey sorsam aktar butonu olmadan çalıştırma yolu olmazmı ? Yani C3 teki yılı değiştirip enter dediğim anda takvime uyarlasa. Bu mümkünmü?

 

[halit3]

Halit Hocam süpersiniz elleriniz dert görmesin çok sağolun. Son bişey sorsam aktar butonu olmadan çalıştırma yolu olmazmı ? Yani C3 teki yılı değiştirip enter dediğim anda takvime uyarlasa. Bu mümkünmü?

Sayfa1 kod bölümüne bunu ekle

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
Call aktar1
End Sub

 

[SSAFFAK]

Halit Hocam çok oldum biliyorum ama Sayfa1 için MsgBox "işlem tamam" uyarı kutusunu iptal etmeye çalıştım ama beceremedim

 

[halit3]

Madüle3 kod bölümünde bu var
MsgBox "işlem tamam"
Bu bölümü bul sil veya onun yerine aşağıdaki bölümü ekle

If ActiveSheet.Name <> "Sayfa1" Then
MsgBox "işlem tamam"
End If

 

[SSAFFAK]

Halit Hocam Module3 ten silince halloldu. Çok teşekkür ederim. İyiki varsınız. Ellerinize sağlık...