وضع أكثر من كود بورقة عمل واحده ؟

[حسام نور]

السلام عليكم ورحمة الله وبركاته .

- بمساعدتكم مشكورين في موضوعين سابقين حصلت على كودين وأحتجت لوضعهما في ورقة عمل واحده لكن في حال أستخدام أحدهما تتم العمليه بنجاح ولكن في حال وضع الكودين بنفس ورقة العمل أحدهما فقط يعمل والثاني لا يعمل وتظهر رسالة خطأ .

وأليكم الكودين .

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B" & Target.Row).Value > 0 And Range("A" & Target.Row).Value > 0 Then

MsgBox "لا يمكن الإيداع والسحب في نفس العملية", , "عفوا"


Target.Value = ""

Exit Sub

 End If


End Sub

الكود الثاني

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value <> "" Then

  If Target.Column = 1 Then

MsgBox "تمت أضافة المبلغ", , "تهانينا"

End If

If Target.Column = 2 Then

MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك"


 End If


End If

End Sub

فما هو الحل جزاكم الله خيرا

تم تعديل سبتمبر 15, 2003 بواسطه hosam

[محمد طاهر عرفه]

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("B" & Target.Row).Value > 0 And Range("A" & Target.Row).Value > 0 Then

 MsgBox "لا يمكن الإيداع والسحب في نفس العملية", , "عفوا"

 Target.Value = ""

 Exit Sub

End If


If Target.Value <> "" Then

 If Target.Column = 1 Then

  MsgBox "تمت أضافة المبلغ", , "تهانينا"

 End If

 If Target.Column = 2 Then

  MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك"

 End If

End If


End Sub

ملاحظة : الكود مجمع للأخ أبو أحمد مشكورا

[امير عاطف]

بالطبع يظهر لديك رسالة خطأ .... لأنك قمت بتكرار حدث التغير لنفس ورقة العمل اكثر من مرة

ولحل ذلك بكل بساطة فعليك ان تجمع الكودين في حدث واحد فقط وهو حدث التغيير لورقة العمل مثل لما اوضح استاذي محمد طاهر

للعلم:

قام منذ البداية الاخ الكريم ابو احمد مشكوراً بوضع الكودين معاً ... ولكن تم فصلهم حتى يتم التمييز لفائدة كلِ من الكودين

[حسام نور]

ياسلام عليكم وعلى تعاونكم وسرعة ردكم ... يعجز اللسان عن شكركم

خالص تقديري