2 Makroyu tek olarak düzenleme

[alirizapekbilir]

Aşağıdaki iki kodu aynı sayfada nasıl çalıştırabilirim. Birinde mükerrer kontrolü yaparken diğerinde de bir hücreye bağlı makro çalıştırmam gerek. Ama makroyu harmanlama yada başka bir teknik bilmiyorum. Önerilerinize ihtiyacım var. Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [L:L]) Is Nothing Then Exit Sub
say = WorksheetFunction.CountIf(Range("L2:L" & Target.Row - 1), Target)
If say > 0 Then
MsgBox "BU KAYIT MEVCUTTUR"
Target.Select
Target = ""
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ElseIf Target.Address = "$BD$2" <> Empty Then
Call filtre
End If
End Sub

 

[ÖmerBey]

Merhaba,
Aşağıdaki örnekleri inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [L:L]) Is Nothing Then GoTo 1
say = WorksheetFunction.CountIf(Range("L2:L" & Target.Row - 1), Target)
If say > 0 Then
    MsgBox "BU KAYIT MEVCUTTUR"
    Target.Select
    Target = ""
End If
1
If Target.Address = "$BD$2"  Then
    Call filtre
End If
End Sub

veya

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [L:L]) Is Nothing Then
    say = WorksheetFunction.CountIf(Range("L2:L" & Target.Row - 1), Target)
    If say > 0 Then
        MsgBox "BU KAYIT MEVCUTTUR"
        Target.Select
        Target = ""
    End If
ElseIf Target.Address = "$BD$2"  Then
    Call filtre
End If
End Sub

 

[alirizapekbilir]

teşekkürler hocam her ikiside iş gördü emeğinize sağlık

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...