Ali Mohamed Ali

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

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

بارك الله فيك وجزاك الله كل خير

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

بارك الله فيك

بارك الله فيك

تفضل فتح الفورم بي زر الأوامر متحرك.xlsm

يمكنك الإستعانة بهذا الرابك فقدتجد ما تريد ان شاء الله https://www.officena.net/ib/topic/90052-بحث-بالفورم-فى-الكود-والاسم-وتعديل-البيانات/

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

أحسنت أستاذ مجدى موضوعات مميزة دائما

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

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

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

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

تم التعديل على المديول رقم 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

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

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