PERSONEL VE BÖLÜMLERİNE GÖRE SAYIM

YUSUF44 · 17 Ocak 2020

Aşağıdaki makroyu bir dener misiniz? Mavi kod için nasıl işlem yapılacağını belirtmediğinizden +1 olarak ayarladım:

PHP:

Sub nobet()
    eski = WorksheetFunction.Max(2, , Cells(Rows.Count, "N").End(3).Row)
    Range("O2:T" & eski).ClearContents
    For gun = 2 To 32
        If Cells(gun, "A") <> "" Then
            For kisi = 3 To 11
                If Cells(gun, kisi) <> "" Then
                    If WorksheetFunction.CountIf(Range("N1:N" & eski), Cells(gun, kisi)) = 0 Then
                        Cells(eski + 1, "N") = Cells(gun, kisi)
                        eski = eski + 1
                    End If
                    sat = WorksheetFunction.Match(Cells(gun, kisi), Range("N1:N" & eski), 0)
                    If Cells(1, kisi) = "NÖBET" Then
                        If WorksheetFunction.Weekday(Cells(gun, "A"), 2) < 5 Then
                            Cells(sat, "O") = Cells(sat, "O") + 8
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 6 Then
                            Cells(sat, "T") = Cells(sat, "T") + 24
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 5 Or WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 7 Then
                            Cells(sat, "S") = Cells(sat, "S") + 16
                        End If
                    ElseIf Cells(1, kisi) = "İCAP" Then
                        Cells(sat, "P") = Cells(sat, "P") + 16
                    ElseIf Cells(1, kisi) = "ASKH" Then
                        Cells(sat, "Q") = Cells(sat, "Q") + 1
                    ElseIf Cells(1, kisi) = "M.KOD" Then
                        Cells(sat, "R") = Cells(sat, "R") + 1
                    End If
                End If
            Next
        End If
    Next
End Sub

surmelituncay · 17 Ocak 2020

ASLAN7410' Alıntı:
P2 hücresine aşağıdaki formülü uygulayıp aşağıya doğru çekin.
=EĞER(N2="";"";(TOPLA.ÇARPIM(($G$2:$I$32=N2)*($G$2:$I$32<>""))-TOPLA.ÇARPIM(($B$2:$B$32="Cuma")*($G$2:$I$32=N2)*($G$2:$I$32=N2))-TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)))*8)

kardeş icap da hafta içi 16 saat atacak hafta sonu cumrtesi pazar 24 saat 8 saat atıyor cumrtesi pazar atmıyor

surmelituncay · 17 Ocak 2020

ASLAN7410' Alıntı:
P2 hücresine aşağıdaki formülü uygulayıp aşağıya doğru çekin.
=EĞER(N2="";"";(TOPLA.ÇARPIM(($G$2:$I$32=N2)*($G$2:$I$32<>""))-TOPLA.ÇARPIM(($B$2:$B$32="Cuma")*($G$2:$I$32=N2)*($G$2:$I$32=N2))-TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)))*8)

YİNE ÇALIŞMADI KARDEŞ HAFTA İÇLERİ 8 SAAT OLARAK ATIYOR HAFTA SONLARINDA BİR DEĞER ATMIYOR

surmelituncay · 17 Ocak 2020

YUSUF44' Alıntı:

Aşağıdaki makroyu bir dener misiniz? Mavi kod için nasıl işlem yapılacağını belirtmediğinizden +1 olarak ayarladım:

PHP:

Sub nobet()
    eski = WorksheetFunction.Max(2, , Cells(Rows.Count, "N").End(3).Row)
    Range("O2:T" & eski).ClearContents
    For gun = 2 To 32
        If Cells(gun, "A") <> "" Then
            For kisi = 3 To 11
                If Cells(gun, kisi) <> "" Then
                    If WorksheetFunction.CountIf(Range("N1:N" & eski), Cells(gun, kisi)) = 0 Then
                        Cells(eski + 1, "N") = Cells(gun, kisi)
                        eski = eski + 1
                    End If
                    sat = WorksheetFunction.Match(Cells(gun, kisi), Range("N1:N" & eski), 0)
                    If Cells(1, kisi) = "NÖBET" Then
                        If WorksheetFunction.Weekday(Cells(gun, "A"), 2) < 5 Then
                            Cells(sat, "O") = Cells(sat, "O") + 8
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 6 Then
                            Cells(sat, "T") = Cells(sat, "T") + 24
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 5 Or WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 7 Then
                            Cells(sat, "S") = Cells(sat, "S") + 16
                        End If
                    ElseIf Cells(1, kisi) = "İCAP" Then
                        Cells(sat, "P") = Cells(sat, "P") + 16
                    ElseIf Cells(1, kisi) = "ASKH" Then
                        Cells(sat, "Q") = Cells(sat, "Q") + 1
                    ElseIf Cells(1, kisi) = "M.KOD" Then
                        Cells(sat, "R") = Cells(sat, "R") + 1
                    End If
                End If
            Next
        End If
    Next
End Sub

YAPAMADIM KARDEŞ BU ŞEKİL SEN DENEDİNMİ

surmelituncay · 17 Ocak 2020

ASLAN7410' Alıntı:
P2 hücresine aşağıdaki formülü uygulayıp aşağıya doğru çekin.
=EĞER(N2="";"";(TOPLA.ÇARPIM(($G$2:$I$32=N2)*($G$2:$I$32<>""))-TOPLA.ÇARPIM(($B$2:$B$32="Cuma")*($G$2:$I$32=N2)*($G$2:$I$32=N2))-TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)))*8)

kardeş çok teşekkür ediyorum yardımların için gerçekten harikasın sadece icap cumartesi pazar çalışmadı.

YUSUF44 · 17 Ocak 2020

surmelituncay' Alıntı:
YAPAMADIM KARDEŞ BU ŞEKİL SEN DENEDİNMİ

Neyi nasıl yapamadınız?

ASLAN7410 · 17 Ocak 2020

Örneği ekte gönderiyorum. Buradaki hataları yada eklemek istediğinizi bildirin.

İndir TEST

Dosyayı indir TEST

dosya.co

YUSUF44 · 17 Ocak 2020

Aşağıdaki kod İcap nöbetini de istediğiniz şekilde yapıyor:

PHP:

Sub nobet()
    eski = WorksheetFunction.Max(2, , Cells(Rows.Count, "N").End(3).Row)
    Range("O2:T" & eski).ClearContents
    For gun = 2 To 32
        If Cells(gun, "A") <> "" Then
            For kisi = 3 To 11
                If Cells(gun, kisi) <> "" Then
                    If WorksheetFunction.CountIf(Range("N1:N" & eski), Cells(gun, kisi)) = 0 Then
                        Cells(eski + 1, "N") = Cells(gun, kisi)
                        eski = eski + 1
                    End If
                    sat = WorksheetFunction.Match(Cells(gun, kisi), Range("N1:N" & eski), 0)
                    If Cells(1, kisi) = "NÖBET" Then
                        If WorksheetFunction.Weekday(Cells(gun, "A"), 2) < 5 Then
                            Cells(sat, "O") = Cells(sat, "O") + 8
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 6 Then
                            Cells(sat, "T") = Cells(sat, "T") + 24
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 5 Or WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 7 Then
                            Cells(sat, "S") = Cells(sat, "S") + 16
                        End If
                    ElseIf Cells(1, kisi) = "İCAP" Then
                        If WorksheetFunction.Weekday(Cells(gun, "A"), 2) <= 5 Then
                            Cells(sat, "P") = Cells(sat, "P") + 16
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) <= 7 Then
                            Cells(sat, "P") = Cells(sat, "P") + 24
                        End If
                    ElseIf Cells(1, kisi) = "ASKH" Then
                        Cells(sat, "Q") = Cells(sat, "Q") + 1
                    ElseIf Cells(1, kisi) = "M.KOD" Then
                        Cells(sat, "R") = Cells(sat, "R") + 1
                    End If
                End If
            Next
        End If
    Next
End Sub

Makroyu çalıştırmak için önce bu kodları kopyalayın
Excel dosyasında iken Alt+F11 yapın ya da sayfa sekmesi üzerine sağ tıklayıp Kod görüntüle diyerek kod sayfasını açın.
Açılan sayfada Insert menüsünden Module'yi seçin
boş sayfa açılacak, o sayfaya kodları yapıştırın
Excel sayfasına geçin
Sayfaya bir düğme/şekil/nesne ekleyin
Eklediğinize sağ tıklayıp makro ata deyin
Açılan listede nobet isimli makroyu seçip işlemi tamamlayın
Artık o düğmeye/şekle/nesneye tıkladığınızda makro çalışacak ve istediğiniz sonuçları listeleyecektir.

surmelituncay · 17 Ocak 2020

ASLAN7410' Alıntı:
Örneği ekte gönderiyorum. Buradaki hataları yada eklemek istediğinizi bildirin.

İndir TEST

Dosyayı indir TEST

dosya.co

sadece icap bölümünde hata var cuma ve cumartesiyi hesaplamıyor
şu şekilde olacak olabiliyorsa hafta içi 16 saat
hafta sonra ( cumartesi -pazar ) 24 saat hesaplayacak

ASLAN7410 · 17 Ocak 2020

Mesaj silindi.

ASLAN7410 · 17 Ocak 2020

Kusura bakmayın, maalesef P2 formülünü oluştaramadım.

surmelituncay · 17 Ocak 2020

ASLAN7410' Alıntı:
İcap nöbeti sadece cumartesi-pazar günlerimi oluyor, hafta içi oluyor mu.

evet hafta içi 16 saat

ASLAN7410' Alıntı:
Kusura bakmayın, maalesef P2 formülünü oluştaramadım.

NE KUSURU KARDEŞ OLABİLİR O ZAMAN BİZDE HAFTA İÇİ VE HAFTA SONU İÇAP DEYE HÜCRE OLUŞTURRUZ

surmelituncay · 17 Ocak 2020

YUSUF44' Alıntı:

Aşağıdaki kod İcap nöbetini de istediğiniz şekilde yapıyor:

PHP:

Sub nobet()
    eski = WorksheetFunction.Max(2, , Cells(Rows.Count, "N").End(3).Row)
    Range("O2:T" & eski).ClearContents
    For gun = 2 To 32
        If Cells(gun, "A") <> "" Then
            For kisi = 3 To 11
                If Cells(gun, kisi) <> "" Then
                    If WorksheetFunction.CountIf(Range("N1:N" & eski), Cells(gun, kisi)) = 0 Then
                        Cells(eski + 1, "N") = Cells(gun, kisi)
                        eski = eski + 1
                    End If
                    sat = WorksheetFunction.Match(Cells(gun, kisi), Range("N1:N" & eski), 0)
                    If Cells(1, kisi) = "NÖBET" Then
                        If WorksheetFunction.Weekday(Cells(gun, "A"), 2) < 5 Then
                            Cells(sat, "O") = Cells(sat, "O") + 8
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 6 Then
                            Cells(sat, "T") = Cells(sat, "T") + 24
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 5 Or WorksheetFunction.Weekday(Cells(gun, "A"), 2) = 7 Then
                            Cells(sat, "S") = Cells(sat, "S") + 16
                        End If
                    ElseIf Cells(1, kisi) = "İCAP" Then
                        If WorksheetFunction.Weekday(Cells(gun, "A"), 2) <= 5 Then
                            Cells(sat, "P") = Cells(sat, "P") + 16
                        ElseIf WorksheetFunction.Weekday(Cells(gun, "A"), 2) <= 7 Then
                            Cells(sat, "P") = Cells(sat, "P") + 24
                        End If
                    ElseIf Cells(1, kisi) = "ASKH" Then
                        Cells(sat, "Q") = Cells(sat, "Q") + 1
                    ElseIf Cells(1, kisi) = "M.KOD" Then
                        Cells(sat, "R") = Cells(sat, "R") + 1
                    End If
                End If
            Next
        End If
    Next
End Sub

Makroyu çalıştırmak için önce bu kodları kopyalayın
Excel dosyasında iken Alt+F11 yapın ya da sayfa sekmesi üzerine sağ tıklayıp Kod görüntüle diyerek kod sayfasını açın.
Açılan sayfada Insert menüsünden Module'yi seçin
boş sayfa açılacak, o sayfaya kodları yapıştırın
Excel sayfasına geçin
Sayfaya bir düğme/şekil/nesne ekleyin
Eklediğinize sağ tıklayıp makro ata deyin
Açılan listede nobet isimli makroyu seçip işlemi tamamlayın
Artık o düğmeye/şekle/nesneye tıkladığınızda makro çalışacak ve istediğiniz sonuçları listeleyecektir.

YAPAMADIM KARDEŞ OLMADI

ASLAN7410 · 17 Ocak 2020

Biraz uğraştım ama istediğiniz sonucu veriyor galiba.

P2 hücresine aşağıdaki formülü uygulayıp aşağıya doğru çekin.
=EĞER(N2="";"";((TOPLA.ÇARPIM(($G$2:$I$32=N2)*($G$2:$I$32<>""))-(TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))))*16)+(TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))+TOPLA.ÇARPIM(($B$2:$B$32="Pazar")*($G$2:$I$32=N2)))*24)

YUSUF44 · 17 Ocak 2020

surmelituncay' Alıntı:
YAPAMADIM KARDEŞ OLMADI

YUSUF44' Alıntı:
Neyi nasıl yapamadınız?

Önceki mesajımda neyi nasıl yapamadığınızı sormuştum. sonra da adım adım nasıl yapmanız gerektiğini anlattım. Ben örnek dosyanızda makroyu çalıştırıp istediğiniz sonucu aldım. Siz alamadıysanız hatanın ne olduğunu, neyin yanlış olduğunu, neyi yapamadığınızı anlatın ki düzeltmeye çalışayım.

Eğer makroyu çalıştıramamışsanız alıntıladığınız mesajımın alt kısmında belirttiğim işlemleri uygulamamış ya da eksik/yanlış uygulamışsınızdır.
Eğer makro istediğinzi sonucu vermediyse örnek dosyanız asıl dosyanızdan farklı yapıdadır.

surmelituncay · 17 Ocak 2020

ASLAN7410' Alıntı:
Biraz uğraştım ama istediğiniz sonucu veriyor galiba.

P2 hücresine aşağıdaki formülü uygulayıp aşağıya doğru çekin.
=EĞER(N2="";"";((TOPLA.ÇARPIM(($G$2:$I$32=N2)*($G$2:$I$32<>""))-(TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))))*16)+(TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))+TOPLA.ÇARPIM(($B$2:$B$32="Pazar")*($G$2:$I$32=N2)))*24)

EVET VERİYOR AMA PAZAR GÜNÜ 40 SAAT VERİYOR

ASLAN7410 · 17 Ocak 2020

Zannedersem şimdi oldu galiba.

P2 hücresine aşağıdaki formülü uygulayıp aşağıya doğru çekin.
=EĞER(N2="";"";((TOPLA.ÇARPIM(($G$2:$I$32=N2)*($G$2:$I$32<>""))-TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))-TOPLA.ÇARPIM(($B$2:$B$32="Pazar")*($G$2:$I$32=N2)))*16)+(((TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))+TOPLA.ÇARPIM(($B$2:$B$32="Pazar")*($G$2:$I$32=N2)))*24)))

surmelituncay · 17 Ocak 2020

ASLAN7410' Alıntı:
Zannedersem şimdi oldu galiba.

P2 hücresine aşağıdaki formülü uygulayıp aşağıya doğru çekin.
=EĞER(N2="";"";((TOPLA.ÇARPIM(($G$2:$I$32=N2)*($G$2:$I$32<>""))-TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))-TOPLA.ÇARPIM(($B$2:$B$32="Pazar")*($G$2:$I$32=N2)))*16)+(((TOPLA.ÇARPIM(($B$2:$B$32="Cumartesi")*($G$2:$I$32=N2)*($G$2:$I$32=N2))+TOPLA.ÇARPIM(($B$2:$B$32="Pazar")*($G$2:$I$32=N2)))*24)))

HARİKASIN KARDEŞ ELLERİNE SAĞLIK MUHTEŞEMSİN SON OLARAK O,Q,R HÜCELERİN DEKİ DEĞERLERİ HÜÇRESİNDE TOPLASIN YANİ TOPLAM NÖBET SAYISINI HERŞEY İÇİN TEŞEKKÜR EDİRİYORUM

ASLAN7410 · 17 Ocak 2020

Dosyanızın son halini ekliyorum, burda yapmak istediğinizi manuel olarak eklerseniz, çözüm olabilir.

İndir TEST

Dosyayı indir TEST

dosya.co

surmelituncay · 19 Ocak 2020

çok teşekkür ediyorum harikasın.

PERSONEL VE BÖLÜMLERİNE GÖRE SAYIM

YUSUF44

Destek Ekibi

surmelituncay

surmelituncay

surmelituncay

surmelituncay

YUSUF44

Destek Ekibi

ASLAN7410

Altın Üye

İndir TEST

YUSUF44

Destek Ekibi

surmelituncay

İndir TEST

ASLAN7410

Altın Üye

ASLAN7410

Altın Üye

surmelituncay

surmelituncay

ASLAN7410

Altın Üye

YUSUF44

Destek Ekibi

surmelituncay

ASLAN7410

Altın Üye

surmelituncay

ASLAN7410

Altın Üye

İndir TEST

surmelituncay