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

كل المعادلات تنزل فى الخلايا بالكود

الحل في حجم ورقة الفاتورة 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

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

أخى الكريم قلم الاكسل  مشكور كتير على الشرح الطويل

لكن مخدتش بالك من

1 ساعه مضت, احمد بن ابراهيم said:

دون عمل حماية للورقة 

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

2حماية خلية محددة.rar

أستاذ عمر السلام عليكم

كود بل هديه رائعة من أستاذ أروع

كم أحب مثل هذه الأكواد ؟!   تحياتى