kod çakışmasına yardım .

[sdegirmenci]

Aşağıdaki iki kod yan yan çalıştığı zaman şu hatayı veriyor ne yapmayılıyım,Lütfen yardım edin.Şimdiden teşekkür ederim.

Compile eror:Ambiguous name dedected :Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Intersect(Target, [f93]) Is Nothing Then Exit Sub
If [d93] > [f93] Then
MsgBox "1.Uyarı"
ElseIf [c1] > [a1] Then
MsgBox "2.Uyarı"
ElseIf [f93] = [f94] Then
MsgBox "3.Uyarı"
Else
Exit Sub
End If
[f93].Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$93" Then [E93].Select
If Target.Address = "$E$93" Then [f93].Select
If Target.Address = "$F$93" Then [f94].Select
End Sub

 

[hamitcan]

İki kodunda ismi aynı.

Private Sub Worksheet_Change(ByVal Target As Range) İkinci kodun satırını

Private Sub Worksheet_SelectionChange(ByVal Target As Range) şeklinde değiştirin.

 

[cenk77ist]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Intersect(Target, [f93]) Is Nothing Then Exit Sub
If [d93] > [f93] Then
MsgBox "1.Uyarı"
ElseIf [c1] > [a1] Then
MsgBox "2.Uyarı"
ElseIf [f93] = [f94] Then
MsgBox "3.Uyarı"
Else
Exit Sub
End If
[f93].Select

'''''''''''bunu dene *********

If Target.Address = "$D$93" Then [E93].Select
If Target.Address = "$E$93" Then [f93].Select
If Target.Address = "$F$93" Then [f94].Select

'''''' yada bu kodları en üste al **************

End Sub