المرجو اضافة الكود المناسب

[كرتوتي]

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

سجلات الحساب.rar

[حسين العصلوجى]

تفضل المرفق لعله يكون المطلوب

سجلات الحساب.rar

تم تعديل مارس 8, 2013 بواسطه حسين العصلوجى

[كرتوتي]

استسمحك عذرا اخي حسين ليس ذاك هو المطلوب .الاضافة التي قدمتها ترتب العمليات في العمود a انا اريد اثناء ادخال البيانات في الفورم : وخصوصا خانة المرجع بحيث ادا اخترت من القائمة الفاتورة رقم ....او االسند رقم ...يقوم البرنامج باضافة رقم الفاتورة :اي اداكنت توقفت عند الفاتورة رقم 20 عند اختيار الفاتورة رقم يضيف البرنامج الرقم 21وهكذا .المرجو ان اكون وفقت في شرح المطلوب

[حسين العصلوجى]

الاخ / كرتوتي

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

 

Private Sub ComboBox4_Click()
TextBox4.Value = ComboBox4.Value
c = 1
Set myrange = Sheets(TextBox10.Text).Range("d1:d100")
For Each cel In myrange
If cel = TextBox4.Text Then
c = c + 1
End If
Next
TextBox1.Value = c
End Sub 

[حمادة عمر]

السلام عليكم

الاخ الكريم / كرتوتي

 

طبعا بعد ردود الحبيب الاستاذ / ابو حنين فلا يوجد ردود  ... جزاه الله خيرا

وجزيل الشكر للاخ / حسين العصلوجي ... حيث انني معجب بردوده كثيرا ... جزاه الله خيرا

وعلي حسب فهمي للطلب سنقوم بزيادة جزء بسيط علي الكود الخاص بـ   Private Sub UserForm_activate()
ليكون كالتالي

Private Sub UserForm_activate()
With Sheets("سجل البنك")
        For r = 2 To 12
                ComboBox2.AddItem .Range("O" & r)
               If .Range("P" & r) <> "" Then
               ComboBox3.AddItem .Range("P" & r)
               ComboBox4.AddItem .Range("q" & r)
               End If
        Next r
        End With
'=======================
' هذا هو الجزء المضاف للكود لعمل الترقيم التلقائي في الفورم في تكست بوكس 1
ActiveSheet.Select
T = Cells(Rows.Count, 1).End(xlUp).Row
TextBox1 = Val(Cells(T, 1)) + 1
End Sub

واليك الملف المرفق به التعديل المطلوب ... ارجو ان يفي بطلبك وفي انتظار ردك

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

 

سجلات الحساب1.rar

تم تعديل مارس 8, 2013 بواسطه حمادة عمر

[حسين العصلوجى]

اخي العزيز الي قلبي كثيرا / حماده عمر

ااشكرك كثيرا علي كلماتك الطيبه 

واوضح لك اني قمت بهذا التعديل في المرفق الاول ولكن الاخ / كرتوتي لديه ثلاثة انواع من المدخلات فواتير وسندات تسلم وسندات قبض ويريد عمل مسلسل خاص بكل فئة علي حده هذا علي حسب ما فهمته من كلامه

 

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

تم تعديل مارس 8, 2013 بواسطه حسين العصلوجى

[حمادة عمر]

السلام عليكم

الاخ العزيز / حسين العصلوجى

 

بارك الله فيك

والله اني احبك في الله فعلا

وانتي تحبني علشان اسم صاحبك ..... ههههههه

تقبل تحياتي

اذا ننتظر رد الاخ كرتوني

مع علمي بامكانيات الرائعة واعلم انه بعد رد الاخ الكريم / كرتوني سيكون لديك الحل الرائع باذن الله

[كرتوتي]

شكرا لكما اخي حمادة واخي حسين المطلوب لم يتحقق

اخي حمادة انا لا اريد ترتيب textbox1واتما textbox4التي تضم ارقام الفواتير وارقام سند

سجلات الحساب2.rar

سجلات الحساب2.rar

[حسين العصلوجى]

الاخ / كرتوتي

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

[كرتوتي]

اخي العزيز الي قلبي كثيرا / حماده عمر

ااشكرك كثيرا علي كلماتك الطيبه 

واوضح لك اني قمت بهذا التعديل في المرفق الاول ولكن الاخ / كرتوتي لديه ثلاثة انواع من المدخلات فواتير وسندات تسلم وسندات قبض ويريد عمل مسلسل خاص بكل فئة علي حده هذا علي حسب ما فهمته من كلامه

 

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

نعم اخي وأستاذي حسين هذا هو المطلوب اي عند اخيار الفاتورة رقم ...من listeboxيضيف لها البرنامج الرقم المناسب لترتيبها في سجل اليومي .

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

[كرتوتي]

السلام عليكم احوتي لازلت انتظر من يفك طلاسيم طلبي

[احمد عبد الناصر]

السلام عليكم

 

جرب المرفق

 

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

 

تحياتي

 

سجلات الحساب1+.rar

[كرتوتي]

اخي/أحمد عبد الناصر

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

[خالد القدس]

السلام عليكم

الاستاذ احمد

فعلا فكرة اكثر من رائعة

تدل على خبرة ودراية عالية

بارك الله فيك

[حمادة عمر]

السلام عليكم

الاخ العزيز / احمد عبد الناصر

 

احسنت صنعاً

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

[احمد عبد الناصر]

السلام عليكم

 

استاذ كرتوتي 

استاذ خالد 

استاذ حمادة 

 

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

 

ملاحظة :هذه الطريقة ليست الافضل و بالاخص عندمنا تزداد البيانات فالافضل هو فصل النص عن الارقام  و الله اعلم

[كرتوتي]

السلام عليكم فعلا اخي /احمد عبد الناصر

بدأت تضهر بعض المشاكل مع الكود المرجو افادتي بكيفية فصل النص عن الارقام دون التأثير عن باقي الاكواد وجزاك الله خيرا