احمدزمان

السلام عليكم و رحمة الله وبركاته - - حل جميل ورائع اخي بن علية - - جزاك الله كل خير

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

السلام عليكم و رحمة الله وبركاتهاخي خالد اهلا وسهلا بك بين اخوانك و احبائك لم افهم ماهو المطلوب بالظبط لذلك وضعة الملف هنا لكي يقوم من فهم المطلوب بالحل - تحياتي و تقديري للجميع sh1.rar

السلام عليكم و رحمة الله وبركاته اخي احمد في المرفق يظهر لك مسجبوكس تكتب فيه اسم المشروع المراد مسح بياناته ثم موفق يتم المسح اتمنى ان يفي بالغرض Ahmed 251.rar

السلام عليكم و رحمة الله وبركاتهبعد اذن استاذنا الفاضلالمهندس طارقارفقت حل على قدر فهمي للطلب= = = = = تم تسمية نطاقين في ورقة Listومن خلالهما تم وضع مصفوفة و دالة في كل ورقة امام كل صف بحيث من خلالهما يتم معرفة رقم صف البيانات المطلوبو ثم تم وضع الكود للترحيل= = = =اذا تكرر الكود في اي يوم يتم جمع القيم بهلم اجد خانة CASH Qty لكي اقوم بالترحيل منهااذا ضغطت على الزر مرتين دون مسح سوف تتضاعف لديك القيم في الأعمدةمع تحياتي و تقديري goodlife.rar

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

الأستاذهشام - ماشاء الله تبارك الله - عمل اكثر من رائع- جزاك الله كل خير - وكل عام وانته بخير

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

اخي الحسامي- جزاك الله كل خير-

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

السلام عليكم اخي الخالدي ماشاء الله ابداع جميل جزاك الله كل خير

السلام عليكم و رحمة الله وبركاتهاخي في المرفق السابقاذا اخترت مثلا مصرثم اخترت في القائمة الفرعية محمد طاهرلن تستطيع تغيير مصر في القائمة الأولى الا بعدمسح الإختيار الموجود في القائمة الفرعية وأظن ان هذا يفي بالمطلوب اما اذاكنت تريد بالتحديد اختيار اول اختيار فقط من القائمة الرئيسية هذا ممكن بكود Vb تحياتي و تقديري للجميع

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

شرح فيديو منقول عن الأستاذ يحيىوبه طريقة تسمية النطاقات عمل قائمة منسدلة تعتمد على قائمة أخرى-تسمية النطاقات.rar

السلام عليكمهذا شرح الأستاذ ابو تامرالاخ mfawazلتسمية المدى او النطاق1 - ظلل المدى المراد تسميتة2 - من قائمة ( ادراج / الاسم ) اختار تعريف3 - ادخل اسم المدى ثم موافقاما للحذف فى نفس الديالوج اختار اسم المدى المراد حذفة ثم اضغط زر حذف ثم موافق

السلام عليكم و رحمة الله جزاك الله كل خير

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

Sub auto_open() Dim Expiry As Date Expiry = DateValue("30/7/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual For S = 1 To ActiveWorkbook.Sheets.Count Sheets(S).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL IF S <> 1 THEN SHEETS(S) .Visible = xlSheetVeryHidden Next S End If Application.Calculation = xlAutomatic Application.ScreenUpdating = False sheet1.Visible = True sheet1.Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub

السلام عليكم و رحمة الله وبركاته جزاك الله خيرا جرب التالي [size="2"][color="#660066"]Sub[/color] auto_open[color="#666600"]()[/color] [/size][size="2"][color="#660066"]Dim[/color] [color="#660066"]Expiry[/color] [color="#660066"]As[/color] [color="#660066"]Date[/color] [/size][size="2"] [color="#660066"]Expiry[/color] [color="#666600"]=[/color] [color="#660066"]DateValue[/color][color="#666600"]([/color][color="#008800"]"30/7/2010"[/color][color="#666600"])[/color] [/size][size="2"] [color="#660066"]If[/color] [color="#660066"]Date[/color] [color="#666600"]>[/color] [color="#660066"]Expiry[/color] [color="#660066"]Then[/color] [/size][size="2"][color="#660066"]Dim[/color] CEL [color="#660066"]As[/color] [color="#660066"]Range[/color] [/size][size="2"] [color="#660066"]Application[/color][color="#666600"].[/color][color="#660066"]ScreenUpdating[/color] [color="#666600"]=[/color] [color="#000088"]False[/color] [/size][size="2"][color="#660066"]Application[/color][color="#666600"].[/color][color="#660066"]Calculation[/color] [color="#666600"]=[/color] xlManual [/size][size="2"][color="#660066"]For[/color] S [color="#666600"]=[/color] [color="#006666"]1[/color] [color="#660066"]To[/color] [color="#660066"]ActiveWorkbook[/color][color="#666600"].[/color][color="#660066"]Sheets[/color][color="#666600"].[/color][color="#660066"]Count[/color] [/size][size="2"][color="#660066"]Sheets[/color][color="#666600"]([/color]S[color="#666600"]).[/color][color="#660066"]Activate[/color] [/size][size="2"][color="#660066"]For[/color] [color="#660066"]Each[/color] CEL [color="#660066"]In[/color] [color="#660066"]ActiveSheet[/color][color="#666600"].[/color][color="#660066"]UsedRange[/color] [/size][size="2"][color="#660066"]If[/color] CEL[color="#666600"].[/color][color="#660066"]HasFormula[/color] [color="#666600"]=[/color] [color="#000088"]True[/color] [color="#660066"]Then[/color] CEL [color="#666600"]=[/color] CEL[color="#666600"].[/color][color="#660066"]Value[/color] [/size][size="2"][color="#660066"]Next[/color] CEL [/size][size="2"][color="#660066"]IF S <> 1 THEN SHEETS(S)[/color][color="#666600"] .[/color][color="#660066"]Visible[/color] [color="#666600"]=[/color] xlSheetVeryHidden [/size][size="2"][color="#660066"]Next[/color] S [/size][size="2"][color="#660066"]End[/color] [color="#660066"]If[/color] [/size][size="2"][color="#660066"]Application[/color][color="#666600"].[/color][color="#660066"]Calculation[/color] [color="#666600"]=[/color] xlAutomatic [/size][size="2"][color="#660066"]Application[/color][color="#666600"].[/color][color="#660066"]ScreenUpdating[/color] [color="#666600"]=[/color] [color="#000088"]False[/color] [/size][size="2"]sheet1[color="#666600"].[/color][color="#660066"]Visible[/color] [color="#666600"]=[/color] [color="#000088"]True[/color] [/size][size="2"]sheet1[color="#666600"].[/color][color="#660066"]Select[/color] [/size][size="2"][color="#660066"]ActiveWorkbook[/color][color="#666600"].[/color][color="#660066"]Save[/color] [/size][size="2"][color="#660066"]ActiveWorkbook[/color][color="#666600"].[/color][color="#660066"]Close[/color] [/size][size="2"][color="#660066"]End[/color] [color="#660066"]Sub[/color][/size]

السلام عليكم و رحمة الله وبركاته<br><br>الشرح مرفق<br>مع اعتذاري<br>لضعف امكانياتي في الشرح<br><br> القواءم.rar

hgsbl ugd;l , vplm hggi ,fv;hji السلام عليكم و رحمة الله وبركاته عمل رائع اخي عماد جزاك الله كل خير

تم المطلوب القواءم.rar

جزاك الله كل خير استاذي ابو عبدالله = = = = ولد طيبة أنا جربت الكود و شغال 100×100 اخي ابوسارة انا جربت الأكواد وشغاله ولا اعلم اين الخطأ الذي تتحدث عنه في كود ابوعبدالله او ولدطيبة

الاربعاء‏= 10‏/8‏/1431 السلام عليكم بعد الشكر و التقدير لكل اخواني العباقرة الذين سبقوني بالرد الأستاذ ياسر خليل و الأستاذ عماد الحسامي و الأستاذ هشام شلبي يا ابن بلد الحبيب – عليه افضل الصلاة و السلام تم عمل جدول واحد يستخرج النتائج بـ 3 طرق مختلفة 1- شهر و اسم الموظف :- يستخرج جميع الموظفين الذين لهم حركات خلال الشهر ثم يعطيك اجمالي العدد للحركات و المبالغ 2- شهر و نوع الجهاز:- يستخرج جميع الأجهزة التي لها حركات خلال الشهر ثم يعطيك اجمالي العدد للحركات و المبالغ 3- موظف و نوع الجهاز:- يستخرج مبيعات الشهر للموظف مع كل جهاز عدد و اجمالي ويبقى المهم طريقة الإستخدام تمام – قلتلي تمام طيب يوجد لديك 3 قوائم منسدلة 1- قائمة الشهر و هي القائمة الرئيسية لإستخراج البيانات للشهر المحدد 2- قائمتان في داخل الجدول ومنها تختار نوع البحث وتضغط زر البحث او استخراج النتائج - تختار في القائمة الأولى شهر و الثانية اسم الموظف - يستخرج جميع الموظفين الذين لهم حركات خلال الشهر الذي حددته في الأعلى ثم يعطيك اجمالي العدد للحركات و المبالغ - تختار في القائمة الأولى شهر و الثانية نوع الجهاز - يستخرج جميع الأجهزة التي لها حركات خلال الشهر الذي حددته في الأعلى ثم يعطيك اجمالي العدد للحركات و المبالغ - تختار في القائمة الأولى اسم الموظف و الثانية نوع الجهاز - يستخرج مبيعات الشهرالذي حددته لكل موظف مع كل جهاز عدد و اجمالي خلال الشهر الذي حددته في الأعلى ثم يعطيك اجمالي العدد للحركات و المبالغ = = = = = = == = == = آمل ان يكون به المطلوب دمتم بخير MonthSummary.rar

السلام عليكم اخي ياسر خليل جزاك الله كل خير هم هكذا المدرسين عندما يبدعو بارك الله فيك = = == = = = = للإثراء الموضوع طبعا بعد اذنك سوف اضيف لاحقا حل آخر يعتمد على نفس الدالة بالإضافة الى Vb