Yıla göre günleri listelemek ve renklendirmek

[Korhan Ayhan]

Selamlar,

Ekteki dosyada sayfada sabit bir hücrede oluşturulacak açılır listeden seçilen yıla göre o yıla ait günleri listelemek için nasıl bir yöntem kullanmalıyız. Listelenen tarihlerden haftasonuna denk gelen günleri nasıl farklı bir renkle belirginleştirebiliriz. Ayrıca diğer günleride kendi gün grubuna göre nasıl renklendirebiliriz.

Soruyu çözecek arkadaşlarımızın formül ve makro kodlarının açıklamalarını yazarak yorumda bulunmaları yeni başlayan arkadaşlarımız için faydalı olacaktır.

Not: Başlangıç aşamasında olan arkadaşlarımızda lütfen yorumlarını belirtsinler.

Kolay gelsin.

 

[Merhum İdris SERDAR]

Dosya ekte.

Açıklamalar dosyanın içinde yapılmıştır.


.

 

[zafer]

Merhaba

Makro ile çözülmüş günün sorusu ektedir.

Sayın Yurttaş beyin çözümüne yakın bir çözüm fakat alternatif olabilir.

 

[Levent Menteşoğlu]

Eğer hücrelerde renklendirme istenmeseydi döngüsüz bir çözümde bulunabilirdi. Renklendirme sebebi ile Sn yurttas ve Sn Zafer'in çözümleri geçerlidir. Ben yinede bilgi olması açısından döngüsüz çözümü vereyim.

B1 hücresindeki veri doğrulamaya 2000-2050 tarihlerini kod ile yüklemek istersek aşağıdaki auto_open prosedürünü kullanabiliriz.

Sub auto_open()
Set s1 = Sheets("sayfa1") [COLOR=seagreen]'s1 değişkenini sayfa1 olarak atar[/COLOR]
For a = 2000 To 2050
deg = deg & "," & a [COLOR=seagreen]' deg değişkenine 2000-2050 arasındaki tarihleri aralarında virgül olacak şekilde birleştirir.[/COLOR]
Next
With s1.[b1].Validation 
       .Delete [COLOR=seagreen]' B1 hücresindeki veri doğrulamayı siler[/COLOR]
       .Add Type:=xlValidateList, Formula1:=Right(deg, Len(deg) - 1) [COLOR=seagreen]'B1 hücresinde veri doğrulama oluşturur ve deg değişkenini liste olarak atar_[/COLOR]
[COLOR=seagreen]buradaki right fonksiyonu deg değişkenindeki ilk virgülü dikkate almamak için kullanılmıştır.[/COLOR]
End With
End Sub

Aşağıdaki kodda sayfa1in kod sayfasına kopyalanmalıdır. Burada kodda , hücre üzerindeki sürükle ile otomatik doldur (autofill) işlemi esas alınmıştır. Böylece yılın tüm günleri döngüsüz olarak sıralanmaktadır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub [COLOR=seagreen]' Kodun sadece B1 h&#252;cresindeki de&#287;i&#351;ime g&#246;re &#231;al&#305;&#351;mas&#305;n&#305; sa&#287;lar[/COLOR]
[a4:a65536].ClearContents [COLOR=seagreen]' A4:A65536 aras&#305;ndaki verileri siler[/COLOR]
[a4] = DateSerial([b1], 1, 1) [COLOR=seagreen]'A4 h&#252;cresine B1 de se&#231;ilen y&#305;l&#305;n ilk g&#252;n&#252;n&#252; yazar[/COLOR]
fark = DateSerial([b1], 12, 31) - DateSerial([b1], 1, 1) + 4 [COLOR=seagreen]'y&#305;l&#305;n ilk ve son g&#252;n&#252; aras&#305;ndaki farkt&#305;r. Bu &#351;ubat ay&#305; 29 g&#252;n &#231;ekti&#287;i y&#305;llardaki fark nedeniyle gereklidir.[/COLOR]
[a4].AutoFill Destination:=Range("A4:A" & fark) [COLOR=seagreen]'S&#252;r&#252;kle ile otomatik doldur i&#351;lemini yapar[/COLOR]
End Sub

 

[takirti]

Çözümler daha sonra bir dosyada toplanması mümkün olur mu acaba? Teşekkürler emekleriniz için..

 

[zafer]

Merhaba

Çözümler daha sonra bir dosyada toplanması mümkün olur mu acaba? Teşekkürler emekleriniz için..

Diğer sorulara bakarsanız verilen cevaplar isteğiniz gibi tek dosyada toplanmıştır.

 

[zafer]

Merhaba

Cevabınızı yanlış yerde vermişsiniz.
Kandiliniz mübarek olsun

bende cvp yazsam bence örneklerle verır ve bizim görmemızı saglardık ama sizin yaptıgınız kendınız yazdıgınız örneklere vermıssınız ama bence göstermelısınız

Afferdersiniz biraz daha konuyu açabilirmisiniz.

 

[baranby]

sagolun teşekkurler

 

[salih_81]

güzel......................

 

[pembepanter]

Merhaba,
takıldığım bir nokta var ve bir türlü çözüm oluşturamadım. Amacım başlangıç ve bitiş tarihini verip bu tarih aralığındaki aylarda kaç gün var? örneğin 10/9/2007 başlangıç 10/2/2008 bitiş tarihleri arasında 9. ayda kaç gün 10. ayda, 11. ayda, 12, 1 ve 2 aylarda kaç gün olduğunu bulmak için hangi fonksiyon yada fonksiyonları kullanmalıyım. Yardımcı olursanız sevinirim.
Şimdiden teşekkürler.

 

[Orion1]

A1 hücresinde bir tarih B1 hücresindede başka bir tarih olduğunu kabul edersek C1 Hücresine =B1-A1 formülünü girersek kaç gün fark olduğunun bulabiliriz.

 

[pembepanter]

onda sorun yok ama amacım örneğe göre konuşacak olursak ayrı ayrı 9. ayda 20 gün,10. ayda 31 gün, 11. ayda 30, 12. ayda 31, 1 ayda 31 gün ve 2. ayda ise 10 gün olduğunu tespit edebilmek. yinede teşekkür ederim Evren Gizlen arkadaşım.

 

[Orion1]

Sayın,pembepanter sanırım istediğniz böyle bir şey.
Ekli dosyayı inceleyiniz.

 

[pembepanter]

Evren Gizlen arkadaşım supersin böyle birşeyden ziyade ta kendisi. ellerine sağlık teşekkürler.

 

[Orion1]

Evren Gizlen arkadaşım supersin böyle birşeyden ziyade ta kendisi. ellerine sağlık teşekkürler.

Rica ederim.
İyi çalışmalar.

 

[can042]

iki tarih arası bulmak

"E 10 'a girilen tarihten F 10 daki sayı kadar , aradaki tatil günlerini (kırmızı renkli)atlayarak sayacak ve G10 hücresine tarihi yazacak.
ÖRNEK: 05.01.2008 + 20 ( 4 ADET kırmızı hücre tatil günü)=28.01.2008 "

 

[can042]

Yardimlarinizi Beklİyorum

 

[Orion1]

"E 10 'a girilen tarihten F 10 daki sayı kadar , aradaki tatil günlerini (kırmızı renkli)atlayarak sayacak ve G10 hücresine tarihi yazacak.
ÖRNEK: 05.01.2008 + 20 ( 4 ADET kırmızı hücre tatil günü)=28.01.2008 "

Yardimlarinizi Beklİyorum

Dosyanız ekte.

 

[S.Yiğit]

Sn Evren Gizlen çok güzel çalışmalar. Eline sağlık sen ve tüm arkadaşların..

 

[istanbulcahan]

Sayın Korhan Ayhan, Zafer ve diğer uzman arkadaşlar bu bölümdeki dosyaları bir daha gönderirmisiniz. Malum 6.11.08 öncesi dosyalar silinmişti.