Ali Mohamed Ali

بالتوفيق ان شاء الله ومبارك الترقية ..أعانك الله على مهامك ومسؤلياتك الجديدة

وعليكم السلام -يمكنك استخدام هذه المعادلة =IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2,$D$2:$D$200,D2,$E$2:$E$200,E2)>1,"مكرر","") Countifs.xlsx

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

جربى هذا الفيديو

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

وعليكم السلام-يمكنك وضع هذا الكود فى حدث Thisworkbook بملفك ... فقط عليك بوضع اسم جهازك بالكود مكان ("Computername") بين القوسين .. وشكرا وهذا كود بسيط لمعرفة اسم جهاز الكمبيوتر لديك .عند وضع بمديول عادى Sub know() Msgbox ENVIRON("Computername") End Sub Private Sub Workbook_Open() Dim ChkName As String ChkName = MY - PC If Environ("Computername") <> ChkName Then MsgBox "File is only available to PC: " & ChkName, _ vbCritical + vbOKOnly, "Cannot Open File" Application.DisplayAlerts = False ThisWorkbook.Close Exit Sub Else MsgBox "PC security check passed.", vbOKOnly + _ vbInformation, "File Open Succesful" End If End Sub

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

ألف مبروك استاذ عمرو وبالتوفيق والنجاح دائماً ووفقك الله

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =C$2=$G3 تنسيق 1شرطي.xlsx

السلام عليكم يمكنك استخدام هذه المعادلة لإيجاد مجموع الكميات بالعمود D بداية من الخلية D2 سحباً للأسفل =IF(COUNTIF($B$2:B2,B2)=1,SUMIF($B:$B,$B2,$C:$C),"") وهذه معادلة النسبة المئوية بالعمود E =C2/VLOOKUP(B2,$B$2:$D$2000,3,0) تجربة1.xlsx

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

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

وعليكم السلام-بسيطة وسهلة يمكنك تشغيل هذا الخيار أو إيقاف تشغيله حسب الحاجة عبر القيام بما يلي: انقر فوق ملف >‏ خيارات. في الفئة خيارات متقدمة، ضمن خياراتالتحرير، حدد خانة الاختيار تمكين مقبض التعبئة وسحب الخلية وإسقاطها أو قم بإزالتها.

لابد من تفعيل هذه الخاصية كما بالصورة .. وشكراً وبالتوفيق

ممتاز أحسنت استاذى الكريم

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

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

مبروك الأستاذ lionheart إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذا الكود Sub RmDupsU() Dim U As Range, N As Long, i As Long, wf As WorksheetFunction Dim rUP As Range Set U = Range("A:A") Set wf = Application.WorksheetFunction N = Cells(Rows.Count, "A").End(xlUp).Row For i = N To 2 Step -1 Set rUP = Range(Cells(i - 1, "A"), Cells(1, "A")) If wf.CountIf(rUP, Cells(i, "A").Value) > 0 Then Cells(i, "A").Clear Next i End Sub Duplicate Clear Contents.xlsm

وعليكم السلام -يمكنك استخدام هذه المعادلة لإيجاد عدد العمليات =COUNTIFS(C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) ولإيجاد اجمالى المبلغ ... يمكنك استخدام هذه المعادلة =SUMIFS(B:B,C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) TQ1.xlsx

وعليكم السلام-اجعل المعادلة بالعمود C هكذا =VALUE(B1&A1) TEST1.xlsx

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

وعليكم السلام-دائماً وأبداً لابد من تدعيم اى مشاركة بملف موضح فيه المطلوب بكل دقة...فيمكنك استخراج الرقم 2018 بالمعادلة التالية =LEFT(AD1,LEN(AD1)-FIND("-",AD1)) أما 2019 بالمعادلة التالية =RIGHT(AD1,LEN(AD1)-FIND("-",AD1))

الأمر بسيط جداً تفضل ... معادلة بالتأكيد ممتازرة بارك الله فيك استاذ محمد وأكرمك الله 1235.xlsx

تفضل يمكنك استخدام هذه المعادلة (Ctrl+Shift+Enter) =IFERROR(INDEX($C$3:$C$40,SMALL(IF(($C$3:$C$40<=$I$3)*($C$3:$C$40>=$I$2)*($B$3:$B$40=$K$2),MATCH(ROW($C$3:$C$40),ROW($C$3:$C$40)),""),ROW(A1)),COLUMN(A1)),"") Item Card1.xlsx