ابوحمزه المصرى

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

up

شكرا على مرورك العطر اخى محمد عبدالسلام

الى الخبراء ..... الا يوجد حل

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

حلك حل عملاق اخى واستاذى الصقر واقدم لكم حلى المتواضع بدون VBA has22.rar

احم احم

up

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

اخى واستاذى الفاضل ياسر خليل أسأل الله العظيم ان يشفيك شفاء عاجل و تكون أواخر الألم ... شفاك الله وعافاك ...

انا لله وانا اليه راجعون نسأل الله ان يغفر له وان يجزيه عن اعماله خيرا

up

ممكن PDF

ممكن عن طريق دالة VLOOKUP لكن لابد ان يكون الرقم المقابل للصنف فريد حيث اننى ارى ان الشيت الجديد مختلف عن الشيت القديم من حيث ارقام الاصناف هذة تجربه للشيت الجديد فقط ارجوا ان اكون وفقت فى حل المطلوب 2015 - No - Sample.rar 2015 - No - Sample.rar

up

اخوانى اعضاء اوفيسنا الكرام هذا آخر ما توصلت له فى القائمة المنسدلة المرتبة ابجديا والمعتمده على قائمة اخرى وتقبل الزيادة لكن هل من اضافة ادخال عملية البحث عليها بالحرف حيث يظهر الاسماء التى تبدأ بالحرف المكتوب للاختيار منها اليكم المرفق القائمة المنسدلة.rar

شكرا جزيلا لك اخى خالد الرشيدى انا لم اغضب من الاخ الحبيب ياسر خليل بالعكس فأنا اراه مثلى الاعلى لكن اريد حذف الموضوع الغير المقبول بشكل عام . يسعدنى مجهودكم الطيب ... جزاكم الله خير ووفقكم

ارجوا حذف الموضوع مادام غير مقبول شكلاً وموضوعاً

{Sub شكلبيضاوي2_Click() Application.ScreenUpdating = False Dim i, LR LR = ورقة13.Range("B" & Rows.Count).End(xlUp).Row For i = 8 To LR ورقة13.Cells(i, "B").Resize(1, 7).Copy RawData.Range("F" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues RawData.Range("A" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("C4") RawData.Range("B" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("I4") RawData.Range("C" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("I5") RawData.Range("D" & Rows.Count).End(xlUp).Offset(1) = ورقة13.Range("C5") RawData.Range("E" & Rows.Count).End(xlUp).Offset(1) = "فاتورة" Next Range("A8:H27").SpecialCells(xlCellTypeConstants).ClearContents Application.CutCopyMode = False Application.ScreenUpdating = True {End Sub كشف حساب جديد2.rar

شكرا اخى الفاضل خالد الرشيدى . اخر طلب برجاء شرح الكود لتعم الفائدة .

أخى الفاضل خالد الرشيدى ورقة عمل الفاتورة انا اقوم بنسخ اكثر من ورقة عمل منها وملئ تلك الفواتير بالبيانات المطلوبه ثم ترحيل كل فاتورة على تلو الاخرى ثم حفظ جميع الفواتير فى ملف PDF واحد ... المشكله هنا اننى عندما انسخ ورقة عمل الفاتورة الكود لا يعمل الا على الفاتورة التى بالورقة 13 ..لعل الفكره تكون وصلت لحضرتك

شكرا اخى الكريم على الحل المطروح وجزاك الله كل خير . لكن اريد عدم ربط الكود بالورقة 13 "الفاتورة " لأن الفاتورة انا اقوم بعمل اكثر من نسخه منها وحفظ المجموعه كلها PDF لذا اريد تفعيل الكود على الفاتورة النشطه فقط حين الترحيل لا اعلم هل وفقت بايصال الفكرة ام لا .

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

السلام عليكم ورحمة الله وبركاته .. حفظكم الله اخوانى اعضاء أوفيسنا الرائع .. هل من الممكن اخوانى الكرام ان نقوم بعمل تايمر للكود بحيث يتوقف بعد مده محدده يمكن التطبيق على اى كود لفهم الموضوع .

فعلا مجهود رائع بارك الله في كل من شارك فيه