Ali Mohamed Ali

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

اهلا بك اخى الكريم بالمنتدى المشكلة لديك انت فعليك بتحديث برنامج فك الضغط لديك Winrar فتفضل البرنامج بدون ضغط مستحقات نهاية الخدمة.xlsm

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

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

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

وعليكم السلام -منور المنتدى يمكنك استخدام هذا الكود Sub salesvalues() Dim chtChart As Chart 'Create a new chart. Set chtChart = Charts.Add Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí") With chtChart '.Name = "" .ChartType = xlColumnClustered 'Link to the source data range. .SetSourceData Source:=Sheets("ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí").Range("C4:N8"), _ PlotBy:=xlRows .HasTitle = True .ChartTitle.Text = "Sales by Customer" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Customer" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Total Sales" End With End Sub وفى هذا الرابط سوف ترى شرح أخر https://www.computerna.com/excel-chart/

بارك الله فيك

تفضل ولكن عليك الا تقوم بضغط الملف طالما ان مساحته صغيرة Indirect.xlsx

تفضل لك ما طلبت Indirect.xlsx

وعليكم السلام كان عليك استخدام خاصية البحث في المنتدى فهناك مشاركات تناولت هذا الموضوع منها : https://www.officena.net/ib/topic/42354-ضبط-الكود-تحديد-تاريخ-قفل-ملف-وانتهاء-صلاحية-فتحه/ https://www.officena.net/ib/topic/45608-كيف-أجعل-برنامج-الاكسيل-يتوقف-بعد-زمن-معين/ وهذان رابطان اخران من خارج المنتدى http://xlsmilev.blogspot.com/2017/11/blog-post_27.html http://yasserkhalilexcellover.blogspot.com/2016/04/workbook-expired-after-three-times.html

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

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

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

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

بارك الله فيك

بارك الله فيك

تفضل فتح الفورم بي زر الأوامر متحرك.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