Ali Mohamed Ali

دائماً مبدع أستاذنا الكبير ياسر , تبارك الله مجهود رائع جعله الله فى ميزان حسناتك وأكرمك الله وموضوع مهم للجميع جزاك الله خير الثواب

تفضل هذا الملف .على الرغم ان كان عليك من البداية رفع ملف بالمشاركة فلا تعنى أى مشاركة شيء بدون ملف يدعمها Colored.xlsb

وعليكم السلام-تفضل هذا الكود Sub ColorPaletteDialogBox() Dim lcolor As Long If Application.Dialogs(xlDialogEditColor).Show(10, 0, 125, 125) = True Then 'user pressed OK lcolor = ActiveWorkbook.Colors(10) ActiveCell.Interior.Color = lcolor Else 'user pressed Cancel End If End Sub

السلام عليكم بها نبدأ أى مشاركة -بما انك لم تقم برفع ملف -فيمكنك استخدام هذا الكود لطلبك: Sub ColorCompanyDuplicates() Dim xRg As Range Dim xTxt As String Dim xCell As Range Dim xChar As String Dim xCellPre As Range Dim xCIndex As Long Dim xCol As Collection Dim i As Long On Error Resume Next If ActiveWindow.RangeSelection.Count > 1 Then xTxt = ActiveWindow.RangeSelection.AddressLocal Else xTxt = ActiveSheet.UsedRange.AddressLocal End If Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8) If xRg Is Nothing Then Exit Sub xCIndex = 2 Set xCol = New Collection For Each xCell In xRg On Error Resume Next If xCell.Value <> "" Then xCol.Add xCell, xCell.Text If Err.Number = 457 Then xCIndex = xCIndex + 1 Set xCellPre = xCol(xCell.Text) If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex ElseIf Err.Number = 9 Then MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel" Exit Sub End If On Error GoTo 0 End If Next End Sub

بارك الله فيك وزادك الله من فضله -جمعة مباركة ان شاء الله

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

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

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

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

البقاء لله وان لله وان اليه راحعون اللهم اسكنه فسيج جناتك واغفر له وارحمه ةالهم اللهم اهله الصبر والسلوان على هذه المصيبة واجعله يا الله من أرباب جنات الفردوس الأعلى واحشره مع الصديقين والمرسلين والشهداء وحسن أولئك رفيقاً

السلام عليكم -يمكنك ذلك بإستخدام هذه المعادلة داخل Data Validation =YEAR($C2)<=2000 عدم قبول ادخال تاريخ قبل سنة معينة.xlsx

وعليكم السلام -يمكنك استخدام هذه المعادلة =IFERROR(INDEX(ورقة1!B2:B270,MATCH(0,COUNTIF($A$1:A1,ورقة1!B2:B270),0)),"") تلخيص1.xlsx

2,1/ هذا جزء أساسى بالمعادلة لإستخراج أخر عملية ولا تصلح المعادلة بدون هذه الجزئية وهذا الكود لطلبك الأخر ورجاءاً لابد من غلق المشاركة فلا يمكن ان يكون هناك أكثر من طلب بالمشاركة الواحدة ..فإنت أردت طلبات أخرى لابد من عمل مشاركة جديدة بالطلبات الجديدة ولكم جزيل الشكر Sub RowDeleter() On Error Resume Next Application.ScreenUpdating = False Range("E1:E" & Range("E" & Rows.Count).End(3)(1).Row).AutoFilter 1, 0 Range("E4:E" & Range("E" & Rows.Count).End(3)(1).Row).SpecialCells(12).EntireRow.Delete ActiveSheet.AutoFilterMode = False Application.ScreenUpdating = True End Sub Aziz3.xlsb

وعليكم السلام-ياريت تقوم بتغيير عنوان المشاركة ليصبح ( معادلة IF متعددة الشروط) وهذه المعادلة تفى بالغرض وشكراً =IF(AND($C4<>"غ",$B4="ذكر"),"ناجح",IF(AND($C4<>"غ",$B4="أنثي"),"ناجحة",IF(AND($C4="غ",$B4="ذكر"),"ناجح بحكم القانون",IF(AND($C4="غ",$B4="أنثي"),"ناجحة بحكم القانون","")))) معادلة IF.xlsx

تفضل لك ما طلبت ان يكون التقرير بصفحة منفصلة .. لكن لما كل هذا التأخير عند الرد ؟!!! افرض كنت مشغول !!!! وأعتقد ان المعادلة سهلة ولا تحتاج شرح =LOOKUP(2,1/(ورقة1!$A$3:$A$440=$B4),ورقة1!$D$3:$D$440) فالجزء الأول من المعادلة ورقة1!$A$3:$A$440=$B4 يقصد به العمود A الموجود بصفحة ورقة1 والذى يخص أسماء أولياء الأمور ثم =الخلية B4 ,والتى بها اسم ولى الأمر الموجود بصفحة التقرير المراد البحث به ثم بعد ذلك النطاق ورقة1!$D$3:$D$440 وهذا هو النطاق الموجود به نتائج البحث وهو عمود رقم السند الموجود بصفحة ورقة1 ..ومعادلة تاريخ السند مثل رقم السند بالضبط مع اختلاف عمود النتيجة بدلاً من العمود D سيكون العمود E ولكم جزيل الشكر أتمنى ان يكون الأمر سهل لك Aziz2.xlsx

وعليكم السلام -تفضل لك ما طلبت .. وكان لابد من رفع الملف بدون ضغط , طالما حجم الملف صغير وذلك تجنباً لإهدار الوقت وشكراً Aziz1.xlsx

وعليكم السلام-تفضل هذه المعادلة تخص اللون الأخضر =COUNTIFS($G$5:$G$700,">=9",$G$5:$G$700,"<=10") أما اللون الأحمر فيكفيك هذه المعادلة ...وشكراً =COUNTIF($G$5:$G$700,"<=4") فرق بين تاريخين.xlsx

تفضل هذا بمعادلة مصفوفة (Ctrl+Shift+Enter) Report Between Two Dates.xlsb

وعليكم السلام لا يمكن فتح أى ملف اكسيل يحتوى على أكواد VBA على الموبيل وشكراً !

وعليكم السلام .. لابد ان يكون هناك ملف اكسيل بأى مشاركة لتدعيمها وتوضيح المطلوب بكل دقة وذلك تجنباً لإهدار الوقت !! ولكن عليك بوضع هذا الكود بحدث ThisworkBook حتى يتم تنفيذ طلبك Private Sub Workbook_Open() Worksheets("Main").Activate Range("D5").Select End Sub وهناك كود أخر بالملف المرفوع لك للإنتقال الى خلية معينة من الصفحة الأخرى وسيكون ذلك بمديول عادى Example.xlsm

وعليكم السلام-لابد ان تكون المعادلة هكذا =IF(AND(H7="الرابع",G7="نصف العام"),L7,IF(AND(H7="الخامس",G7="نصف العام"),L9)) ss.xlsx

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

بارك الله فيك أستاذ ضاحى وبالتوفيق دائماً

ممتاز طبعاً الى الأمام دائماً أستاذ ضاحى وفقكم الله .مجهود ممتاز

نعم أستاذى الكريم ولكن ان لابد ان تسبقها علامة لا تساوى داخل علامة التنصيص "<>"