Ali Mohamed Ali

بارك الله فيك استاذ حسين وبعد اذن حضرتك ولإثراء الموضوع ,يمكنك ايضا استخدام هذا الكود فى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c4")) Is Nothing Then For Each opb In ActiveSheet.OptionButtons If opb.Caption = [C4].Value Then opb.Value = 1 opb.Interior.Color = RGB(255, 204, 153) Else If opb.Caption <> [C4].Value Then opb.Interior.Color = xlNone End If Next opb End If End Sub ربط القائمة المنسدلة مع زر الاوبشن.xlsm

أحسنت استاذ سليم -عمل ممتاز ,دائما مبدع بارك الله فيك وزادك الله من فضله ووسع الله فى رزقك

تفضل لك ما طلبت واعلم ان المعادلة ليس بها أخطاء ولكن المشكلة من عندك عند تنفيذ المعادلة .... فهذه معادلة صفيف فلابد من الضغط على Ctrol+Shift+Enter وليس Enter فقط كباقى المعادلات تكاليف عملاء1.xlsx

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

وعليكم السلام-لا يمكن هذا الا بهذه المعادلة =IF(OR(TRUNC(A60-R60,2)-TRUNC(A60-R60,1)>=0.05,TRUNC(A60-R60,-1)-TRUNC(A60-R60,0)>=0.5),TRUNC(A60-R60,0)+1,TRUNC(A60-R60,0)) abc1.xlsx

وعليكم السلام-اهلا بك بالمنتدى تفضل لك ما طلبت بارك الله فيك اخى الكريم بالنسبة لكيفية وضع التاريخ والوقت , تم عمل كود لذلك حتى لا يتغير .... كل ما عليك هو تقوم بعمل كليك يمين على اسم الصفحة VisitDetails ثم بعد ذلك تختار View Code وبعد كده تقوم بلصق هذا الكود فى النافذة التى ظهرت لك Private Sub Worksheet_Change(ByVal Target As Range) n = Now If Target.Column = 1 Then If Target = "" Then Cells(Target.Row, Target.Column + 2) = "" Exit Sub ElseIf Target <> "" Then Cells(Target.Row, Target.Column + 2) = Now End If End If End Sub أما بالنسبة للعمود الثانى B الخاص بالترقيم فتم فقط استعمال ووضع هذه المعادلة بداية من الخلية B11 والسحب للأسفل =IF(A11="","",SUBTOTAL(3,$A$11:A11)) وشكرا لك Date & Timing.xlsm

يمكنك استخدام معادلة الصفيف هذه ولابد من الضغط على ctrol+Shift+Enter =IFERROR(INDEX($B:$B,SMALL(IF($A:$A=$K$5,ROW(A$3:A$5000)-ROW(A$3)+1),ROWS($L$5:L5))),"") البحث لاكثر من شرط1.xlsx

وعليكم السلام-تفضل 2021 IN المشتريات.xlsx

أحسنت استاذ منير بارك الله فيك

وعليكم السلام-فقط يمكنك استخدام هذا الكود بحدث الصفحة وكلمة السر عند الحاجة هى 123 Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("C6:G8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub اقتراح موعد لاجتماع شرح التقرير الشهري1.xlsm

تفضل هذا هو المطلوب بالفعل-جرب بنفسك الكمبوبوكس1.xlsm

وعليكم السلام-تفضل دالة dcountA شرح الدالة DCOUNT

بارك الله فيك استاذ محمد وجزاك الله كل خير مبارك الترقية أستاذ moneer saad ان شاء الله مستحقة وعن جدارة

وعليكم السلام-اهلا بك فى المنتدى , فقط بهذه المعادلة =IFERROR(VLOOKUP($A2,Sheet1!$A$2:$B$900,2,0),"") معادلة جلب اسم المحافظة.xlsx

السلام عليكم-يمكنك استخدام هذه المعادلة =SUBTOTAL(9,$J$2:$J$63) المعادلة بسيطة جدا كما ترى غير محتاجة الى شرح فقط عليك بعد كتابة = تكتب اسم المعادلة Subtotal ثم بعد ذلك تقوم بفتح قوس , وبما انك تريد اجمالى فعليك بعد فتح القوس كتابة رقم 9 ثم علامة الكومة المناسبة لجهازك سواء عادية او منقوطة , ; ثم بعد ذلك كتابة النطاق او العمود الذى تريد الإجمالى منه وفى حالتك هو $J$2:$J$63 ثم بعد ذلك تقوم بغلق القوس , وبارك الله فيك Subtotal.xlsx

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

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

وعليكم السلام - تفضل الم تطلع على الملف تم تنفيذ المطلوب بهذا الكود Sub arrange() Sheet1.Activate Columns("A:A").Select Selection.Copy Sheet2.Activate Columns("b:b").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub ترتيب بيانات الصفوف حسب القائمة الأساسية.xlsm

يمكنك استخدام الكود هكذا فى حدث ThisWorkBook Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 5 Then MsgBox "Used for 5 times , no more use is allowed !!" Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 Application.ActiveWorkbook.Save If Date >= DateValue("26/6/2021") Or Sheets("Sheet1").Range("S1") >= Date Then Sheets("Sheet1").Range("S1") = Date MsgBox " expire انتهت صلاحية الملف " ThisWorkbook.Save Application.Quit End If End Sub

فقط عليك استخدام هذه المعادلة =MIN(A2:B2) تواريخ1.xlsx

وعليكم السلام -تفضل حافز 2العملاء.xlsx

الأمر بسيط جدا فقط عليك اضافة أخرى End If

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

وعليكم السلام -وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة فيتغير سهم القائمة المنسدلة من اليسار الى اليمين ... عندما تقوم بتغيير اتجاة الكتابة بالصفحة من اليسار الى اليمين اى عكس الموضح بالصورة التى قمت انت برفعها

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