يحيى حسين

السلام عليكم و رحمة الله أخي هذه الدالة لمعرفة ترتيب عنصر داخل عامود و استخدم فيها الدالة INDIRECT لقراة المرجع الموجود في الخلية k4 ليعيد النص كمرجع و ربطها مع الدالة INDEX لتعييد النطاق الذي ستبحث خلاله الدالة Match دمت في حفظ الله

السلام عليكم و رحمة الله بالإضافة لحلول الأخوة جزاهم الله كل خير جرب اخي هذه المعادلة =TRIM(RIGHT(SUBSTITUTE(C5,"-",REPT(" ",255)),255))

السلام عليكم و رحمة الله يمكنك يضاً اخي تنفيذ طلبك من خلال التنسيق الشرطي شاهد الملف المرفق Conditional Formatting - Yahya Hussien.rar

السلام عليكم و رحمة الله في الخلية c8 جرب المعادلة التالية : =LOOKUP(2,1/((انتاج[كود الماكينة]=تقرير!C3)*(انتاج[رقم العملية]=تقرير!C5)),انتاج[التاريخ]) و في الخلية c9 ضع المعادلة التالية : =LOOKUP(2,1/((انتاج[التاريخ]=تقرير!C8)*(انتاج[كود الماكينة]=تقرير!C3)*(انتاج[رقم العملية]=تقرير!C5)),انتاج[كمية الانتاج])

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

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

السلام عليكم و رحمة الله نفس فكرة الأخ جمال و لكن بأسلوب آخر =MID($A$5,ROWS($A$6:A6),1) ثم اسحبها للأسفل

السلام عليكم و رحمة الله أخي لرفع ملف قم بضغطه بأحد برامج الضغط المعروفة winRara or winZip ثم جرب رفعه

السلام عليكم و رحمة الله يا ريت لو تسخدم عنوان واضح لموضوعك اخي في الاكسيل 2007 و 2010 يمكنك اسخدام التنسيق الشرطي يوجد خيرا لتحديد القيم المكررة دمت في حفظ الله

السلام عليكم و رحمة الله أخي ما تقصده انت ان لا يظهر خلايا فارغة في القائمة المنسدلة و لعمل ذلك يجب تعريف نطاق او مدى ديناميكي لجعل الاكسيل يقرأ منه و انت بذلك لن تكون محتاج لتحديد مدى كبير لعمل نطاق ديناميكي راجع هذا الشرح http://www.4shared.com/file/LI6PPzKz/__3_-__.html? دمت في حفظ الله

السلام عليكم و رحمة الله أحي جرب هذا الكود Sub CopyToPges() Dim LR As Long, ws As Worksheet, Mws As Worksheet Set Mws = Sheets("sheet1") LR = Mws.Range("A" & Rows.Count).End(xlUp).Row For Each ws In Sheets If ws.Name <> "Sheet1" Then With Mws.Range("A1:D" & LR) .AutoFilter 1, ws.Name End With Mws.Range("A1").CurrentRegion.Copy ws.Range("A1").PasteSpecial xlPasteValues End If Next ws Mws.Range("A1").AutoFilter Application.CutCopyMode = False End Sub

السلام عليكم و رحمة الله أخي في الخلية E3 ضع المعادلة التالية , ثم اسحبها للأسفل =IF(COUNTIF(B3:D3,"*?")=COUNTA(B3:D3),"غ",SUM(B3:D3))

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

السلام عليكم و رحمة الله جزاكم الله كل خير أخوتي في الله دعواكم دمتم في حفظ الله

السلام عليكم و رحمة الله إضافة لكود الأخ الحبيب عبدالله جرب هذا الكود Sub AddSheets() Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Mousa " & Sheets.Count End Sub

السلام عليكم و رحمة الله إضافة لحلول الأخوة الرائعة و الجميلة يمكن عمل تنسيق خلايا يقوم بعرض التواريخ و الوقت كتنسيق فقط و لا يقوم بتحويل القيم حدد العامود الذي به التواريخ ثم رايك كليك تنسيق خلايا اختر المخصص و ضع التنسيق التالي ####\/##\/## و للوقت نفس الخطوات السابقة و استخدم التنسيق التالي : ##\:##\:## دمتم في حفظ الله

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

السلام عليكم و رحمة الله طريقة أخرى إضافة لحل الاخ هشام لمعرفة أخر قيمة =LOOKUP(9.99999999999999E+307,D:D) و لمعرفة عنوان الخلية =ADDRESS(MATCH(9.99999999999999E+307,D:D),4,4)

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

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

السلام عليكم و رحمة الله الاخ الحبيب يحياوي ما شاء الله رائع جدا بارك الله فيك

السلام عليكم و رحمة الله كود جميل اخي يحياوي و انا كنت استخدم الكود التالي في عملية منع إضافة صفحات جديدة Sub StopAdd() Dim wb As Workbook Set wb = ActiveWorkbook wb.Protect , True End Sub

السلام عليكم و رحمة الله إضافة لحل الاخ بن علية جرب اخي هذه الطريقة في الخلية E4 ضع المعادلة التالية : =SUM(IF(FREQUENCY(IF($A$2:$A$32=$E$3,MATCH($B$2:$B$32,$B$2:$B$32,0)),ROW($B$2:$B$32)-ROW($B$2)+1),1)) و في الخلية E5 ضع المعادلة التالية و اسحبها للأسفل : =IF(ROWS($E$5:E5)<=$E$4,INDEX($B$2:$B$32,SMALL(IF(FREQUENCY(IF($A$2:$A$32=$E$3,MATCH($B$2:$B$32,$B$2:$B$32,0)),ROW($B$2:$B$32)-ROW($B$2)+1),ROW($A$2:$A$32)-ROW($A$2)+1),ROWS($E$5:E5))),"") و المعادلتين معادلات صفيف يجب الضغط على Ctrl+Shift+Enter دمتم في حفظ الله

السلام عليكم و رحمة الله إضافة لحل الاخ بن علية جرب اخي هذه الطريقة في الخلية E4 ضع المعادلة التالية : =SUM(IF(FREQUENCY(IF($A$2:$A$32=$E$3,MATCH($B$2:$B$32,$B$2:$B$32,0)),ROW($B$2:$B$32)-ROW($B$2)+1),1)) و في الخلية E5 ضع المعادلة التالية و اسحبها للأسفل : =IF(ROWS($E$5:E5)<=$E$4,INDEX($B$2:$B$32,SMALL(IF(FREQUENCY(IF($A$2:$A$32=$E$3,MATCH($B$2:$B$32,$B$2:$B$32,0)),ROW($B$2:$B$32)-ROW($B$2)+1),ROW($A$2:$A$32)-ROW($A$2)+1),ROWS($E$5:E5))),"") و المعادلتين معادلات صفيف يجب الضغط على Ctrl+Shift+Enter دمتم في حفظ الله

السلام عليكم و رحمة الله إخوتي يمكن اختصار الكود ليصبح Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "B2" Then Exit Sub Rows("3:21").Hidden = Target.Value = "بنك" Rows("22:100").Hidden = Target.Value = "شركة" End Sub