رامي قلعجية

شكرا لك على الرد 

جزاك الله كل خير 

السلام عليكم

ارجو المساعدة 

عندي ملف اريد الجمع فيه من دون معادلة لأني اريدها بالكود 

المعادلة هية IF(A7<>0;SUM(E7*C7);"")=

ولكن عندي كود في الشيت وانا اريد الجمع تلقائيا عند الكتابة في العامود c

ولا اريد ان يظهر عندي الجمع الا عند الكتابة بالخلاية التي يجمع منها فقط 

ارجو وضع الكود في كود الصفحة 

وارجو  وضع الكود في ماكرو جديد لكي يتثنا لي الاستفادة منه في شيتات ثانية 

الشيت اسمه  fatoura وشكرا سلفا

fatoura7.rar

السلام عليكم

اخوتي في الله

هل يوجد كود لاغلاق او تشغيل كود اخر 

في ‏٢٠‏/‏١٠‏/‏٢٠١٨ at 15:04, ramikalaajieh.rk said:

اخي علي شكرا لك على كل شيئ لقد حللت المسألة 

وهذا مرفق للاستفادة منه

 

 

fatoura7.rar

حسنا اشكرك لا داعي للتعب اسف على ازعاجك واتمنى لك الخير حيث كنت 

شكرا لك واعتذر منك على ازعاجك 

بارك الله بك

كيف اضيف عامود بكود مستقل عن الكود الذي فوقه 

شكر لك اخي على الرد 

تواجهني مشكلة عندما اقف على العامود b او d عندما استعمل الكيبورد والذهاب بزر الكيبورد الى الخلية من عامود   a  الى b تكون النتيجة انه ينتقل الى العامود  d وهذا ما اريد ولكن عندما اعود تظهر المشكلة لا يمكن العودة عن طريق الكيبورد  في العامود d بعد كتابة ما اريد اريد العودة 

خطرت ببالي فكرتين اما ان يعمل الكود مرة الى الشمال ومرة الى اليمين او اجعل العامود f  ياخذني الى اول الصف 

شكرا على الاهتمام

fatoura6.rar

لماذا لا يعمل الكود بالكامل الامر الاول يعمل والثاني اللذي يبدأ ب  if لا يعمل ارجو الشرح وكتابة الكود بالشكل الصحيح

الكود

Private Sub Worksheet_SelectionChange(ByVal target As Range)
If Not Intersect(Range("b7:b500,d7:d55,e2,f3,g3"), target) Is Nothing Then
Cells(target.Row, target.Column).Offset(0, 1).Select
Beep
End If
Exit Sub

If target.Column = 6 Then
Cells(target.Row, target.Column).Offset(0, 5).Select
Else
End If
End Sub

اخي علي الحبيب

لو تكرمت وضفتلي.

لما بوقف على خلية بينقلني على الي جنبها انا عاوز سطر بالكود جديد اضيف منو  مرة او ومرتان  او اكتر هذا السطر

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

  بس ياريت الكود يكون سطر جديد بالكود الي انت عملتو عشان اذا اردت اضيف شيئ جديد 

انسخ الكود واحطو مرة تانية واكتبلو باي عامود انا عاوز انتقل .

اعزر جهل اخي انا لست متعلم بل هاوي 

وعندما تصادفني مشكلة ابحث بها أيام وعندما لا اعلم الحل اذهب واترك عملي اللذي بداته 

هذه المرة تقدمت كثيرا في هذا المجال والحمد لله وصلت الى نتيجة واتمنا منك المتابعة معي 

جعلها الله في ميزان حسناتك 

مع تحياتي وشكري لك 

fatoura6.rar

لا اعلم كيف اوفيك حقك 

شكرا لك جزيلا وجازاك الله كل خير 

السلام عليكم

ارجو منكم تفيدوني في هذا الكود ولكم كل الشكر

هذا الكود بيحميك من انك توقف على الخلية b3 

انا اريد انو احددلو من العامود b7 الى b500  ومن العامود d7 الى d500  والخلية e2 و f3 و g3 

دا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 And Target.Row = 3 Then
        Beep
        Cells(Target.Row, Target.Column).Offset(0, 1).Select
    End If
End Sub

fatoura5.rar

اخي الكريم قلم الاكسيل ومبدع الكود.

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