Tatil Günleri

[ckarabacak]

Merhaba Arkadaşlar

Ekli dosyada açıklamaya çalıştığım gibi Tüm Resmi Tatilleri Makro ile yazdırmak istiyorum

Yardımlarınızı rica ederim.

 

[Korhan Ayhan]

Bu konu biraz sıkıntılı bir konudur.

Linkte dini bayramların durumu irdelenmiştir. Tam sonuç maalesef çıkmıyor. Bu sebeple bu işi resmi ve dini tatilleri yayınlayan sitelerden elde etmeniz daha sağlıklı olacaktır.

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

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...

www.excel.web.tr

 

[ckarabacak]

Korhan Hocam İyi Akşamlar

Tatil günleri ile ilgili tablo kısmen Alıntı Makro üzerinde ufak bir ilave ile sonraki yıllarda manuel müdahale yapılması durumunda bir şeyler oluşturdum
Ancak Tablonun formatı ile ilgili iki ufak ayar gerekiyor. Ekli Dosya içinde açıklamaya çalıştım.

Yardımlarınızı rica ederim

 

[Korhan Ayhan]

Deneyiniz.

Sub Deneme()
    Dim Baslangic As Date, Bitis As Date, Satir As Long, M As Date, i As Long
    
    Satir = 4
    
    Baslangic = CDate(Range("K7"))
    Bitis = CDate(Range("K8"))
    
    If Baslangic = 0 Or Bitis = 0 Then
        MsgBox "Başlangıç veya bitiş tarihini yazmadınız!"
        End
    End If
    
    If Baslangic > Bitis Then
        MsgBox "Başlangıç tarihi bitiş tarihinden büyük olamaz!"
        End
    End If
    
    Range("B4:D" & Rows.Count).ClearContents
    
    For i = 0 To Bitis - Baslangic
        M = CDate(Format(Baslangic + i, "dd.mm.yyyy"))
        Hicri_takvim1 (M)
        
        If deg2 <> "" Then
            Cells(Satir, 2).Value = CDate((M))
            Cells(Satir, 3).Value = Format((M), "dddd")
            Cells(Satir, 4).Value = WorksheetFunction.Trim(deg2)
            Satir = Satir + 1
        End If
    Next i
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[ckarabacak]

Korhan Hocam Merhaba

Makro Tam olarak oluştu. Çok Teşekkür ederim. Elinize Emeğinize sağlık

Sizin makroda yaptığınız Başlangıç ve Bitiş tarihi (k7, k8) düzenlemesinden esinlenerek Makro yazılımına Ramazan ve Kurban Bayramı ile ilgili Dosyada açıklamaya çalıştığım gibi bir ilave yapılabilirmi diye aklımdan geçti

 

[Korhan Ayhan]

Peki aynı güne denk gelen resmi tatiller nasıl listelenecek?

 

[ckarabacak]

Korhan Hocam Tekrar Merhaba

Aynı tarihe gelenler için şöyle bir şey olabilirmi Gençlik ve Spor Bayramı & Kurban Bayramı, çünkü Resmi Bayramlar (Milli Bayramlar) Sabit Tarihler olduğu için Resmi Bayram Adı Başta sonrasında Ramazan veya Kurban Bayramı adı yazılması mantıklı gibi geliyor sonraki senede her ikisi de ayrışmış olacak, Veya 23 Nisan Ulusal Egemenlik ve Çocuk Bayramı 23 Nisan tarihi Ramazan Bayramına isabet ediyorsa alt satırına 23 Nisan Ramazan Bayramı sonrasında 24 Nisan da Ramazan Bayramı devam gibi olabilir diye düşünüyorum.

 

[ckarabacak]

Korhan Hocam ikinci şık Tablonun diğer Çalışma dosyalarında kullanımında hata yaratır veya formüllerin değiştirilmesine sebep olur gibi

 

[Korhan Ayhan]

Tamam. Son olarak nasıl yapalım.

 

[ckarabacak]

Korhan Hocam İyi Akşamlar

Aynı tarihe denk gelenler için Öncelikle Resmi Tatil (Milli Bayramlar) adı "Tarihleri Sabit" olduğundan sonrasında Dini Bayram adı Örnek: Gençlik ve Spor Bayramı & Kurban Bayramı şeklinde olabilir.

Size de bu aralar yapıştım gibi oldu Hocam Kusura Bakmayın

Kolay Gelsin

 

[Korhan Ayhan]

Deneyiniz.

 

[Korhan Ayhan]

Özel mesajla belirttiğiniz gibi 30 Ağustos Zafer Bayramı tatilini atlamışım.

Dosyayı revize ettim. İndirip deneyebilirsiniz.

 

[ckarabacak]

Korhan Hocam Merhaba

Yazılım çok güzel oldu Çok Teşekkür ederim. Emeğinize Sağlık

Bazı sorularım olacaktı; -
- Mesela InputBox olmadan sayfadaki ilgili yerlerden alınan tarihler sonucu Buton ile otomatik hesaplama yapılabilirmiydi, Kısaca söylemek istediğim Butona bastığımda (InputBox görülmesin)
- Yazı tipi ve boyutunun değişiklik imkanı varmı nereden yapabilirim
- Sayfa ve sütunları metni ortalama imkanı varmı nereden yapabilirim

İyi çalışmalar iyi haftalar dilerim.

 

[Korhan Ayhan]

Inputbox olayını kullanıcı dilerse elle giriş yapabilsin diye eklemiştim. Elbette kaldırılabilir.

Yazı tipi ve boyutu gibi işlemleri makro kaydet yöntemi ile elde edebilirsiniz. Sonrasında elde ettiğiniz kodları önerdiğim makronun bitimine ekleyerek kullanabilirsiniz.

 

[ckarabacak]

Korhan Hocam Çok Teşekkür ederim verdiğiniz Bilgiler için

Hoşçakalın

 

[Korhan Ayhan]

Üstte ki mesajıma Inputbox olmayan çalışmayı da ekledim. Dilediğinizi kullanabilirsiniz.

 

[ckarabacak]

Teşekkür ederim Korhan Hocam