Sorgu için arama sonuçları: takvim

Merhabalar. A sütununa gün adlarında olduğu bir takvim oluşturdum. Takvimin ilk günü güncel. Yani satırlar her gün değişiyor. -Perşembe ve cuma günlerinin olduğu hücreleri renkli göstermek istiyorum. -ayrıca herhangi bir hücreye ileri bir tarih yazacağım. Yazdığım tarihle güncel tarih arasındaki...

Sayın muygun ilginiz için çok teşekkür ediyorum. Elimde 2022 yılına ait takvim mevcut, 1 aralık 48.hafta olarak görünüyor, sizin üretmiş olduğunuz formül 49.haftadan başlıyor. Formülde nasıl bir değişiklik yapabiliriz? Bu şekilde yardımcı olabilir misiniz? .

Merhaba, hayırlı akşamlar. Ekte gönderdiğim takvim sayfasında 1 Ocak'ı koşullu biçimlendirme yapmaya çalışıyorum, hücrede formül olduğu için renklenmiyor. 1 Ocak'ı elle yazarsam renkleniyor. Yani aylardaki tatil günlerine gelen rakamları koşullu biçimlendirme ile renklendirme yapmaya...

...gereken 20.21.22. günler. şubat ayı değişim tarihi : şubatın 11.12.13 günleri Mart ayı değişim tarihi : mart ayının 2.3.4 günleri. Evet takvim yapılıp bu hücreler 22 gün sayılıp manuel renklendirelebilir ama bu 22 günü aştığı zamanlar oluyor manuel giriş oluyor yani ve yanıp sönmüyor hücre...

https://dosya.co/f000l6it1yw1/takvim.xlsm.html dosyayı tekrar yüklüyorum. Önceki yorumda farklı bir upload sitesine eklemiştim

https://lifeboxtransfer.com/s/47abb5e7-f78e-47dc-9ad0-f842acf62378 amacım takvim yapmak ve resmi tatiller, özel günleri göster gösterme şeklinde yapacaktım fakat yapamadım. Dosya linki paylaştım.

Merhaba; Eki tekrar deneyin. K3 hücresindeki tarih baz alarak takvim makro ile düzenlendi. İyi çalışmalar.

Merhaba arkadaşlar bir videoda tarih uygulamasını bakarak resmi tatil ve özel günleri yapmaya çalıştım fakat takıldığım 2 nokta var Takvim sayfası yani ayların listelendiğin ana sayfada ayların hafta sonları turuncu renkli yapamadım. Son olarak aktif tarihin olduğu ayın içinde bütün özel gün ve...

Merhaba. Kodlarınız... Sub Takvim() If ComboBox2.ListIndex < 0 Then Exit Sub If ComboBox1.ListIndex < 0 Then Exit Sub Yil = ComboBox1 Ay = ComboBox2 trh = DateValue("1." & Ay & "." & Yil) - 1 Range("G6:AL6").Interior.ColorIndex = xlNone For i = 1 To 31...

Hocam ilginiz için çok teşekkür ederim Yalnız aramada Tarihe ve diğer seçeneklere göre arama yapabilmem için de yardımcı olabilirmisiniz. Tarih seçeneği olmadan ve Tarih seçenekli tercih seçildiğinde. Şimdiki haliyle arama yapıyor ama Tarihi dikkate almıyor.

Dosyanıza classmododule ile çalışan bir takvim ekledim. İnceleyin:

Günaydın. Eklentiyi yüklediğimde de Calendar1 nesnesini bulamadığı için hata veriyor. Aşağıdaki konuda halit3 üstadın hazırladığı takvimler var. Özellikle class modül olanları denemenizi tavsiye ederim: https://www.excel.web.tr/threads/takvim-formlari.140305/

Yusuf hocam seyahatteydim bu sebeple geç yazıyorum ilginiz için teşekkür ederim Evet haklısınız Takvim UserFormu yok esasında vardı kaldırdım zira eklediğim dosyada aynı sayfada örnek var oradaki Örnekte Takvim yazılacak yere çift tık yapıldığında Takvim çalışıyor o Takvim üzerinden gitmek...

Hocam bu kodları nereye uygulayacağım.

kod: form takvim için Private Sub CommandButton44_Click() Dim x, i, aranan, bulunan For x = 2 To Sheets("TATİL").Cells(Rows.Count, 3).End(xlUp).Row aranan = Format(Sheets("TATİL").Cells(x, 3).Value, "dd.mm.yyyy") For i = 1 To 42 bulunan = Format(Format(Me.Controls("CommandButton" & i).Caption...

Ekli puantaj dosyamda bulunan Takvim useformundaki takvimdeki dini ve resmi bayramların renklendirilmesi mümkün mü acaba. Yardımlarınızı bekliyorum.

Dosyanızda takvim userformu (Calendar1) bulunmuyor.

Merhaba, Ekli görselde açıklamaya çalıştığım gibi 100 birimlik bir işim olsun. bu işin farklı günlerde kayıtlarını tutuyorum örneğin 02.09.2022' de ilerleme var 03.09.2022 ... 06.09.2022' de ilerlemeler var ve son olarak 10.09.2022' de yapılan iş ile işin %100 ' ü bitmiş oluyor. işin başladığı...

...Range("F3:F103")) Is Nothing Then Call gizleme ElseIf Intersect(Target, Range("H9:I208")) Is Nothing Then Exit Sub Call Takvim End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Bu kodlar hangi sayfanın kod kısmında olursa o sayfada...

Daha önce Worksheet_Change olayım vardı ona takvim Worksheet_Change ekledim hata veriyor nasıl düzeltebilirim. Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("F3:F103") If Not Application.Intersect(KeyCells, Range(Target.Address)) _...