Hekim Çalışma Cetvelini Girilen Değere Göre Düzenleme

[vedat113]

Merhaba arkadaşlar. Öncelikle burada yeniyim. Konuyu yanlış yere açtıysam özür diliyorum.
Benim sorum şu. Bir hekimin sütunundan tarihin karşılık geldiği cetvele işlem girerken o işleme uygun olarak hücrenin renklendirilmesini istiyorum. Ayrıca Resmi Tatil Günlerine Denk Gelen ve Hafta Sonu olan hücrelerin de Kırmızı Renkle Doldurulup, O Günün "Hafta Sonu" veya "Bayram Tatili" olarak isimlendirilmesini istiyorum. Bu konuda bana yardımcı olursanız çok memnun olurum. Ve Excel kullanmaya yeni başlayan birisi olarak bana excel konusunda ne öğrenmemi önerirsiniz? Fikir ve yorumlarını bekliyor, yardımlarınız için de şimdiden teşekkür ediyorum. İyi Çalışmalar ...

Örnek Tablo Linki: https://s7.dosya.tc/server21/qewvih/2022_HEKIM_CALISMA_TABLOSU_2.xlsx.html

 

[YUSUF44]

Duruma göre hücre biçimini eşleştirmek için aşağıdaki kodları kullanabilirsiniz. Kodları kopyalayın ve ilgili ay tabloları sayfa adına sağ tıklayıp Kod Götüntüle deyin. Kodları açılan sayfaya yapıştırın. Kodlar F9:BU39 arasındaki hücrelerde değişiklik yapıldığında devreye girer ve değiştirilen hücredeki veriyi aynı sayfadaki B41:O43 aralığında arar. Aynı değer varsa o hücrenin biçimini B41:O43'te bulduğu hücrenin biçimiyle aynı yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F9:BU39]) Is Nothing Then Exit Sub
For Each hucre In [B41:O43]
    If hucre = Target Then
        Application.EnableEvents = False
            hucre.Copy: Target.PasteSpecial Paste:=xlPasteFormats
            Application.CutCopyMode = False
        Application.EnableEvents = True
        Exit Sub
    End If
Next
End Sub

Tatillere göre renklendirmeyi zaten koşullu biçimlendirme için yapmışsınız. Resmi tatiller için kullandığınız formülü aşağıdakiyle değiştirebilirsiniz:

=YADA(HAFTANINGÜNÜ($A9;2)=6;HAFTANINGÜNÜ($A9;2)=7;EĞERSAY(TATILLER!$A$1:$A$50;$A9)>0)

Resmi tatil ve haftasonu tatillerini hücrelerde belirtmek için aşağıdaki makroyu kullanabilirsiniz:

Sub tatiller()
sor = MsgBox("Tablodaki tüm veriler silinip, tatiller işlenecektir! Onaylıyor musunuz?", vbYesNo)
If sor = vbYes Then
    Application.EnableEvents = False
        [F9:BU39].ClearContents
        For i = 9 To 39
            If Cells(i, "A") <> "" Then
                If IsDate(Cells(i, "A")) Then
                    If WorksheetFunction.Weekday(Cells(i, "A"), 2) > 5 Then
                        Range("F" & i & ":BU" & i) = "Hafta Sonu"
                    End If
                    If WorksheetFunction.CountIf(Sheets("TATILLER").[A1:A50], Cells(i, "A")) > 0 Then
                        Range("F" & i & ":BU" & i) = "Resmi Tatil"
                    End If
                End If
            End If
        Next
    Application.EnableEvents = True
End If
End Sub

Ben exceli kullanarak, karşılaştığım sorunları çözmeye çalışarak öğrenmeye devam ediyorum. Bunda en büyük desteği de bu siteden görüyorum.

 

[vedat113]

Cevabınız için çok teşekkür ederim. Burada birkaç yerde excel eğitimi ile ilgili sayfaya rastladım. Bir de sanırım ALTIN ÜYELİK sistemi var. Bu sayfadan elimden geldiğince fazlasıyla yararlanmaya çalışacağım ve EXCEL konusunda kendimi geliştireceğim. Bilgisayara merakım olduğu zamanlardan beri Excel'e karşı da hep merakım vardı. Ama bir türlü bu konuda kendimi geliştiremedim. Umarım hem bu excel.web.tr sayesinde hem de sizin destek ve yardımlarınızla amacıma ulaşacağım. Tekrar çok teşekkür ederim.

 

[vedat113]

Hocam bu arada resmi tatiller için verdiğiniz formülü girdiğim zaman Pazartesi ve Salı günleri Kırmızı, Haftasonları mavi renk oldu. Ben sadece hafta sonunu renklendirmek istesem formülde nereyi değiştirmem gerekiyor?