رامي قلعجية

شكرا لك على الرد جزاك الله كل خير

السلام عليكم ارجو المساعدة عندي ملف اريد الجمع فيه من دون معادلة لأني اريدها بالكود المعادلة هية IF(A7<>0;SUM(E7*C7);"")= ولكن عندي كود في الشيت وانا اريد الجمع تلقائيا عند الكتابة في العامود c ولا اريد ان يظهر عندي الجمع الا عند الكتابة بالخلاية التي يجمع منها فقط ارجو وضع الكود في كود الصفحة وارجو وضع الكود في ماكرو جديد لكي يتثنا لي الاستفادة منه في شيتات ثانية الشيت اسمه fatoura وشكرا سلفا fatoura7.rar

السلام عليكم اخوتي في الله هل يوجد كود لاغلاق او تشغيل كود اخر

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

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