B satirindan Iki Tane Ise MsgBox Ile Uyarsin

[mustafaine1]

Arkadaslar ekte goreceginiz uzere d sutununda ki girislerin hepsi ayni, g sutunundaki girislere cift tikladigimda ayni olan verilerde bi isimden su kadar tane var diye uyari vermesini istiyorum, nasil yapabilirim ?

 

[Orion1]

Dosyanız ektedir.

If Target.Column = 4 Then
        If Target.Value <> "" Then
            say = WorksheetFunction.CountIf(Range("D:D"), Target.Value)
            If say = 2 Then
                MsgBox "[ " & Target.Value & " ] 'den " & say & " Adet Var."
            End If
        End If
            Exit Sub
    End If

 

[mustafaine1]

Hocam istegim g sutununa tiklandiginda d`ye bakip msgbox vermesi idi ama verdiginiz kod fazlasi ile yetti.. suan calisiyor cok tesekkurler..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim say As Long

    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    Cancel = True
   If Range("F" & Target.Row).Value = "" Then
  say = WorksheetFunction.CountIf(Range("D:D"), Range("D" & Target.Row).Value)
            If say > 1 Then
                MsgBox "[ " & Range("D" & Target.Row).Value & " ] 'den " & say & " Adet Var."
            End If
    
    Range("M" & Target.Row).Value = Range("G" & Target.Row).Value
    Range("P" & Target.Row, "Q" & Target.Row).Formula = Range("H" & Target.Row, "I" & Target.Row).Formula
    Range("C" & Target.Row, "K" & Target.Row).Font.Bold = True
    Range("G" & Target.Row, "I" & Target.Row).ClearContents
    End If
    
End Sub

 

[Orion1]

Rica ederim.
İyi çalışmalar.