Ali Mohamed Ali

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

أخى العزيز مرحبا بك فى منتدانا الكريم من الأفضل ان ترسل ملف بالبيانات التى تريدها وما تريد عمله حتى يتسنى للإخوة الكرام مساعدتك ولكنى أرسلت ملف لك من عندى لعله المطلوب-تفضل هذا وكلمة السر: 123456 Stores.xlsm

وعليكم السلام ..تفضل أخى هذا بالمعادلات tarheel.xlsm

وعليكم السلام أخى من الأفضل ارسال الملف نفسه وليس صورة بارك الله فيك

على حد علمى ممكن بس مش هيبقى منطقى أن تقوم بتصميم 100 زر مثلا بالتالى كبرت حجم الفورم وهيكون من الصعب التعامل معه

هل تقصد هكذا مشكلة العد بدون تكرار باستخدام الدالة COUNTIFS.xlsx

بعد اذن أستاذنا الكريم محمد هل تقصد كهذا Data-ترحيل بيانات لملف الارشيف-من ملفين منفصلين.rar

جرب هذا طباعة.xlsm

وهذا شرح بسيط للكود-وأعذرنى فأنا لا أجيد الشرح أتمن أن يكون واضح Private Sub Worksheet_Change(ByVal Target As Range) Dim cont%, lr If Target.Column = 3 Then العمود الثالث هو المقياس lr = Sheets(1).Range("c" & Rows.Count).End(xlUp).Rows.Value يأخذ من العمود C اسم الشيت حتى أخر صف وخلية بها بيانات cont = Application.CountIf(Range("c:c"), Target) جعل كل ما يكتب فى العمود C مقياس لأسماء الشيتات الجديدة التى تقوم بانشائها If cont > 1 Or IsEmpty(Target) Then GoTo Exit_Me Sheets("101").Copy after:=Sheets(Sheets.Count) جعل الكود يأخذ نسخة من صفحة 101 وينسخها فى كل صفحة شيت جديد Sheets(Sheets.Count).Name = lr Sheets(Sheets.Count).[F4].Value = lr تتغير الخلية F4 تلقائيا مع اسم الشيت الجديد End If Exit_Me: End Sub

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

تفضل أخى STORE-ITEM salim (3)2.xlsm

بعد اذن استاذى سليم هل هذا هو ما تقصده؟ بمجرد كتابة الرقم فى العمود c من صفحة Index سوف يقوم بفتح صفحة جديدة بالرقم الذى كتبته بارك الله فيك وجزاك الله خيرا STORE-ITEM salim (3)2.xlsm

جزاك الله كل خير اخى الكريم الأستاذ محمد هذا فيديو بالشرح : وعليكم السلام اخى سليم دائما نصيحتك أستفاد منها كثيرا -جزاك الله كل خير وهذا ما كان ينقص هذا الكود دائما تكمل لنا النقصان بارك الله فيك وجعله دائما فى ميزان حسناتك وادخلك فسيح جناته

السلام عليكم أهل المنتدى الكرام أقدم لكم اليوم ملف به كود يقوم بفتح صفحات جديدة بمجرد كتابة اسم الشيت فى العمود C من صفحة Main تقبلوا منى بارك الله فيكم وجزيتم خيرا اكسل vba فتح شيت جديد بمجرد ادخال الاسم فى الخلية.xlsm

اهلا وسهلا بك فو منتدانا الكريم من الأفضل ان ترسل ملف أولا وتشرح فيه ما تريد بارك الله فيك

أهلا ومرحبا بك اخى الكريم فى منتدانا الكبير من الأفضل أن ترسل ملف وتشرح فيه ما تريد ممكن تتبع هذا الفيديو فهو لحذف جميع محتويات الخلايا ماعدا المعادلات ,الإبقاء عليها وهذا ملف أخر به كود يقوم بمسح محتويات صف بشرط كتابة رقم الإذن مثلا فى الخلية A1 فى صفحة Sheet 1 ثم الضغط على ابحث وامسح وأيضا اتبع هذا الموقع http://et3lmonline.com/2010/08/delete-and-clear-tools-ms-excel/ وهذا كود اخر Private Sub Workbook_Open() If Date >= CDate("15/05/2014") Then Application.ScreenUpdating = False Sheet1.Range("B1:I2880").ClearContents With Sheet2.Range("C8:AA40") .Value = .Value End With Me.Save Application.ScreenUpdating = True End If End Sub وهذا أخر Sub sbClearCellsOnlyData() Range("A1:C10").ClearContents End Sub وهذا كود أخير Sub sbClearEntireSheet() Sheets("SheetName").Cells.Clear End Sub بارك الله فيك وجزيت خيرا كود حذف محتويات صف بشرط.xls

جرب ذلك قيمة الكابينة.xlsm

وعليكم السلام أخى ..تفضل المعادلة -وشيت به تطبيق المعادلة =IF(ISBLANK(B2),"",SUBTOTAL(3,B$2:B2)) تسلسل الصفوف وتجاهل الصفوف المختفية في التسلسل.xlsx

وممكن تجرب هذا بالمعادلات مقارنة بيانات.xlsm

اليك ملفان جربهما واختر منهم المناسب لك STOCK 2018 - Copy.xlsm STOCK 2018.xlsm

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

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

ممكن تجرب هذا مرحلة إدخال البيانات.xlsm

جرب هذا هو من اعمال أسناذنا الكبير محمد الدسوقى له منا كل الحب والإحترام فورم بحث.xlsm

تفضل أخى فورم بحث.xlsm