التسجيل قي كل الصفحات

[سليم حاصبيا]

سجل معلوماتك في صفحة واحدة 

و ارسلها كل مغلومة الى صفحتها المخصصة

writ_In_One Sheet.rar

 

[محي الدين ابو البشر]

السلام عليكم

بجد وبدون مجاملة كلام جميل جدا

بارك الله بك

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

 

[ياسر خليل أبو البراء]

أخي الحبيب سليم

بارك الله فيك وجزاك الله خير الجزاء ومشكور على هذاياك الرائعة والمتميزة

تقبل تحياتي

[احمد السيد سليمان]

هدية رائعة من الاستاذ / سليم

[أبوبسمله]

جزاك الله خيرا اخى سليم

هديه جميله من اخى عزيز وغالى بارك الله فيك وزادك من فضله وعلمه

بالتوفيق

[رجب جاويش]

السلام عليكم

تسلم ايديك أخى المبدع سليم

واسمح لى بابداء بعض الملاحظات على الكود المسخدم

أولا : السطر التالى

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

[سليم حاصبيا]

مشكور جداً اخي رجب على هذه الملاجظات القيّمة

بالنسبة للملاحظة الاولى :كما تلاحظ من الكود هناك اختيار :انه اذا كان الصف ناقصاً نحصل غلى رسالة بهذا الشأن و للمستخدم حرية الاختيار

اما الترحيل أو لا

بالسبة للملاحظة الثانية :ربما كنت غلى حق في ذلك ،ولكن ماذا لو اراد المستخدم ان تكون البيانات بشكل تراكمي (كل يوم بيومه )

       عندها يلجأ في بدايةالنهار  الى مسح البيانات من الصفحة الرئيسية (بواسطة الزر المخصص لذلك ) و بيدأ بتسجيل الجديدة

[الزباري]

جميل وبارك الله فيك