skyblue

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

شكرا جزيلا استاذي : تامر عمر على الحل الرائع وادعوا الله ان ييسر أمرك وتكون موفقا في كل شي ويرزقك الجنة تحياتي الغالية لك

السلام عليكم ورحمة الله وبركاته وبعد : تحياتي لمشرف القسم الاستاذ : تامر عمر حفظه الله لا برجاء التكرم والتفضل علينا بالتعديل على الكود في الملف المرفق وجزاك الله عنا كل خير

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

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

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

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

في المشاركة رقم 26 هل توجد بطريقة بحيث انه عندما اختار اضافة سجل جديد استطيع ان اسجل في لحظة واحدة اكثر من سجل .فمثلا اخترت اضافة سجل فبمجرد مااضع الاسم يظهر صف فارغ تحت وهكذا .. تحياتي لك يااستاذ :علي السحيب

الاساتذة المشرفين بعد التحية برجاء التكرم بالتعديل على الملف المرفق . وهو يخص عملية الترحيل . حيث انني كنت ومازلت عندما اعمل تلرحيل من صفحة الى اخرى اولا اعمل جدول حسب البيانات المطلوبة ثم اعمل كود الترحيل وهذا الكود كبير جدا وهذه صورة من هذا الكود : Sub MoveValue2() Dim EndRow As Long EndRow = Sheets(2).Range("A1").CurrentRegion.Rows.Count Sheets(2).Cells(EndRow + 1, 1).Value = EndRow Sheets(2).Cells(2, 1).Value = Sheets(1).Cells(8, 2).Value Sheets(2).Cells(2, 2).Value = Sheets(1).Cells(8, 3).Value Sheets(2).Cells(3, 1).Value = Sheets(1).Cells(9, 2).Value Sheets(2).Cells(3, 2).Value = Sheets(1).Cells(9, 3).Value Sheets(2).Cells(4, 1).Value = Sheets(1).Cells(10, 2).Value Sheets(2).Cells(4, 2).Value = Sheets(1).Cells(10, 3).Value Sheets(2).Cells(5, 1).Value = Sheets(1).Cells(11, 2).Value Sheets(2).Cells(5, 2).Value = Sheets(1).Cells(11, 3).Value Sheets(2).Cells(6, 1).Value = Sheets(1).Cells(12, 2).Value Sheets(2).Cells(6, 2).Value = Sheets(1).Cells(12, 3).Value Sheets(2).Cells(7, 1).Value = Sheets(1).Cells(13, 2).Value Sheets(2).Cells(7, 2).Value = Sheets(1).Cells(13, 3).Value Sheets(2).Cells(8, 1).Value = Sheets(1).Cells(14, 2).Value Sheets(2).Cells(8, 2).Value = Sheets(1).Cells(14, 3).Value Sheets(2).Cells(9, 1).Value = Sheets(1).Cells(15, 2).Value Sheets(2).Cells(9, 2).Value = Sheets(1).Cells(15, 3).Value Sheets(2).Cells(10, 1).Value = Sheets(1).Cells(16, 2).Value Sheets(2).Cells(10, 2).Value = Sheets(1).Cells(16, 3).Value Sheets(2).Cells(11, 1).Value = Sheets(1).Cells(17, 2).Value Sheets(2).Cells(11, 2).Value = Sheets(1).Cells(17, 3).Value Sheets(2).Cells(12, 1).Value = Sheets(1).Cells(18, 2).Value Sheets(2).Cells(12, 2).Value = Sheets(1).Cells(18, 3).Value Sheets(2).Cells(13, 1).Value = Sheets(1).Cells(19, 2).Value Sheets(2).Cells(13, 2).Value = Sheets(1).Cells(19, 3).Value Sheets(2).Cells(14, 1).Value = Sheets(1).Cells(20, 2).Value Sheets(2).Cells(14, 2).Value = Sheets(1).Cells(20, 3).Value Sheets(2).Cells(15, 1).Value = Sheets(1).Cells(21, 2).Value Sheets(2).Cells(15, 2).Value = Sheets(1).Cells(21, 3).Value Sheets(2).Cells(16, 1).Value = Sheets(1).Cells(22, 2).Value Sheets(2).Cells(16, 2).Value = Sheets(1).Cells(22, 3).Value MsgBox prompt:="Êã ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" Sheets(1).Range("c3, b8:g22, h8:i16, h19:i22").clearcontents End Sub ومن عيوب هذا الكود انه محدد لايمكن اي انه لا يرحل الا النطاقات المحددة له بالكود . بعكس الطريقة التي اريدها فهي مفتوحة ويمكن ان ترحل الشيت بالكامل لذا أمل التكرم بالتعديل على الملف المرفق .. تحياتي

أسألك يارب بأسمك الاعظم وبصفاتك العلا أن تفرش لهذا الحبيب دربا من نور ..وتجعل وجهه دائما مسرورا تحياتي لك

استاذي :علي السحيب لقد طبقت الملف على تواريخ لدي تخص شهر بالكامل وقد اعطى البرنامج نتائج مذهلة ولكن لاحظت شيئين على الكود : 1- عندما ادخلت جميع التواريخ وضغطت زر الادخال فانه ياخذ بعض الوقت . 2- عندما انتقل الى sheet2 لمشاهدة النتائج الاحظ ان المؤشر يتحرك بسرعة بشكل وميض لفترة معينة ثم يتوقف . وايضا عندما انتقل الى sheet1 ثم اعود الى sheet2 يعود المؤشر بالوميض مرة اخرى . لذا ارفقت ملف بذلك حتى تتكرم بالاطلاع على الملف ومعالجة المشكلة . تحياتي لك

استاذي واخوي :علي السحيب بيض الله وجهك وحفظك الله من كل شر . رائع رائع في كل شئ دائما نجدك عند الشدائد وتقف معنا بحلولك المبدعة . مني لك شكر وتقدير لايوصف تحياتي

استاذ : علي السحيب بعد التحية حتى تكون الصورة واضحة ارفقت ملف شرحت فيه المطلوب تحياتي لك

استاذ علي مشكور على ردك ولو اني اتعبتك معي فالطريقة جميلة ولكنها تحتاج الى وقت اي ان الاستخدام بهذه الطريقة حيكون يدوي . انا كنت اقصد انني لو ضللت النطاق من d4:d30 ثم ضغطنا على زر الادخال تظهر لي جميع التواريخ التي يحتويها هذا النطاق وامام كل تاريخ عدد تكراره . لاني فعلا محتاج جدا لهذه الطريقة في الوقت الحالي فعندي بيانات عددها 8490 صف وايجاد طريقة اليه بسرعة تظهر لي التواريخ وتكلرار كل منها سوف يقلل الجهد والوقت لدي . تحياتي لك يالغالي

رائع يامشرفنا الحبيب حفظك الله من كل شر . ومن باب الاستفادةهل يمكن ان نضلل نطاق معين وليكن نفس النطاق السابق والبرنامج اليا يظهر لي جميع التواريخ التي احتواها ذلك النطاق وعدد تكرارها .( دون ان نحدد له التواريخ ) . والمعذرة لو اني كثرت عليك . لك مني كل الاحترام والتقدير....

ممتاز حفظك الله

الاساتذة المشرفين عندي موضوع اعتبره من وجهة نظري مهم جدا وهو لو لدي في العمود D من المدى d4:d30 تواريخ معينة لاشهر السنة . المطلوب هو التكرم بالتعديل على الملف المرفق بايجاد كود يقوم باستخراج عدد مرات تكرار تاريخ معين . بحيث لو اخترت اليوم 1 والشهر 5 والسنة 2006 وايضا لو اخترت اليوم 7 والشهر 9 والسنة 2006 ثم اغطت زر يظهر لي عدد المرات التي تكرر فيها التاريخين السابقين وتقبلوا تحياتي

يسعدك ربي يااستاذ علي السحيب مافي احسن من هذا الرد .ردود توزن بالذهب الله يوفقك . تحياتي لك

الاساتذة المشرفين بعد التحية ارجوا التكرم بمساعدتي في جزئية ترصيد الفرق في الملف المرفق حيث يوجد شرح بذلك تقبلوا تحياتي

استاذي :تامر عمر المحترم لم استطيع الاستفادة من الرابط لان الرابط يدور حول موضوع كتابة الرقم نصا . وانا في ملفي المرفق طلبي يختلف . حت توضح الصورة لكم : في sheet 2 حاولت جلب البيانات من sheet2 عن طريق isna vlook up فلم استطع . اما في sheet3 فأرغب ان يكون جلب النتائج من sheet1 عن طريق الكود ... وانا قمت بالتوضيح في الملف تحياتي

السادة المشرفين نظرا لحاجتي لموضوع مشابه لموضوع تلرتيب الاوائل جعلني ارجع لمواضيع سابقة في هذا المنتدى وقمت بعمل اضافات وتجميع معادلات ولكن طلبي من الاساتذة المشرفين هو التكرم بالتعديل على الملف المرفق ليكود بواسطة الكود . تحياتي

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

في المشاركة رقم 19 ارجوا التكرم من استاذنا على السحيب باضافة بعض التعديلات على الملف كالتالي : 1- اضافة خانة واحدة باسم الرجيع وتكون قبل خانة رقم الفاتورة . 2- تغيير خانة التاريخ لتمون بعد خانة الاسم مباشرة . ليكون النموذج المستخدم بهذا الشكل : نوع العملية الإسم التاريخ المبلغ المدفوع المبلغ المتبقي عدد الأيام الرجيع رقم الفاتورة 3- في sheet3 يتم عمل باجمالي كل عميل وياليت ان يكون ذلك بالكود بهذا الشكل : الإسم المبلغ المدفوع المبلغ المتبقي عدد الأيام الرجيع وتقبل تحياتي ربي يحفظك

استاذ: تامر عمر ....عمل ممتاز جدا وفقك الله

تقبل مني المرفق