أبو حنــــين

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

لا الفكرة لم تصل و لو وضحت ذلك بمرفق احس

السلام عليكم هل بهذه الطريقة مثال.rar

جرب المرفق حفظ القائمه في نفس ملفها_4.rar

جرب الآن حفظ القائمه في نفس ملفها_3.rar

جرب المرفق الآن حفظ القائمه في نفس ملفها_2.rar

السلام عليكم اخي محمود عندما تنظر الى الكود تجد الكلمات و الحروف التالية cv - Scv - x - L_itrep - Sh - L_add - i - Last_vend - Last_itrep - date1 - date2 - sCode و هذه كلها متغيرات يمكن تغييرها بحروف اخرى او كلمات اخرى و ليس شرطا ان تكون مكتوبة بهذه الضيغة بالذات و تعريف المتغيرات مهم في الكود ليصبح معروفا و يمكن استدعاؤه كما ان اختيار نوع المتغير مهم ايضا و لتعريف متغير ما نستعمل Dim ثم الكلمة او الحرف الذي تختارة ثم As ثم نوع المتغير مثلا : Dim r As Date اصبح الآن r متغير خاص بتاريخ معين و من غير المنطقي ان تكتب مثلا r = 1500 أو r = "Mahmoud" لان 1500 يمثل رقما من نوع Integer و ليس تاريخ ، كما ان محمود يمثل نصا من نوع String و ليس تاريخ و بالنسبة للدالة Offset عندما تكتب : Range("D10").Offset(0, 1) = 5 معنى هذا انك قلت للاكسل اكتب في الخلية E10 الرقم 5 و عندما تكتب : Range("D10").Offset(0, -1) = 5 معنى هذا انك تريد كتابة الرقم 5 في الخلية C10 و عندما تكتب : Range("D10").Offset(1, 0) = 5 معنى هذا انك تريد كتابة الرقم 5 في الخلية D11 و عندما تكتب Range("D10").Offset(-1, 0) = 5 معنى هذا انك تريد كتابة الرقم 5 في الخلية D9 هل وصلتك الفكرة الآن تقبل تحياتي

السلام عليكم جرب المرفق اقرأ الملاحظة المكتوبة في الملف حفظ القائمه في نفس ملفها.rar

جرب المرفق اعتقد انه يعمل بعد هذا التغيير 2n2014_7.rar

السلام عليكم جرب المرفق 2n2014_6.rar

هذا تعديل بسيط كارته مخزن الكود_2.rar

السلام عليكم جرب اخي المرفق ارتباط تشعبي.rar

جزاك الله خيرا اخي محمود كمال على مروركم ******************************************* اخي حمادة اعتقادك صحيح و الله اعلم فانا عندما وجدت اخي محمود كتب التالي : (( يتم تحديد رصيد اول المده من رصيد الصنف فى شيت item + الأضافاة - الصرف اللى فى شيت add )) لم استوعب الفكرة لنقص البيانات جزاك الله خيرا

اخي foular من غير المنطقي ان يكون نفس الصنف بنفس الاسم بسعرين مختلفين و لو توجهنا الى اي محل تجاري يملك صاحبه صنفين بسعرين مختلفين ربما لفارق سعر الشراء لوجدنا انه يضع الصنف الاول في مكان و الصنف الثاني في مكان مختلف ليسهل عليه التفريق بينهما في الاكسل لا يوجد مكان لوضع الاصناف بل توجد اسماء الاصناف و هي في مكان واحد و لكي نفرق بينها لابد من اضافة رقم او حرف او اي شيئ آخر لكي نفرق بين الصنفين مثل : صنف1 ـ صنف1-1 او صنف1A تحياتي

السلام عليكم تم عمل المطلوب مع بعض النقص لانني اعتقد ان البيانات غير كاملة في باقي الاوراق لذى لم اتمكن من حساب رصيد اول مدة كارته مخزن الكود.rar

السلام عليكم اخي محمود يا ريت تعمل ارقام بلون مغاير مثلا ازرق او احمر للبيانات التي تريد ترحيلها بحيث تبين مصدرهذه البيانات و شرط اختيارها لتسهل على من اراد المبادرة بالحل

السلام عليكم استعمل هذا بالضغط على كنترول لظهور الفورم الثاني Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 17 Then UserForm2.Show End Sub

هذا الملف به دالة تقوم بالعمل حيث يمكنك الاستغناء على كتابة كل القيم سوي كتابة قيمة الحافز و الدالة تقوم بالباقي دمغة الحوافز_5.rar

السلام عليكم غير الكود السابق بهذا Sub Hanine() NN = Sheets("movement").Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To NN If Sheets("movement").Cells(x, 1).Value2 = "" Then last = Sheets("movement").Cells(x, 1).Row - 1 Exit For End If Next If Sheets("movement").Range("A2") = "" Then Exit Sub Sheets("movement").Range("A2:D" & last).Copy N = Sheets("moved").Cells(Rows.Count, "A").End(xlUp).Row + 1 Sheets("moved").Range("A" & N).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False For y = 1 To Sheets("UAEHeld").Cells(Rows.Count, "C").End(xlUp).Row If Sheets("UAEHeld").Cells(y, 3).Text = "TRUE" Then Sheets("UAEHeld").Range("C" & y & ":" & "I" & y) = "FALSE" Sheets("UAEHeld").Range("J" & y & ":" & "Z" & y).ClearContents End If Next End Sub

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

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

السلام عليكم جرب المرفق test_3.rar

جزاك الله خيرا اخي محمود الأسيوطي و انا متأكد من قدرتك على الوصول السريع الى مبتغاك لانني اتتبع ردودك من حين الى آخر و أشم فيها رائحة الذكاء حظ سعيد و انا في الخدمة ان شاء الله و السلام عليكم

السلام عليكم استعمل هذا الكود 'ضع هذا الكود في شيت 1 Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 1 Dim rr As Range For Each rr In Sheets("Sheet2").Range("B1:O100") If rr.Address = Target.Address Then rr = Target Exit For End If Next 1 End Sub 'و ضع هذا الكود في شيت 2 Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 1 Dim r As Range For Each r In Sheets("Sheet1").Range("B1:O100") If r.Address = Target.Address Then r = Target Exit For End If Next 1 End Sub

رغم هذا فكلانا لم يصل الى النتيجة حسب ما أكده اخي جمال لو كان هناك مثال لاتضحت الرؤية جزاك الله خيرا