سليم حاصبيا قام بنشر مارس 4, 2016 مشاركة قام بنشر مارس 4, 2016 سجل معلوماتك في صفحة واحدة و ارسلها كل مغلومة الى صفحتها المخصصة writ_In_One Sheet.rar 5 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر مارس 4, 2016 مشاركة قام بنشر مارس 4, 2016 السلام عليكم بجد وبدون مجاملة كلام جميل جدا بارك الله بك وجزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 4, 2016 مشاركة قام بنشر مارس 4, 2016 أخي الحبيب سليم بارك الله فيك وجزاك الله خير الجزاء ومشكور على هذاياك الرائعة والمتميزة تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
احمد السيد سليمان قام بنشر مارس 4, 2016 مشاركة قام بنشر مارس 4, 2016 هدية رائعة من الاستاذ / سليم 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 4, 2016 مشاركة قام بنشر مارس 4, 2016 جزاك الله خيرا اخى سليم هديه جميله من اخى عزيز وغالى بارك الله فيك وزادك من فضله وعلمه بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 4, 2016 مشاركة قام بنشر مارس 4, 2016 السلام عليكم تسلم ايديك أخى المبدع سليم واسمح لى بابداء بعض الملاحظات على الكود المسخدم أولا : السطر التالى i = .Range("A" & Rows.Count).End(xlUp).Row + 1 والخاص بتحديد أول سطر فارغ فى الصفحات المرحل اليها يعتمد على العمود A لايجاد أخر سطر به بيانات ثم يزيد عليه واحد لايجاد أول سطر فارغ وهذا ينتج عنه خطأ اذا كانت البيانات فى الصفحة الرئيسية لا تحتوى على بيانات فى العمود A مما يؤدى الى عدم ترحيل البيانات من الصفحة الرئيسية فى حالة أن تكون الخلية الموجودة فى العمود A فارغة كما يتضح من الصور التالية ولذلك يجب تعديل السطر السابق الى الصورة التالية لتلافى هذا الخطأ i = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 ثانيا : يجب الوضع فى الاعتبار مسح البيانات القديمة فى الصفحات المرحل اليها قبل الترحيل لتجنب تكرار البيانات لذا يتم وضع هذا الجزء فى بداية الكود لمسح البيانات من الصفحات المرحل اليها قبل الترحيل For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "MAIN_SHEET" Then sh.[A2:C1000].ClearContents End If Next مع خالص تحياتى وتقديرى لشخصكم الكريم writ_In_One Sheet1.rar 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 4, 2016 الكاتب مشاركة قام بنشر مارس 4, 2016 مشكور جداً اخي رجب على هذه الملاجظات القيّمة بالنسبة للملاحظة الاولى :كما تلاحظ من الكود هناك اختيار :انه اذا كان الصف ناقصاً نحصل غلى رسالة بهذا الشأن و للمستخدم حرية الاختيار اما الترحيل أو لا بالسبة للملاحظة الثانية :ربما كنت غلى حق في ذلك ،ولكن ماذا لو اراد المستخدم ان تكون البيانات بشكل تراكمي (كل يوم بيومه ) عندها يلجأ في بدايةالنهار الى مسح البيانات من الصفحة الرئيسية (بواسطة الزر المخصص لذلك ) و بيدأ بتسجيل الجديدة رابط هذا التعليق شارك More sharing options...
الزباري قام بنشر مارس 6, 2016 مشاركة قام بنشر مارس 6, 2016 جميل وبارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان