Bir sayfada aynı başlıklı iki kodu çalıştırmak

[atillaciftci]

Merhabalar...
Sayfanın kod bölümünde iki koda da ihtiyazım var ama Private Sub Worksheet_SelectionChange(ByVal Target As Range) şeklinde başladığı için hata veriyor nasıl yapabilirim acaba...


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C25:E100]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 0).Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Mükerrer kayıtı önler
For a = [b65536].End(3).row To 1 Step -1
If WorksheetFunction.CountIf(Range("b25:b" & a), Cells(a, "b")) > 1 Then Rows(a).Delete
Next
End Sub

 

[snx111]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C25:E100]) Is Nothing Then Exit Sub
If ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Select
Else
ActiveCell.Offset(0, 0).Select
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) ' Mükerrer kayıtı önler
For a = [b65536].End(3).row To 1 Step -1
If WorksheetFunction.CountIf(Range("b25:b" & a), Cells(a, "b")) > 1 Then Rows(a).Delete
Next
End Sub

 

[atillaciftci]

Çalıştı çok teşekkürler....