حسونة حسين

لا تكرر الكود لكن ضيف عليه الاعمده Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim X As Range For Each X In Target If X.Column = 2 Or X.Column = 4 Or X.Column = 18 Or X.Column = 20 Then If X.Row > 7 Then If X.Value = "" Then X.Offset(0, 1) = "" Else On Error Resume Next X.Offset(0, 1) = "" X.Offset(0, 1) = Now X.Offset(0, 1).NumberFormat = "dd-mm-yyyy HH:mm" End If End If End If Next Application.EnableEvents = True End Sub

يتم وضعه في حدث الورقه المسمار الوصل تضغط عليها كليك يمين ثم view code ثم تنسخ الكود وتضعه بها

فقط أضف رقم ١ للكود الموجود في تيكست بوكس ٦ لان المعادله المكتوبه تطرح الايام بين التاريخين ولكن الموظف غائب 9 ايام وليس ٨ 7,8,9,10,11,12,13,14,15 ليصبح الكود هكذا TextBox6 = Val(TextBox5) - Val(TextBox4) + 1

وعليكم السلام ورحمه الله وبركاته اضف هذا السطر Dim X: X = Application.Match(ComboBox1.Value, .Range("b1:b" & lr), 0): If Not IsError(X) Then lr = X قبل هذا السطر .Cells(lr, 2) = ComboBox1.Value ليصبح هكذا lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1 Dim X: X = Application.Match(ComboBox1.Value, .Range("b1:b" & lr), 0): If Not IsError(X) Then lr = X .Cells(lr, 2) = ComboBox1.Value

وعليكم السلام ورحمه الله وبركاته تفضل Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim X If (Target.Column = 5 And Target.Row > 11) Then X = Application.Match(Target.Offset(0, -2), Sheet2.Range("C1:C" & Sheet2.Cells(Rows.Count, "C").End(xlUp).Row), 0) If Target.Value > Sheet2.Range("K" & X) Then MsgBox "noooooooooooooooo" Target.Value = "" Else Sheet2.Cells(X, 9).Formula = "=" & Sheet2.Range("I" & X) & "+" & Target.Value End If End If Application.EnableEvents = True End Sub

وعليكم السلام ورحمه الله وبركاته يمكنك ذلك بوضع زر امر علي اليوزرفورم ووضع هذا الكود به Private Sub CommandButton1_Click() If (TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "") Then TextBox4 = TextBox1 * TextBox2 * TextBox3 Else TextBox4 = "" End If End Sub

وعليكم السلام ورحمة الله وبركاته الكود موجود في موديل ١ انقله الي حدث الشيت سوف يعمل طبيعي عند أي تغيير للبيانات

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

وعليكم السلام ورحمة الله وبركاته اخى هذا كود بسيط ليسهل عليك تعديله Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim X As Range For Each X In Target If X.Column = 2 Or X.Column = 4 Then ' العمود رقم 2 والعامود رقم 4 If X.Row > 7 Then 'رقم الصف اكبر من 7 If X.Value = "" Then X.Offset(0, 1) = "" Else On Error Resume Next X.Offset(0, 1) = "" X.Offset(0, 1) = Now X.Offset(0, 1).NumberFormat = "dd-mm-yyyy HH:mm" End If End If End If Next Application.EnableEvents = True End Sub

وعليكم السلام ورحمة الله وبركاته يمكنك رفع ملف وشرح ما هو مطلوب وصورة لشكل النتائج المطلوبه

وعليكم السلام ورحمة الله وبركاته اخى @محمد حمدي الكود يعمل جيدا عندي على الملف في المشاركه الأولى ولكنك أضفت اعمده أخرى لم تكن موجوده هل يمكنك شرح ما هو مطلوب لأنك لم تشرح لكنك أضفت اعمده وسطور اخرى فقط وبالنسبه شكل النتائج المطلوبه يمكنك عملها يدوي لنرى كيف تريد النتائج

في المشاركه الاولي للأستاذ @محمد حسن المحمد https://www.officena.net/ib/topic/118435-qrcode/?do=findComment&comment=714178

هذا خاص بالسجل المدنى وليست بطريق حسابيه

السلام عليكم ورحمة الله وبركاته وبها نبدأ اي موضوع تفضل لعله المطلوب العملاء.xlsb

اخى @محمد حسن المحمدالكود يعمل جيدا يتم تحديث ما يكتب في الخلايا ضمن QRCODE اوفيس 2010 وافيس 2021

وهل تضمن اخى ان دفعت ان يعطيك شيئ مما أخذه منك بالقوة انا لله وانا اليه راجعون

وعليكم السلام ورحمة الله وبركاته من خلال قراءه الاسم على الصورة وهو AdHOC Reporting ControIHost يمكنك تحميل الاداه من هذا الموقع وبه شرح تشغيلها لأنها اداه اضافيه وليست من ضمن الاوفيس لعلها تكون مطلبك

الحمد لله الذي بنعمته تتم الصالحات

يرجي كتابه شرح لما هو مطلوب حتى يتسني فهم مشكلتك

وعليكم السلام ورحمة الله وبركاته تفضل اخى هذا موضوع للأستاذ محمد صالح الرقم القومي

ارفق ملف اخى @ابو عبد الرحمن.

اخي @Ahmed Saad 2017 يرجي وضع طلبك في موضوع جديد خاص بك

يرجي الشرح بالصور والكتابه لما تريد حتي تجد حل لمشكلتك

لان كل فترة الكروم يتم تحديثه فلابد من تحديث الدرايف

بارك الله فيك استاذ ضاحى