• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

halit3' Alıntı:
dosya
Genişletmek için tıkla ...
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.
 
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
 
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.
 
Son düzenleme:
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
 

Ekli dosyalar

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.232329
 
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' Alıntı:
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
Genişletmek için tıkla ...
Hocam mükemmelsiniz bir çok çalışmalarımıza ışık tutuyorsunuz sizlere minnettarız. Ellerinize sağlık.
 
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.
 

Ekli dosyalar

SSAFFAK' Alıntı:
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.
Genişletmek için tıkla ...
Değerli Hocalarım yukarıda belirttiğim şekilde kodun düzeltilmesi gibi bir ihtimal varmıdır ? Bir fikir lütfen..
 
SSAFFAK' Alıntı:
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.
Genişletmek için tıkla ...

dosya
 

Ekli dosyalar

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ü?
 
SSAFFAK' Alıntı:
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ü?
Genişletmek için tıkla ...

Sayfa1 kod bölümüne bunu ekle

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
Call aktar1
End Sub
 
Halit Hocam çok oldum biliyorum ama Sayfa1 için MsgBox "işlem tamam" uyarı kutusunu iptal etmeye çalıştım ama beceremedim :(
 
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
 
Halit Hocam Module3 ten silince halloldu. Çok teşekkür ederim. İyiki varsınız. Ellerinize sağlık...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst