كيف ادخل بيانات فى شيت وترحل تلقائيا فى شيت اخر

[العام الجديد2012]

استاذي المبدع ( أبو نصار )

عاجز عن الشكر

واعتذر لأني تعبتك واخذت من وقتك

يوجد ملاحظة

عندما اضيف اسماء جديدة حتى اصل لعدد 20

ثم اذا قمت بالتعديل على اسمين او اكثر يتم التعديل

ولكن يقوم بحذف الاسم الذي قبلة او بعدة

او يترك صف فارغ بين الصفوف الاخيرة

امل التجربة

واكرر شكري واعتذاري

تم تعديل يناير 14, 2012 بواسطه العام الجديد2012

[الـعيدروس]

السلام عليكم

الاخ الفاضل العام الجديد 2012 حفظك الله

اولا ارجو منك التجربة الكاملة على الملف

على حسب طلباتك وتوضيح جميع النقاط التي لم تتم

بدلا من هدر الوقت والجهد

والسموحه منك على هذا الخطاء

ان شاء الله يكون زبط

جرب المرفق

المطلوب ترحيل _ALI_5.rar

تم تعديل يناير 15, 2012 بواسطه alidroos

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك وفي علمك وحفظك ربي استاذي ابا نصار

أبوأنس

[الـعيدروس]

الاخ الفاضل حاجب

اشكرك جدا على هذا المرور العطر والكلمات الطيبه

تقبل تحياتي وشكري

[العام الجديد2012]

استاذي الكريم ( أبو نصار ) جر ب ان تحذف سجل رقم 4 ثم سجل رقم 5 انا تخرج لدي رسالة ان هناك خطاء تقبل تحياتي وشكري لمجهودك

[أبو عبد النور]

الخطأ في اسم الصفحة

فانت تريد القيمة "اردني" واسم الصفحة هو "اردني " مع زياادة فراغ في آخر اسم الصفحة.

لذا لديك هذا الخطأ.

بالتوفيق.

[العام الجديد2012]

استاذي ( أبو نصار )

اشكرك من أعماق قلبي

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

مع خالص تقديرى لشخصكم الكريم

المطلوب ترحيل _ALI_5.rar

تم تعديل يناير 16, 2012 بواسطه العام الجديد2012

[أبو عبد النور]

هل الجدوليين ثابيتين ام قابلين للزيادة في المعلومات ؟

[العام الجديد2012]

الاخ العزيز

apt

اشكرك واعتذر منك فانا لم انتبه للاسم في ردك عن تصحيح الخطاء في المسافة

وتوقعت انه ابونصار اكرر لك اعتذاري وشكري لكما والقائمين على هذا المنتدى

اخي العزبز

Apt

قصدي كل فتره يتم طباعة كشف تحت السابق

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

ثم يتم اصدار الكشف وطباعته حسب المدة وباي عدد طبعن الاسماء جديدة متغيرة

وعندم اريد اصدار الكشف بالظغط على الزر

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

وياخذ رقم بعد السابق ويحتفظ بالسابق

وهاكذا

يعني مقارب لعمل فاتورة

تم تعديل يناير 17, 2012 بواسطه العام الجديد2012

[أبو عبد النور]

السلام عليكم،

الاخ ابو نصار قام بمعالجة الادخال بواسطة فورم.

ويتم الترحيل حسب الجنسية الى الورقة المناسبة.

هل يتم ادخال الكشوفات الرئيسية تحت بعض ثم بواسطة زر اصدار الكشف يتم آليا وضع جدول ملخص الكشف تحت الكشف الرئيسي المناسب مباشرة ؟

ثم لم اقهم جيدا كيف يتم االتصدير حسب المدة ؟

يا ليتك تقوم بارفاق مثال آخر اكثر توضيحا ويضم آخر محاولة للأخ ابو نصار لكي تتضح :

- كيفية الاضافة الى الجدول الرئيسي ؟

- الترحيل الآلي يكون لاي صفحة بالضبط (حسب علمي يكون الى صفحة الجنسية) ؟

- الكشف الملخص (بالاصفر) هل هو موجود اصلا او يتم استحداثه بواسطة زر تصدير الكشف ؟

[العام الجديد2012]

الاخ العزيز

apt

الجدول الاصفر غير موجود

انما ياتي اذا أردنا طباعة ما تم تسجيلة

فهو مثال لشكل المطلوبة

اما الترحيل نعم قام الاستاذ ابو نصار بعمل ترحيل تلقائي حسب الجنسية

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

ألنقطة المهمة

انه في حالة اضافة جديد تلقائيا

ياتي تحت الجدول الاصفر اي من جديد وكأنها فاتورة أخرى

وهكذا

تم تعديل يناير 17, 2012 بواسطه العام الجديد2012

[أبو عبد النور]

السلام عليكم،

مرفق ملف مع شرح بسيط للفكرة العامة حول كيفية اشتغال ما تطلبه.

هذا ما فهمته من تقديمك.

فان كانت هناك تصحيحات فلتتفضل بها.

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

:)

far(v2).rar

[العام الجديد2012]

اخي

Apt

اشكرك على مجهودك الرائع وافكارك الجديدة

ولكن تمنيت اكمال نفس العمل السابق

لانه مطابق للمطلوب بشكل كبير جدا

الاستاذ ابونصار قام مشكور بعمل كامل المطلوب

لعملبت ادخال البيانات وتوزيعها

المتبقي هو اخراج البيانات بشكل فاتورة مع الاحتفاظ بالفاتورة السابقة

[أبو عبد النور]

السلام عليكم،

1 - هل يتم يتم ترحيل لبيانات الناقصة المدخلة عن طريق الفورم في اوراق الجنسية ؟

2 - في جدول تقرير الكشف هل تريد حساب عدد البيانات غير المكتملة بالنسبة مثلا للاسم على حدى وبالنسبة لرقم القيد على حدى او تريد مجموع البيانات الناقصة بالنسبة لكل الحقول مجتمعة ؟

مثلا :

عدد البيانات الناقصة بالنسبة للاسم هو 3

عدد البيانات الناقصة بالنسبة لرقم القيد هو 2

فمجموع البيانات غير المكتملة هو 5

3 - كيف يتم نقل البيانات الى ورقة التقرير المفصل ؟

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

تم تعديل يناير 20, 2012 بواسطه apt

[العام الجديد2012]

الاخ العزيز

apt

اكرر شكري وتقديري لك

وتوضيح ما طلبت

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

ثانيا الاسماء الناقصة يتم حسب اي اسم ناقص منه اي معلومة سوا رقم القيد اوالاسم او كليهما يحسب من ظمن الاسماء التي لم يكتمل عدد واحد لم يكمل

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

وبانسبة لفكرة التاريخ

لم استوعبها ولا اعلم كيف ستعمل

بنتظارك جزاك الله خير

تم تعديل يناير 21, 2012 بواسطه العام الجديد2012

[أبو عبد النور]

أهلا أخي العام الجديد2012

سوف احاول ارفاق مثال لذلك قريبا ان شاء الله.

[العام الجديد2012]

للرفع

بنتظار المساعدة

في اكمال طريقة اخراج البيانات

مع الشكر

تم تعديل يناير 25, 2012 بواسطه العام الجديد2012

[أبو عبد النور]

السلام عليكم،

عذرا على التاخير وذلك لضيق الوقت لدي.

على كل حال، ورقة "التقرير المفصل" جاهرة بنسبة كبيرة ولا ينقصها الا يعض التعديلات.

[العام الجديد2012]

بنتظارك اخي

apt

شكري وتقديري لك

[أبو عبد النور]

السلام عليكم،

- تم اضافة انشاء ورقة جديدة (حسب الجنسية) في حالة عدم وجودها

- اضافة ترتيب الاوراق حسب الترتيب الابجدي بعد كل ادخال جديد

- اضافة زر استخراج البيانات الناقصة في ورقة "لم يكتمل"

- اضافة زر الحصول على "تقرير مفصل"

جرب ورد لنا خبر

2012_3.rar

تم تعديل يناير 27, 2012 بواسطه apt

[العام الجديد2012]

الاخ العزيز

apt

عند الظغط على ادخال جديد تظهر الصورة المرفقة ويرفض الاضافة

[أبو عبد النور]

السلام عليكم،

اضف السطر التالي في اول الدالة KH_A

Dim R As Long

هكذا :

Private Sub KH_A()

    Dim RR As Integer, Endrow As Integer

    Dim R As Long

    ComboBox1.Clear

    With Sheets("ÇáßÔÝ ÇáÑÆíÓí")

	    Endrow = .Range("E" & .Rows.Count).End(xlUp).Row

	    For RR = 2 To Endrow

		    ComboBox1.AddItem .Cells(RR, 1).Value

	    Next RR

    End With

    For R = 0 To 10

	    Me.Controls(myCon(R)) = ""

    Next

    ComboBox1.Value = ""

    CommandButton1.Enabled = True

    CommandButton3.Enabled = False

    TextBox1.Value = Endrow

    TextBox2.SetFocus

End Sub

[العام الجديد2012]

الاخ العزيز

apt

كذلك عند الظغط على ادخال جديد تظهر الصورة المرفقة ويرفض الاضافة

[أبو عبد النور]

مثل سابقتها

 

Dim i as Long

تظهر هذه الرسائل عندما لا يتم تعريف احد المتغيرات المستعملة في البرنامج. وما يفرض تعريف المتفيرات هو السطر :

Option Explicit  

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

 

'Option Explicit

[العام الجديد2012]

استاذي الكريم

apt

اشكرك جزيل الشكر على مساعدتي

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

*******

كذالك

عند تكرار الضغط على تقرير مفصل يقوم بالإضافة للكشف السابق رقم جديد للكشف علمن انه لم يتم اضافة اي اسم بعد السابق ولو امكن ان لا يقبل الا بعد اضافة اسم جديد فقط .

اذا امكن بعد الادخال ان يفتح شيت الكشف الرئيسي بدل شيت التقرير مفصل .

وكذألك تفعيل كود زر الطباعة حيث عند الضغط علية لا تتم الطباعة .

ومره اخره اخي الكريم اكرر شكري لك وامتناني لك

تم تعديل يناير 31, 2012 بواسطه العام الجديد2012