احمدزمان

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

السلام عليكم و رحمة الله وبركاته اخي العيدروس حسب معرفتي البسيطة بـ الأكواد = = = = = = اذا افترضنا انك تريد تسمية النطاق Ali Sub ali() Dim ali As Range Set ali = Sheets("sheet3").Range("A2:AZ" & Sheets("sheet3").UsedRange.Rows.Count) End Sub مع ملاحظة ان هذا الكود سوف يستخدم عدد الصفوف المستخدمة في الورقة حتى لو مافيها بيانات مع التحية

و عليكم السلام ورحمة الله الملف فية 8 و 12 و × الملف يحتاج ترتيب اكثر من كدة علشان يشتغل عليه الكود فين مكان التاريخ مشواضح الملف به قوائم LIST مش عارف عملها

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

وعليكم السلام ورحمة الله وبركاته ان شاء الله ممكن ولكن اكيد في ملف او فكرة سابقة تضع بها بعض البيانات كـ مثال لكي يتم العمل عليها نريد من الاعضاء الكرام برنامج كالآتي : ماهي البيانات التي تسجل للمريض و صفة الدعم نقدي او اسم علاج او تحويل لمستشفى هل هذا يعني خلال عام 2011 اي تاريخ ويصرف له مرة اخرى في عام 2012 اي تاريخ او لايصرف له الا بعد مرور عام=360يوم من آخر صرف له

السلام عليكم من النموذج الي عملناه عبي البيانات ثم اضغط حفظ البيانات يتم اضافتها الى الورقة ALL_DATA آمل التجربة التحصيل.rar

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

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

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

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

بابا اخي عبدالله اشكرك جزيل الشكر على رابط الموضوع الذي لم يسبق لي المرور عليه و الذي كنت اعتقد انه من المستحيلات جزاك الله كل خير وكل الشكر و التقدير و العرفان للأستاذ Mas صاحب الكود الرائع

السلام عليكم عمل رائع من استاذ فاضل شيء رائع جدا جدا جدا جزاك الله كل خير

كود ارسال ملف بالبريد الإلكتروني ويشترط هنا ربط البريد الإلكتروني يالآوت لوك حيث ان اكسل يرسل عن طريق الآوت لوك فقط Send Mail When you want to email to someone the workbook, just enter the code below in the current workbook VBE module. SendMailDemo () ActiveWorkbook.SendMail Recipients:="admin@xlpert.com" End Sub

السلام عليكم في المرفق اضغطي على بحث في الخلية الصفراء اعلى ورقة اكتبي ماتريدي البحث عنه اي اسم بنك - اي اسم مستفيد او مؤسسة - اي جزء من رقم الضمان او الخطاب - اي ملاحظة مسجلة - ماعدى التواريخ تظهر لك النتائج اكتب منتهي = تظهر كل الضمانات المنتهية تاريخها للتجديد = تظهر كل الضامانات المطلوب تجديدها مع التحية Bank_Grantee.rar

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

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

السلام عليكم اخي ابو الحارث عمل رائع جزاك الله كل خير وكما يقال في المثل ((لكل شيخ طريقة)) - ((جميع الطرق تأدي الى . . . . . . .)) تقبل خالص تحياتي

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

السلام عليكم و رحمة الله وبركاته اخي العيدروس عجبتني ((بيت الداء)) المهم نحنة لمن نحول التاريخ الى صيغة نص وليس رقم اذا هنالك فرق بين رقم 1 ورقم 01 طبعا لذلك انته حولت التاريخ الى صيغة نص في الورقة الأولى وعملت خانة الأيام خانتين يعني 01 بينما كتبت التاريخ في الورقة الثانية بصيغة مفردة وهي 1 فقط الحل تغير الدالة في H1 من الورقة الأولى الى =TEXT(G1;"b2yyyy/m/d") و ان شاء الله يسير كله تمام مع التحية

HGسلام عليكم يوجد خطأ في الملف السابق ارجو المعذرة تم تدارك الخطأ هنا مع اضافة امكانية الفرز للنتائج قائمه الاصناف.rar

السلام عليكم هذا كود كنت قد تعلمته من الأستاذ ابو اسامة عدلت عليه حسب طلبك وكانت النتائج رائعة ER = ActiveSheet.UsedRange.Rows.Count A = Array("0", "A3:A" & ER, "B3:B" & ER, "C3:C" & ER, "D3:D" & ER, "E3:E" & ER, "F3:F" & ER) TR = Range("H55555").End(xlUp).Row + 1 For T = 1 To 6 B = "H" & TR Range(B).Clear Range(A(T)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(B), Unique:=True Next T آمل ان يفي بالغرض المنشود قائمه الاصناف.rar

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

السلام عليكم و رحمة الله كل ده فواتير وفي غيرها كثير http://www.officena.net/ib/index.php?showtopic=36968 http://www.officena.net/ib/index.php?showtopic=35051 http://www.officena.net/ib/index.php?showtopic=34547 http://www.officena.net/ib/index.php?showtopic=32848 http://www.officena.net/ib/index.php?showtopic=31535

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

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