رائد داود

السلامّ عليكم لدي عمود A خاص لرقم السندات ، والعمود C لنوع السندات والتي هي ٣ انواع المطلوب معادلة أو كود ترقيم يبدأ من ١ الى ٥٠٠ اسند القبض ، ومن ٥٠١ الى ١٥٠٠ لسند الصرف ، ومن ١٥٠١ الى ٢٠٠٠ لسند قيد

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

شكرا" استاذي ولكن قد يستلم نفس الشخص اكثر من سند صرف فيتكرر اسمه في ورقة day او الداتا الموجودة

السلام عليكم استاذي العزيز تم حذف ليست بوكس 1 أعتقد لاحاجة لنا بها أصبحت زائده سوف أحاول زيادة معايير البحث , وسؤال عندي اريد في الكومبو بوكس للإختيارات أن لاتجلب المتكرر يعني مثلا" رقم الدليل 33 يذكر مرة واحده وكذلك مثلا" في المركز لايجلب الأسماء المتكررة هل هناك كود ممكن إضافته ؟

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

تم العمل ومشكور استاذي , سؤال ماذا لو أردت البحث بنفس الفورم بمعيارات اخرى ؟ السلام عليكم اخي الفاضل استاذ طلعت لمشاهدة المرفق حيث عملت 2 فريم وليست بوكس عدد 2 وكومبو بوكس 2 لخيارات التصفية لكن من كومبو بوكس 2 لاتظهر الليست بوكس , لا أعرف اين المشكله h4.rar

نعم الفكرة واضحة استاذ طلعت لكن قصدي في نفس الفورم أبحث بأكثر من معيار ، وانا جربت لكن الأعمدة والعناوين في ليست بوكيس تحتاج الى تغيير وعمل resize

تم العمل ومشكور استاذي , سؤال ماذا لو أردت البحث بنفس الفورم بمعيارات اخرى ؟

عمل رائع استاذ طلعت وشكرا" لك ياأخي انا قصدت عدم اظهار اعمدة أخرى وهي م5 و م4 و م3 ... مثلا" أو أي أعمدة أخرى لا أرغب بإظهارها استنادا" الى معيار بحث أختاره أنا

شكرا" جزيلا" استاذ لكن عند تعريفه هكذا يظهر بالأحمر ولاينجح Private Sub UserForm_Initialize() ComboBox1.AddItem "سند صرف" ComboBox1.AddItem "سند قيد" Set MyRng = Union(Range("a3:e5000"), Range("j3:o5000") With Me.ListBox1 .ColumnCount = 12 .ColumnWidths = "25,25,50,45,20,20,50,50,50,50,50,50,50" .List = MyRng.Value End With End Sub

شكرا" أخي لكن ليس المطلوب عندي في الورقة day الأعمدة من A الى O اريد عمل رينج من العمود A الى العمود e , ومن العمو J الى العمود O ("a3:e5000,j3:o5000") هكذا مثلا" كيف يمكن كتابته لكي يتم تعبئة ليست بوكس منه شكرا" مرة اخرى

السلام عليكم لدي شيت باسم day واريد عمل range منها من العمود a3:d5000 و من f3:o5000 كيف يتم كتابته او تسمية الرينج باسم مثلا" h4.rar

السلام عليكم عندي شيت باسم day وأود أن أعمل منها رينج من عمود a3:d5000 ومن f3:o5000 كيف يمكن عمل ذلك h4.rar

استاذي الكريم استاذ طلعت المحترم وجدت الحل لملفك بعد ان عملت رينج واسميته bb واشتغل الكود بصورة صحيحة استعمال الدالة VLookup في البحث باستخدم الكود.rar

استاذ طلعت المحترم شكرا" على الإستجابة ............. في مثالك أنت تفترض أن البيانات في ورقة واحده ,,, ماذا لو كان البرنامج فيه عدة اوراق والبيانات موجوده في ورقة اخرى ارفع لك المثال الذي انت عملته بعد ان اضفت البيانات في ورقة اخرى فالفورم لايعمل علما" توصلت الى حل لجلب البيانات بنجاح وكذلك مسألة الترقيم لكل سند على حدة , لكن تظهر لي مشكلة استدعاء السندات أرفق لك الحل الجديد لي للإطلاع عليه والمساعده فيه استعمال الدالة VLookup في البحث باستخدم الكود.rar h3.rar استاذي الفاضل وجدت الحل لملفك بعد أن عملت رينج وسميته bb ونجح الكود شاهد المرفق استعمال الدالة VLookup في البحث باستخدم الكود.rar

الأستاذ طلعت محمد حسن السلام عليكم هذا كود اقتبسته من حضرتك بمشاركة لكم حول دالة vlookup في الفورم Private Sub TextBox1_Change() Lr = WorksheetFunction.CountIf(Range("A4:C10000"), Val(TextBox1.Value)) If TextBox1.Value <> "" And Lr = 1 Then TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A4:C10000"), 2, 0) TextBox3.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A4:C10000"), 3, 0) Else TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" End If End Sub السؤال ماذا لو كانت الأسماء في ورقة اخرى والمجال كان من a2:h500 عملت هكذا ولكن لم ينجح الكود معي Private Sub A1_Change() Set sh2 = Sheets("code") LR = sh2Function.CountIf(Range("A2:h500"), Val(A1.Value)) If A1.Value <> "" And LR = 1 Then B1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 2, 0) C1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 3, 0) D1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 4, 0) E1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 5, 0) f1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 6, 0) h1.Value = sh2Function.VLookup(Val(A1.Value), Range("A2:h500"), 7, 0) Else 'A1.Value = "" End If End Sub

للرفع

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركااته عملت فورم لإختيار نوع السندات ,, وتمت عملية ترقيم كل سند على حده وفيه مشكلة في جلب ارقام واسم الحساب عند تكست a3 وموضحة الطلبات داخل البرنامج h2.rar

عمل مميز ,,, مشكور

جاري التطبيق ,,,,,,,,,, جزيل الشكر

جعلت فورمين منفصلين احدهما للصرف واخر للقيود (قبض) المطلوب ترقيم تلقائي لكل فورم على حده يبدأ من رقم 1 فما فوق كذلك عملت ليست بوكس باسماء الحسابات اريد عند الضغط على رقم الحساب يظهر في تكست بوكس a1 , ثم a2 وهكذا الى تكست a5 التي فيهن ارقام الحسابات الملف مرفق حسابات.rar

للرفع رجاءا"

للرفع

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

أنت صاحب الخلق الرفيع ,,, ومن لم يشكر المخلوق لم يشكر الخالق