Hangigün fonksiyonu

[selim.t]

Merhaba arkadaşlar.
Örnek
Personel1 salı
personel2 çarşamba
personel3 perşembe

Puantaj sayfası yapıyorum ve tüm personeli hafta tatilleri farklı günler bunları puantaj sayfasında personel1 in tüm salı günlerinin koşullu biçimlendirme yada makro ile arka planını değiştirebilirmiyiz. Hafta tatili sutunu hangi gün ise tarih kısmında o günün arka planı değişmesini istiyorum.

yardımcı olursanız sevinirim.

 

[Cengiz Demir]

En basit olarak. Koşullu biçimlendirme ile yapılabilir gibi.
Bir dosya yükleme sitesine örnek eklerseniz; yardımcı olabilecek üstadlar örnek oluşturmak için vakit kaybetmezler.

 

[selim.t]

koşullu ile yapabiliyorum ama her personelin ayrı olduğu için salı yazanların salı günleri çarşamba yazanların çarşamba günlerinin arka plan dolgusu dolacak

 

[excelokyanus500]

1)Sayfanızın kod kısmına yapıştırın.
2)Makrolar etkin olsun.
3)Günler E sütunundaki farz edilmiştir. Olmazsa değiştirin
4) Sayfa adını "Sayfa1" değilse değiştirin
6)Biraz daha yardıma ihiyacım var.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim LastRow As Long


    With  Sheets("Sayfa1")
        LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row

        If Not Intersect(Target, .Range("E2:E" & LastRow)) Is Nothing Then
            Application.EnableEvents = False

            For Each cell In Target
                Select Case cell.Value
                    Case "Pazartesi", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Salı"
                        cell.Interior.ColorIndex = 39
                       
                    Case "Pazar"
                        cell.Interior.ColorIndex = 3
                     
                    Case Else
                    
                        cell.Interior.ColorIndex = xlNone
                        cell.ClearFormats
                End Select
            Next cell

            Application.EnableEvents = True
        End If
    End With
End Sub

 

[selim.t]

@excelokyanus500 hocam Çalışmadı örnek dosyadan kontrol edebilir misiniz?

 

[ÖmerBey]

Merhaba,
Koşullu biçimlendirme ile alternatif:
Örnek dosyanızdan O4:AS6 aralığını seçin. Koşullu biçimlendirme > formül kullan yolunu takip edip formül kısmına =METNEÇEVİR(O$1;"GGGG")=$F4 formülünü uygulayınız ve biçim ayarlarından hücre rengini isteğinize göre düzenleyiniz.

 

[selim.t]

Çok teşekkür ederim @ÖmerBey hocam oldu. Birde Personel A'nın B'nin C'ningiriş çıkış sayfasındaki toplam çalışma saatini almak istiyorum. onu nasıl yapabiliriz. 01.01.2024 de personel a kaç saat çalışmış, 02.01.2024 de personel a kaç saat çalışmış herbir sutuna bunları almak istiyorum.

 

[ÖmerBey]

Deneyiniz.

=ÇOKETOPLA('PERSONEL GİRİŞ-ÇIKIŞ'!$F:$F;'PERSONEL GİRİŞ-ÇIKIŞ'!$A:$A;$D4&" "&$E4;'PERSONEL GİRİŞ-ÇIKIŞ'!$B:$B;O$1)

 

[selim.t]

@ÖmerBey Hocam olmadı

 

[excelokyanus500]

Dosyanız ektedir.

 

[ÖmerBey]

Hocam olmadı

Olmayan kısım neresi belirtmemişsiniz, ancak paylaştığım fonksiyonu Puantaj sayfası O4 hücresine uygulayıp çekerek çoğalttığımda Personel Giriş-Çıkış sayfasındaki F sütunundaki sayılar Puantaj sayfasına gelmektedir.

 

[selim.t]

@ÖmerBey tamam ömer hocam ellerinize sağlık ben tasarımı değiştirdiğim için olmamıştı şimdi oldu.

 

[selim.t]

Dosyanız ektedir.

teşekkür ederim @excelokyanus500 hocam