Ali Mohamed Ali

وعليكم السلام احسنت استاذى الكريم عمل رائع جعله الله في ميزان حسناتك وزادك الله من فضله

بارك الله فيك استاذ مجدى وزادك الله من فضله

بارك الله فيك استاذ ابراهيم عمل رائع وزادك الله من فضله

احسنت استاذ ياسر بارك الله فيك عمل رائع

تم التعديل على المديول رقم 2 ليصبح بهذا الشكل Sub Macro1() Dim Arr With Sheets("Sheet1") Arr = Array(.Range("g2"), .Range("C1"), .Range("E1"), .Range("E3"), .Range("C3"), .Range("H21"), .Range("H22"), .Range("H23")) End With With Sheets("íæãíå ÇáãÈíÚÇÊ") .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "Done...", 64 Range("C6").Select ActiveWindow.SmallScroll Down:=-3 Range("g2").Select Sheets("Sheet1").Select Sheets("Sheet1").Copy After:=Sheets(1) Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = "Sheet1 (2)" Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = Range("g2").Value Range("B11").Select ActiveWindow.SmallScroll Down:=-3 Sheets("Sheet1").Select ActiveWindow.SmallScroll Down:=0 Range("c5:f20").Select Selection.ClearContents Range("C3").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-18 Range("g2").Select Selection.Copy Range("I9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub كما انه تم عمل باقى الطلبات ومن ضمنها -تم انجاز كشف حساب العميل بمعادلات المصفوفة وهذا هو الملف بعد التعديل gedyana.xlsm

بارك الله فيك

اهلا بك اخى الكريم تفضل يمكنك مشاهدة الصورة

تفضل InOutData0000000.xlsx

أحسنت أستاذ سليم عمل ممتاز بارك الله فيك

ابداع أستاذ مجدى بارك الله فيك وجعله في ميزان حسناتك بس ياريت الملف

تفضل اخى الكريم InOutData.xls

اعتذر من حضرتك أستاذ محمد لضيق الوقت فقد تم عمل الطلب الأول تفضل gedyana.xlsm

جرب ظبط اللغة العربية كما بهذا الرابط في الصور https://www.officena.net/ib/topic/87988-اللغه-العربيه-في-الاكسيل-2010-لا-تظهر-بشكل-صحيح/?tab=comments#comment-555822

أحسنت أستاذ سليم عمل ممتاز جعله الله في ميزان حسناتك

بارك الله فيك ولك بمثل ما دعوت لى وزيادة-والحمد لله الذى بنعمته تتم الصالحات

فقط هي دالة VLOOKUP =IFERROR(VLOOKUP($N$1,ورقة2!$A$2:$J$500,2,0),"") اول جزء بالمعادلة وهى الخلية $N$1 وهى الخلية الموجود بها رقم المسلسل الذى سيتم بناءا عليه جلب البيانات ويتم تثبيته في كل البيانات حتى لا يتغير وذلك بتحديد الخلية ثم الضغط على f4 فيتم وضع الخلية بين علامات الدولار كما ترى واما باقى المعادلة وهى نطاق البيانات الموجودة بالجدول في الصفحة الأخرى ويبدأ النطاق كما ترى من الخلية A2 وينتهى عند الخلية J وتم وضع العدد 500 بحيث لو قمت بزيادة البيانات مستقبلاً اما الرقم الموجود بالمعادلة بعد هذا النطاق فيشير دائما الى ترتيب البيانات المطلوبة بداية من رقم المسلسل ثم بعد ذلك وضع الصفر كما انه تم وضع دالة معرفة تسمى SplitNames وذلك لفصل الأسماء من الإسم بالكامل كما ترى بالنموذج بارك الله فيك

تفضل لك ما طلبت نموذج بيانات.xlsm

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

تفضل اخى الكريم موظفين.xlsm

وعليكم السلام أستاذ خالد يمكنك ذلك بدون اى برامج من خلال هذه الروابط والشرح https://www.youm7.com/story/2014/11/18/بالخطوات-اغلق-جهاز-الكمبيوتر-فى-الوقت-الذى-ترغب-فيه-دون/1955803 http://www.computer-wd.com/2018/11/auto-shutdown-windows-10.html http://www.doniacomputer.com/2016/10/blog-post_19.html https://www.wikikeef.com/shutdown-pc-automatically/ https://sigma4pc.com/11639/sigma-auto-shutdown https://wingiz.com/c/100024583 وهذا كمان فيديو للشرح https://www.youtube.com/watch?v=IY0xla7b9jE

تفضل طباعة.xlsm

تفضل اخى الكريم المطلوب ان شاء الله كرت دوام 2نهائى.xls

تفضل اخى الكريم كرت دوام نهائي.xls

أحسنت استاذ سليم بارك الله فيك عمل رائع

وعليكم السلام اخى أبو يحيى -اهلا بك في المنتدى عليك برفع مشاركتك بقسم الأكسيس فانت هنا في قسم الإكسيل بارك الله فيك