هاني مصطفي

رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة

رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة رووووووووووووووووووووووووعة

السلام عليكم استاذ الجميع / عبد الله باقشير الف مليووون شكر علي شرحك الجميل وكني اطمع اكثر في كرمك واحب ان اٍسأل عن اجزاء اخري اولا : ما معني As Double ثانيا : ما معني هذا الجزء For r = 1 To 5 Adr = Cells(r, 1).Address(0, 0) If Len(Trim(Me.Controls(Adr))) Then Sheet1.Range("A" & LR).Cells(r, 1).Resize(1, 6).Value = Ary وبالاخص If Len(Trim(Me.Controls(Adr))) Then ================ وفي الجزء او السطر If MN Then اريد ان اعرف اين الشرط لقاعدة if والذي سيتم تنفيذ المطلوب بعده اذا تحقق حيث ان MN لا تعني شرط علي حسب فهمي آسف لكثرة طلباتي ... ولكني احب ان اتعلم كثيرا منكم جزاك الله خيرا

ممتاااااااااااااااز ومنتهي منتهي الروعة والابداع جزاك الله خيرا

اين باقي الدروس

الشكر كل الشكر وعظيم امتناني وتقديري لمنقذي الاول وصاحب الابداعات الكثيرة استاذي / شوقي ربيع ملفك اكثر من راائع ويؤدي الغرض بالفعل وارجو منك ايضا ان تقوم مع استاذنا الكبير بشرح الاسطر التي اقو م بطلبها في مشاركاتي

بارك الله فيك في انتظار باقي الدروس جعلها الله في ميزان حسناتك

السلام عليكم الف مليون شكر للاستذة الكبار فالطريقتين صحيحتين ويؤديان الغرض ولكني بالنسبة لفاتورة الاستاذ القدير / عبد الله باقشير احب استاذنا ان اسأل عن معاني بعض السطور في الاكواد وكلي طمع في شرح مبسط لمعناهم فمثلا في كود Private Sub ComboBox2_Click ما معني الاسطر التالية Mh = WorksheetFunction.Match(ii, .Range("A9:A" & LR), 0) + 8 وما معني +8 في السطر وهل تغييرها يضر بالكود iCont = WorksheetFunction.CountIf(.Range("A9:A" & LR), ii) وهذين السطرين Adr = Cells(r, c).Address(0, 0) Me.Controls(Adr).Value = Sheet1.Range("G" & Mh).Cells(r, c).Value ولي ايضا بعض الطلبات في شرح اسطر اخري .... ولكن سيتم ذلك بعد اذن حضرتك جزاك الله خيرا

للرفع

السلام عليكم الاستاذ الفاضل / شوقي ربيع الف مليون شكر علي مجهودك الراائع ولكن لي طلبين الاول انه عند الاستعلام يتم احضار بيانات في كل صفوف اصناف الفاتورة حتي لو كانت الفاتورة المحددة بها عدد 2 او 3 اصناف فقط يحضر لي 5 اصناف .... الثاني : هو انني احتاج للاستعلام من الفورم مباشرة دون استخدام الجزء الموجود بجانب الجدول المرفق والموجحود به معادلات حيث انها ايضا لا تعمل علي اوفيس 2003 لدي في العمل وشاكر جدا لمجهودك الجميل وفي انتظار حلك لهذه المشاكل وحلول العباقرة مثلك جزاك الله خيرا

استاذنا العزيز / حمادة عمر اتابه دروسك درس درس واظل في انتظار كل درس بفارغ الصبر شرحك راائع ... انت بحق مبدع شكرا جزيلا لك

بالفعل موضوع راائع جزاك الله خيرا

كل شكري واحترامي لك استاذي / شوقي ربيع علي تشجيعك لي وان شاء ساصل بكم انتم اساتذتي الي ما اريد ... ونصبح بكم خبراء المطلوب تماما مع الايضاح في المرفق التالي المرفقات فاااااااتورة1.rar

السلام عليكم الاستاذ الكبير / شوقي ربيع جزاك الله خيرا وطبعا اعلم ان موضوعي بالنسبة لك لا شئ بالنظر الي موضوعاتك الراائعة في المنتدي ... ولكن واضح انني لم اقم بتوصيل المعلومة كما اريد وهناك موضوع للأخ / محمد توبه تقريبا به نفس الطلب فمع كودك استاذي ... توصلت لعمل كود من اعمال وشرح الاستاذ / حمادة عمر لعمل ترحيل الصفوف الموجودة بالفاتورة ولكن ما اريده الآن هو نفس طلب الاخ محمد توبه في موضوعه علي الرابط في المشاركة رقم 7 # http://www.officena.net/ib/index.php?showtopic=46141 ** وذلك بحل المشكله ( المطلوبة والاهم ) وهى ترحيل البيانات المتفرقه اعلي الفاتورة مثل (رقم الفاتورة - التاريخ - اسم المورد - الحركة .... الخ ) ايا كان عددها ولكن اريدها ان ترحل ذلك بعدد الصفوف المستخدمه فى الفاتورة ( مع ملاحظة وجود تكستات بوكس وكومبوبكسات بها ) هل من الممكن ذلك واكون شاكر جدا لو يكون ذلك مع مزيد او قليل من الشرح .. لفهم آليه عمل ذلك ** وضع كود للاستعلام عن رقم الفاتورة بعد تسجيلها في نفس النموذج لتظهر البيانات بنفس الشكل في الفاتورة الذي تم تسجيله بها في انتظار ردودكم اساتذتنا جزاكم الله خيرا

للرفع للاهمية القصوي .... من فضكم فضلا ليس امرا

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

الاساتذة الكرام تقبلوا تحياتي اولا الملف المرفق به فاتورة للشركة لدي اريد ان ان اصمم برنامج لها والبداية مع هذه الفاتورة وستكون بداية قويه لي في عملي الجديد وبكم ستكتمل فرحتي بهذه الوظيفة 1- اريد وضع اكواد ترحيل للفاتورة المرفقة ولكن الفاتورة بها بيانات في الاعلي اريد اضافاتها امام كل صنف في اللفاتورة عند الترحيل وعدد الاصناف بالفاتورة 5 اصناف ان وجد الخمس اصناف يتم وضع البيانات امام الخمس اصناف وان وجد 3 اصناف يتم وضع البيانات امام الثلاث اصناف فقط وان وجد 2 صنف فقط يتم ترحيل البيانات امام 2 صنف فقط ..... وهكذا 2- هنالك كومبوبكس في الاعلي للاستعلام بعد التسجيل ... اريد وضع كود له ليقوم بعملية الاستعلام ويظهر لي بيانات الفاتورة المختارة ولكن لي طلب كبير جدا عندي ... ولكنه بسيط وسهل لديكم ارجو عند وضع الكود ... وضع كود سهل لسهوله فهمه وياريت ( اتمني ) شرح مبسط لهذه الاكواد ليمكنني التغيير او التعديل فيها حسب الحاجة حيث لدي عدد كبير من النماذج ساقوم بعملها وتقريبا نفس الطريقة مع اختلاف وجود كومبوبكسات وتكستات اخري فاريد ان اعدل في الكود بعد فهمه من حضراتكم شكرا مقدما لكم فاااااااتورة.rar

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

جزاك الله خيرا اعمالك كلها رواااائع

استاذنا القدير لي طلب كيف يمكنني عمل قائمة جديدة اخري لقائمة جديدة ( قائمة رابعة ) كما في الثلاث قوائم الاولي شكرا مقدمل لك

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

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

استاذي الفاضل / ابو حنين عظم الله اجرك وبارك لك وبارك عليك شرح ولا اروع ولا احلي من كده وممتااااااااااااااااااااااااااااااااااااااااااز جزيل شكري وامتناني

للرفع

الاساتذة الافاضل اريد من حضراتكم انوتوضحوا لتلميذكم معني الكلمات او الاسطر التالية 1- مثلا اجد في اكواد كثيرة بعد بدايته جمله On Error Resume Next ما معناها ولماذا تكتب 2- ما الفرق بين Dim xxx As Worksheet Dim xxx As Integer LastRow xxx Integer Dim xxx As String والمقصود هنا الفرق بين Worksheet , Integer ، String ولماذا الاختلاف بينهم حيث اعلم انها كلها متغيرات تستخدم في الكود 3- وحتي لا اثقل عليكم ولي عودة للتعلم من علمكم احب معرفة طريقة استخدام او معني استخدام Do Loop While هل هي دالة ام امر في الاكواد ام ماذا .... ؟؟؟؟ لكم الشكر المسبق وفي انتظار ردك الكريم جزاكم الله خيرا