مختار حسين محمود

كل المعادلات تنزل فى الخلايا بالكود الحل في حجم ورقة الفاتورة 6.rar

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

السلام عليكم ورحمة الله وبركاته أخى الحبيب الغالى زيزو البسكرى أنا بخير والحمد لله يعلم الله أنك وحشتنى بجد من عدة أيام أنا منتظر ظهورك كيفك ؟ وكيف حالك ؟ لعلك بخير لك منى كل تحية وتقدير أما أنت يا أبو العربى وحشتنى شقاوتك يا غلباوى عامل ايه كل سنة وأنت طيب . أستاذى الغالى ياسر خليل أشكر لك مرورك ولا حرمنا منك ولا من مرورك الغالى الغالى جدا على قلبى أخى أبو أدهم أشكرك على مرورك الرقيق الطيب كل سنة وأنت طيب مع خالص التقدير والاحترام أخى الزيارى أشكرك على مرورك الرقيق الطيب كل سنة وأنت طيب مع خالص التقدير والاحترام أخوتى الأفاضل لو السهم مش مظبوط يبقى الصورة تحركت من مكانها والحل : 1 - اما ترجع الصورة مكانها زى ما قال أبو العربى 2- تظبط احداثيات المنطقة بالزيادة أو النقصان مع خالص تحياتى للجميع

السلام عليكم و رحمة الله وبركاته شاهدت فى بعض المنتديات الاجنبية خرائط جغرافية لدول مصممة على الاكسل فقررت أعمل واحدة لمصر . فى المرفق قف على اسم المنطقة فى الخلية وانظر للخريطة . يا رب يكون مفيد تحياتى Egypt_map Mokhtar.rar

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

روعة تسلم أستاذ سليم

أستاذ محمد أولا : نشكرك على الموضوع القيم ثانيا : أتمنى أن تطل علينا كل فترة كده بموضوع جديد تحياتى

أشكرك أخى ياسر بالفعل أخى بعد كتابة الكود تذكر ت ماذا لو كان هناك خلايا ملونة بالفعل وظللت أفكر فى طريقة لارجاع اللون الاساسى للخلية قبل التحديد الى أن وجدت مشاركتك السابقة و أشكرك مرة تانية على الرابط المرفق تطبيق لكودك مع خالص تحياتى Highlight ActiveCell Only Using C. F.rar

أهلا بك يا أيها العضو الجديد ضع الكود فى حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Cells.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 7 Application.ScreenUpdating = True End Sub الرقم 0 يدل على عدم تلوين خلايا الشيت الرقم 7 يدل على لون الخلية المحددة يمكنك تغيره تحياتى

أخى محمد التنسيق أمر سهل جدا الحل في حجم ورقة الفاتورة 4.rar

الحل في حجم ورقة الفاتورة 3.rar

الحمد لله هل عودة الفاتورة الى الوضع ال 60 صنف يتم بعد حذف الكود و اسم و الصنف و الكمية و الوحدة و السعر أم الأصناف فقط أم ماذا ؟ بانتظار الرد أعتذر الآن لأنى ذاهب الى صلاة العشاء بعدها مشوار ضرورى و أوافيك قريبا .

جرب كده الملف ده عند كتابة الصنف 60 يتم ادراج سطر فارغ تحته وعند الكتابة الصنف 61 يتم ادراج سطر فارغ جديد وهكذا الى ما لا نهاية دلوقتى لما تحذف أى صنف من الأصناف الأكبر من 60 يتم حذف الصف الحل في حجم ورقة الفاتورة 2.rar

وعليكم السلام ورحمة الله وبركاته أخى الكريم محمد عبدالسلام أشكرك على دعائك الطيب ولك بالمثل ان شاء الله أخى على حيدر أهلا بك بين اخوانك بالمنتدى وجزيت خيرا على اسهاماتك أخى محمد : اطلع الحل المقدم من أخيك على ان كان ما تريد فبها ونعمت وإلا سنحاول معا فهم ما تريد مثلا كتبت 60 صنف فى الفاتورة و أنت الان تريد اضافة سطر فارغ جديد لكتابة الصنف 61 تريد عند كتابة الصنف ال60 يتم اضافة سطر فارغ لكتابة الصنف 61 وعند كتابة الصنف 61 تريد اضافة سطر آخر لكتابة الصنف 62 وهكذا ولما تمسح الاصناف كلها تحذف الاسطر الفارغة المضافة مهما كان العدد لتبقى عدد الأصناف التى تستوعبها الفاتورة 60 صنف هل هذا ما تريد ؟

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

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

جرب الكود التالى Sub Export_del() Dim CL As Range, i As Integer With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With For i = 2 To 3 For Each CL In Range("N11:N" & [N15000].End(xlUp).Row) If CL.Value = Sheets(i).Name Then CL.Offset(0, -11).Resize(1, 12).Copy Sheets(i).Range("C" & Sheets(i).[C15000].End(xlUp).Row + 1) CL.Offset(0, -11).Resize(1, 3).ClearContents CL.Offset(0, -3).Resize(1, 8).ClearContents End If Next Next With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True End With End Sub

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

نمودج من اصناف Molhtar 3.rar

ربنا يبارك فيك أخى عبدالعزيز تحياتى لمنع تحريك الخلية الاولى من مكانها ضع السطر ده Fr = ActiveSheet.Range("B8").Offset(1).Row ' أول صف به بيانات +1 مكان السطر Fr = ActiveSheet.Range("B8").Row ' أول صف به بيانات

Option Explicit Sub Mokhtar_Inserting_blank_row_after_every_row_with_data() Dim R As Long, Fr As Long, Lr As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With Fr = ActiveSheet.Range("B8").Row ' أول صف به بيانات Lr = ActiveSheet.Range("B8").End(xlDown).Row ' آخر صف به بيانات For R = Lr To Fr Step -1 If Application.WorksheetFunction.CountA(Rows(R)) > 0 Then ' شرط اضافة الصف الفارغ : أن يكون الصف به بيانات Rows(R).Insert shift:=xlDown Else End If Next R With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True End With End Sub ضع الكود فى مديول عادى

جرب الملف ده وأبدِ ملاحظاتك حماية خلية محددة 3.rar

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

أخى الكريم قلم الاكسل مشكور كتير على الشرح الطويل لكن مخدتش بالك من فى المرفق التالى فى حدث الشيت كود لمنع تمرير أى تغيير فى الخلايا المحددة فى الكود بعمل تراجع الى القيمة الأصلية 2حماية خلية محددة.rar

أستاذ عمر السلام عليكم كود بل هديه رائعة من أستاذ أروع كم أحب مثل هذه الأكواد ؟! تحياتى