Toplantı Katılımcıları Çakışma Programı

[iaslan517]

Merhabalar. Öncelikle iyi akşamlar diliyorum. Ekte yer alan listede toplantı katılımcıları, toplantılar, saatleri ve günleri belirtilmiş durumda. Fakat bazı zamanlarda bir kişi iki farklı toplantısı olabilir. Bu çakışmaları kişi bazında tarayıp. saat ve gün olarak çakışanların ektede örneği olduğu gibi satır numaralarını yanlarına yazdırabilmemiz mümkünmüdür değerli arkadaşlar?

 

[askm]

Aşağıdaki kodları kullanabilirsiniz.

Sub ASKM_Bul()
Dim Son As Long
Son = Range("a" & Rows.Count).End(xlUp).Row
Range("I2:I" & Son).ClearContents
For i = 2 To Son
    If WorksheetFunction.CountIfs(Range(Cells(i, 7), Cells(Son, 7)), Cells(i, 7), Range(Cells(i, 3), Cells(Son, 3)), Cells(i, 3), Range(Cells(i, 5), Cells(Son, 5)), Cells(i, 5)) > 1 Then
        For x = 2 To Son
            If Cells(i, 7) = Cells(x, 7) And Cells(i, 3) = Cells(x, 3) And Format(Cells(i, 5), "hh:mm") = Format(Cells(x, 5), "hh:mm") Then
                Cells(i, 9) = x
                Cells(x, 9) = i
            End If
        Next x
    End If
Next i
MsgBox "İşlem tamam...", vbInformation, "...::..ASKM..::..."
End Sub