worksheet_change yardım lütfen

[mustafayılmaz]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [I:R]) Is Nothing Then Exit Sub
GÖRECELİ
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
mustafa
If Target.Value = "" Then
End If
saygıdeğer arkadaşlar ı ve r sütunlarında hesaplama yapıyorum
b:b ve d:d arasında hücreye yazdığımı veri sayfasında arama yaptırıyorum
entere basınca makroların ayrı ayrı çalışmasını nasıl sağlayabilirim

 

[janveljan]

B,D,I, ve R sütunlarında işlem yapıldığında ayrı ayrı mesaj kutuları açar, kendinize göre uyarlayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:B,D:D,I:I,R:R]) Is Nothing Then Exit Sub
    If Target.Column = 2 Then MsgBox "B"
    If Target.Column = 4 Then MsgBox "D"
    If Target.Column = 9 Then MsgBox "I"
    If Target.Column = 18 Then MsgBox "R"
End Sub