Excelde bir veri birdaha girilmesin

[mert14]

teşekkürler sorunum çözülmüştür

 

[hamitcan]

Kodu, ilgili sayfanın kod kısmına ekleyip, deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
        i = Target.Row
        s = WorksheetFunction.CountIfs(Range("A2:A50"), Cells(i, 1), _
                                       Range("B2:B50"), Cells(i, 2), _
                                       Range("C2:C50"), Cells(i, 3))

        If s > 1 Then
         MsgBox Cells(Target.Row, 1) & " isimli kişinin aynı saatte toplantısı var"
          Target.ClearContents
        End If
End Sub

 

[mert14]

Kodu, ilgili sayfanın kod kısmına ekleyip, deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
        i = Target.Row
        s = WorksheetFunction.CountIfs(Range("A2:A50"), Cells(i, 1), _
                                       Range("B2:B50"), Cells(i, 2), _
                                       Range("C2:C50"), Cells(i, 3))

        If s > 1 Then
         MsgBox Cells(Target.Row, 1) & " isimli kişinin aynı saatte toplantısı var"
          Target.ClearContents
        End If
End Sub

teşekkürler hocam

 

[A_day]

Keşke ilk mesajınızı düzenlemeseydiniz de, konuyu sonradan açanlar, sorunuzun ne olduğunu görebilseydi...