عادل حنفي

السلام عليكم تفضل اخي اولا يتم ادراج الكليندر علي فورم و ليكن userform2 وعند الضغط بالماوس داخل التكست بوكس في الفورم الاول يوضع الامر لاظهار الفورم الثاني Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) UserForm2.Show End Sub

بارك الله فيك اخي سعد بس الدعوات

بارك الله فيك اخي ياسر

اخي و لا يهمك ارسل ملف به كل ما تتوقع ان يكون العدد عليه

اخي راجع الرابط التالي My link

السلام عليكم اخي لقد كانت فرصة لزيادة عدد الفواير الي يتم حفظها حيث كان في الملف السابق 26 فاتوره اما الان فيصل الي 37830 كما تم تجهيز الكود لاظهار اي فاتورة تريد باستدعائها كما تم التعديل في اشياء اخري لتسهيل العمل بالملف اخي جرب الملف و اخبرني النتيجة تحياتي Invoice full pic.rar

السلام عليكم اخي جرب المرفق تحياتي مطلوب معادلة للاسم والدرجة 2.rar

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

السلام عليكم اخي alidroos اشكرك علي كلماتك اخي cat101 بالنسبة للحفاظ علي العمل هناك عدة طرق لحماية و تدور في راسي واحدة منهم لكن استسمحكم شوية وقت اما اختلاف المراحل انا لا افهم في ذلك و لكن ان كان هناك اي تعديل و استطيع عمله فلن اتاخر اخي walid1966 بالنسبة لاضافة مادة التربية الدينيه تم اضافتها و اية ملاحظات اخري نرجوا التنبيه عليها خالص حياتي دون المستوى1.rar

السلام عليكم اخي الحبيب ايسم ابراهيم اين انت يارجل حمدا لله علي السلامه خالص تحياتي

اخي خالد القدس لك غيبة بالفعل و حمدا لله علي السلامه و ندعوا الله بان تكون بكل خير خالص تحياتي

السلام عليكم اخي HaNcOcK و بارك الله قيك انت ايضا من سمعنا اشكرك علي مرورك وكلماتك تحياتي

السلام عليكم اخي abouelhssan انت بتعمل برنامج يا اما عندك خبرة للتعديل يا اما بتعطي جميع الاحتمالات لمن يساعدك حتي لا يتوقف في مرحلة ما تحياتي

السلام عليكم ارجو ان يكون المرفق يحقق المطلوب فبصراحة اتعمل بمزاج ملحوظة هامه البرنامج يعمل عل الاعمدة و علي الصفوف فلا يجب العبث بهم بالحذف او التبديل اوي اي شيئ من هذا القبيل حتي لا تؤثر علي التائج ارجو التجربه و اخباري النتيجة تحياتي دون المستوى.rar

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

السلام عليكم اخي onlymanly بارك الله فيك يا اخي كلنا نفيد بعض اخي habibsss الاخ onlymanly قد قام بالعمل عي ملفك و قد ساك سؤال و هو اما فيما يخص المدي الذي يتغير بتغير الصفحة ذلك لانك كتبت المدي فقط بدون تحديد شيت المدي لذا فالشيت الفعال هو الذي يؤحذ منه المدي و لتحديد المدي فانه يكتب بهذه الطريقة علي سبيل المثال sheets("data").range("a5:a20").value=sheets("sheet2").range("a5:a20").value و ليست بهذه الطريقة range("a5:a20").value=range("a5:a20").value فالاخيرة يكون فيها الكود منحصر في التعامل كما ذكرنا مع الشيت المفعل تحياتي

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

اخي هل قمت بوضع صف العنوان في صفحة delet في الصف الثاني

اخي جرب كده الملف انا لم اجربه و اخبرني النتيجة تحياتي excel.rar

اخي tahrir55555 بارك اله فيك تحياتي

السلام عليكم الله يباركلك يا احمد يايعقوب و علي الله تكن منورنا علي طول اخي alidroos اضافة الي عمل اخي احمد يعقوب و بعد اذنه طبعا هذا الكود علي اعتبار انه الصف الاول في الصفحة data سيتم نقله لاخر صف فارغ في الصفحة delet ثم الغاء الصف الاول مع ضرورة وضع صف العنوان في الصفحة delet في الصف الثاني و هذا لسلامة الكود If Sheets("delet").Range("A3") = "" Then n = 3 Else n = Sheets("delet").Range("A2").End(xlDown).Row + 1 End If i = 4 For x = 1 To 52 Sheets("data").Cells(i, x).Select Sheets("delet").Cells(n, x).Value = Sheets("data").Cells(i, x).Value Next Rows(4).Delete تحياتي

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

اخي ضع الفولدر غي ال c او ال d مع ملاحظة هامه غير اسم الفولدر الي اسم بلغة انجليزية و ليس بالعربية و سيكون كود الزر كالتالي بشرط تسطيب مشغل الفلاش و الذي ارفقته لك في المشاركة السابقة و التي كان رابطها Sub Picture123_Click() X = "C:\Program Files\GlobFX\Swiff Player\SWFPlayer.exe" y = ThisWorkbook.Path & "\flash.swf" Shell X & " " & y, vbNormalFocus End Sub و اخبرني النتيجة تحياتي

السلام عليكم اخي abouelhssan تم عمل تلوين لاول خلية في صف كل من صفحة منه و له و تم عمل شرط لعدم ترحيل او لغاء عندما تضغط علي الخلية مرتان لعد الدبلره و ند الضغط بالخطا تعطيك رسالة تبين لك انه تم الترحيل او الالغاء تم الاخذ في الاعتبار ان الاسماء في شيت البواقي قد تكون مكررة فتم عمل المقارنة بين جمي الخلايا في شيت منه و ما يقابلها في شيت البواقي لحذف الصف المماثل في كل الخلايا و ليس خلية واحدة جرب الملف و اخبرني النتيجة تحياتي New 13.rar

السلام عليكم مرفق فيديو لشرح كيفية فك الامان بعد اتمامها اغلق الملف و افتحه مرة اخري و انقر علي موافق للرسالة التي ستاتيك تحياتي as.rar