Ali Mohamed Ali

تفضل تم تعديل الأكواد بناءا على تعليمات وتوجيهات الأستاذ ابراهيم برنامج الصادر والوارد تصميم 2020.xls

كان عليك لزاما استخدام خاصية البحث فى المنتدى فبه العديد من الموضوعات التى تحول المعادلات الى اكواد ومنها : تحويل معادلة الى كود

تفضل وذلك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 'Define your variables. Dim ws As Worksheet, EvalRange As Range 'Set the range where you want to prevent duplicate entries. Set EvalRange = Range("A1:a10000") 'If the cell where value was entered is not in the defined range, if the value pasted is larger than a single cell, 'or if no value was entered in the cell, then exit the macro. If Intersect(Target, EvalRange) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub If IsEmpty(Target) Then Exit Sub 'If the value entered already exists in the defined range on the current worksheet, throw an 'error message and undo the entry. If WorksheetFunction.CountIf(EvalRange, Target.Value) > 1 Then MsgBox Target.Value & " already exists on this sheet." Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If 'Check the other worksheets in the workbook. For Each ws In Worksheets With ws If .Name <> Target.Parent.Name Then 'If the value entered already exists in the defined range on the current worksheet, throw an 'error message and undo the entry. If WorksheetFunction.CountIf(Sheets(.Name).Range("A1:a10000"), Target.Value) > 0 Then MsgBox Target.Value & " already exists on the sheet named " & .Name & ".", _ 16, "No duplicates allowed in " & EvalRange.Address(0, 0) & "." Application.EnableEvents = False Application.Undo Application.EnableEvents = True Exit For End If End If End With Next ws End Sub عدم تكرار المدخلات - 1.xlsm

تم التعديل على الملف السابق كما تريد بالضبط .... وهذا حل اخر ان اردت يمكنك ذلك من خلال قائمة Data ثم تختار Subtotal إدراج صف تلقائى - 1.xlsm

تفضل يمكنك وضع استخدام هذا الكود بحدث الصفحة , بحيث يقوم بإدراج صف فارغ بمجرد إدخال تاريخ مختلف Private Sub Worksheet_Change(ByVal Target As Range) Dim L& If Target.Address = Cells(Rows.Count, 5).End(xlUp).Address Then If IsDate(Target) And IsDate(Target(0)) Then If Target.Value2 <> Target(0).Value2 Then Application.EnableEvents = False Application.ScreenUpdating = False Target.EntireRow.Insert If IsEmpty(Target(-2)) Then L = Target(-1).Row Else L = Application.Max(6, Target(-1).End(xlUp).Row) With Target(0).EntireRow .Interior.ColorIndex = 4 .Interior.Pattern = xlSolid .Columns("B:C").Formula = "=SUM(B" & L & ":B" & Target(-1).Row & ")" .Cells(4).Value2 = "إجمالى اليوم " End With Application.ScreenUpdating = True Application.EnableEvents = True End If End If End If End Sub إدراج صف تلقائى - 1.xlsm

وعليكم السلام-فقط عليك استخدام هذه المعادلة =IF($E3=$F$2:$AK$2,$D3,"") توجيه المبلغ1.xlsx

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

تفضل 2021 IN المشتريات.xlsx

بارك الله فيك وبالتوفيق ان شاء الله وفى انتظار الإصدار الجديد

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

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

وعليكم السلام-تفضل لك ما طلبت Classeur4.xlsx

وعليكم السلام-تفضل New Microsoft Excel Worksheet1.xlsx

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

بارك الله فيك وزادك الله من فضله

تفضل -جرب هذا الملف Add.xls

وعليكم السلام -تفضل ربط الميزان ببرنامج الكاشير طريقة شرح وبرمجة الميزان الباركود الماستر lp 16 وتوصيله على جهاز الكمبيوتر

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

وعليكم السلام-اهلا بك بالمنتدى , كان عليك استخدام خاصية البحث بالمنتدى-تفضل ملف لاحتساب تكاليف وتسعير طلبية بضاعة مستوردة وهذه ملفات وبرامج أخرى Auto Expense Report.xls Purchases.xls اكسل محاسب الاستيراد.rar

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

وعليكم السلام-اهلا بك بالمنتدى -تفضل فقط بهذه المعادلة =IF(A2="","",A2+(((((D2/30)/12+(C2/12)+B2)))*354)) او جرب هذا الرابط https://www.officena.net/ib/topic/50355-اضافة-اشهر-الى-التاريخ-الهجري/page/2/ 103.xls

تفضل لك اكثر مما طلبت نظاما - 1.xlsm

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

اهلا بك بالمنتدى عليك فقط بالضغط على أيقونة إظهار الفورم أنا أعمل على اكسيل 2010 ولكن عليك بعمل ما تريد من زر او ايقونة وعليك بربطها بهذا الكود وذلك من خلال فتح مديول جديد ولصق هذا الكود به Sub Show() Application.Visible = False UserForm1.Show End Sub 1رصد.xlsm

تفضل استاذ خليل فللتعلم لابد من مشاهدة فيديوهات كثيرة على اليوتيوب خاصة بالماكرو وهذه الموضوعات اصل التقارير والاسماء عدد الاوجه2.xlsm اصل التقارير والاسماء عدد الآيات.xlsm