Ali Mohamed Ali

ممكن تجرب كده تنسيق مخصص.xlsm

لقد تم الحل من قبل ترحيل المتأخرين.xlsm

جرب هذا الملف فقد صصمته لك لعله يفى بالغرض استدعاء الاسماء بدون تكرار بواسطة المعادلات.xlsm

تفضل اثراءاً للموضوع-وكود الأستاذ سليم جرب مرة أخرى فهو يعمل بكفاءة كومبوبوكس من اليوزر فورم للتنقل بين الصفحات.xlsm

من فضلك اخى محمد لا تقوم بمشاركتين بنفس السؤال حتى لا تشتت الأخوة فى مساعدتك فبالتالى ينصرفوا عنك دون تقديم اى مساعدة لك بارك الله فيك

تفضل أخى حماية الخلايا مباشرة بعد الإدخال.xlsm

جرب هذا حركة يومية 2018NNNNN.xlsm

أهلا وسهلا بك أخى محمد فى منتدانا الكريم ...جرب هذا ولكن ملفك مازال ناقص فى تصميمه فأين خلايا الوردية الأولى والثانية والثالثة ..ولكم جزيل الشكر شيت إكسل خاص بالسيارات.xlsx

تفضل أخى لقد تم التعديل من قبل أستاذنا زيزو العجوز ترحيل من صفحة الى أخرى الى صفوف معينة.xlsm

جرب كده ..لقد تم تعديل معادلة الإجمالى فى صفحة البحث طھطµط­ظٹط­ ظ…ط¹ط§ط¯ظ„ط© ط¨ط­ط« ط¨ط§ظ„ط£ط­ط±ظپ ط§ظ„ط£ظˆظ„ظ‰ ظˆط£ط³ط¦ظ„ط© ط£ط®ط±ظ‰.xlsm

جرب هذا أخى بكار تصحيح معادلة بحث بالأحرف الأولى وأسئلة أخرى.xlsm

أستاذ محمد سؤالك غير واضح هل انت تريد معادلة 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