ياسر العربى

مشكور اخي الكريم ابو تامر على ذكر المصدر وعلى الكود فقد ذكرت انني وجدته ولكن لم اعرف صاحبه جزيت خير للتوضيح اكثر تم التعديل والغاء العمل بهذا الكود وتم اضافة فورم واصبح التحكم من داخل الفورم على الرابط التالي في اخر الموضوع لتلبيه رغبة الاخوة الاعضاء http://www.officena.net/ib/applications/core/interface/file/attachment.php?id=100802 وشكرا للاضافة تقبل تحياتي

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

كل عام وانت بخير اخي الكريم جلال وكل عام وجميع الامة الاسلامية بخير

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

مشكور اخي محمد السباعي مجهود رائع في تقدم دائما ان شاء الله تقبل تحياتي

كل عام وانت وجميع الامة الاسلامية بخير

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$62" Or Target.Address = "$H$63" Then [H64] = [H61] + [H62] - [H63] If Target.Column = 8 Then If Target.Row > 9 And Target.Row < 60 Then Target.Offset(, 1).Value = Target.Offset(, -2).Value * Target.Value: GoTo 86 End If End If If Target.Column = 6 Then If Target.Row > 9 And Target.Row < 60 Then Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value 86 [H61] = Application.WorksheetFunction.Sum(Range("I10:I60")) [H64] = [H61] + [H62] - [H63] End If End If End Sub

لم اشاهد الفيديو ولكن تفضل التعديل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$62" Or Target.Address = "$H$63" Then [H64] = [H61] + [H62] - [H63] If Target.Column = 6 Then If Target.Row > 9 And Target.Row < 60 Then Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value [H61] = Application.WorksheetFunction.Sum(Range("I10:I60")) [H64] = [H61] + [H62] - [H63] End If End If End Sub

استعمل هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 Then If Target.Row > 9 And Target.Row < 61 Then Target.Offset(, 3).Value = Target.Offset(, 2).Value * Target.Value [H61] = Application.WorksheetFunction.Sum(Range("I10:I60")) [H64] = [H61] + [H62] - [H63] End If End If End Sub

مرحب بيك اخي عمر تفضل المرفق به الدالة وجمع القيم من صفحة اخرى كما يرجى قراءة توجيهات المنتدى لسهولة التعامل داخل المنتدى sumif.rar

اخي الكريم يرجى تغيير اسم الظهور للغة العربية وكما يرجى توضيح ودعم المطلوب بملف مرفق لمعرفة شكل المطلوب ومبدأيا انظر لهذا الموضوع لعله يفيدك https://www.officena.net/ib/topic/70163-تصميم-برنامج-لبطاقات-دخول-الموظفين/?page=1

الطرق كثيرة والاكثر كسرها ولكن بداية كدا قم باخفاء جميع الشيتات عند غلق المصنف لتبقى صفحة واحدة وتضع بها تحذير اما لتفعيل الماكرو او ملاحظة بأن فتح الملف تم بطريقة غير مسموح بها وعند الدخول باليوزر فورم يتم اظهار جميع الشيتات المطلوبة اما لو محتاج طريقة احترافية ذكرت هذه الطريقة في مواضيع سابقة تفضل المرفق وبه طريقة تفعيل الماكرو بدون تتدخل من المستخدم وحماية للملف بكلمة مرور من الخارج ولا تفتح الا من داخل الشاشة الافتتاحية فقط مع فورم تسجيل الدخول ايضا كلمة المرور لفورم التسجيل اسم المستخدم Yasser كلمة المرور 123 كلمة مرور ملف الاكسيل المحمي 01097192367 تقبل تحياتي اجبار الماكرو على العمل.rar

ههههههههه الحمد لله ان تم المطلوب اخي ابو عيد شفت ياعم ابو البراء ان الكسل مفيد جدا حب الاختصار

بعد اذن الاخوة تفضل هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then On Error Resume Next Dim myrg As Range Set myrg = ورقة1.Range("A1:B100") Target.Offset(, 1).Value = "" Target.Offset(, 1).Value = Application.WorksheetFunction.VLookup(Target.Text, myrg, 2, 0) End If End Sub اما بخصوص كود اخي الغالي ابو البراء قم بتعديل من Sheet1 الى ورقة 1 داخل الكود حسب الموجود لديك

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

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

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

جرب المرفق تعديل البيانات.rar

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

جزيت خيرا تفضل كود الترحيل شامل الصفحة الرئيسية وصفحة الشهر معا واقل في عدد الاسطر Private Sub ComdBFixedAst1_Click() Dim LastRow As Long, arr(), arry(), xx As String, I As Long arr = Array(Lbl1.Caption, Textbox2.Text, Textbox1.Text, Textbox4.Text, Combobox1.Text, Textbox5.Text, Combobox2.Text, Textbox3.Text) arry = Array("Textbox2", "Textbox1", "Textbox4", "Combobox1", "Textbox5", "Combobox2", "Textbox3", "Textbox3") LastRow = Sheets("00").Range("b" & Rows.Count).End(xlUp).Row + 1 xx = Month(Textbox1.Text) lr = Sheets(xx).Range("b" & Rows.Count).End(xlUp).Row + 1 For I = 2 To 9 Sheets("00").Cells(LastRow, I) = arr(I - 2) Sheets(xx).Cells(lr, I) = arr(I - 2) Me.Controls(arry(I - 2)).Value = "" Next Lbl1.Caption = Lbl1.Caption + 1 On Error GoTo EERR EERR: Call FIX1ZZZNR End Sub

تفضل المزيد من الصبر اخي الكريم تقبل تحياتي اليوميه الامريكية.rar

الموضوع سهل كل ما عليك تغير مسار البارتشن اللي محتاجه وحط INDEX بتاعك في اي مكان HYPERLINK.rar

ملحوظة اخر موضوعين في السلسلة وليس كلها والكود الموجود ينقصه فقط اضافة كلمة سر للملف فقط اذا استوعبت الموضوع نبقى نشوف كلمة السر ملحوظة اخرى سلسلة علمني كيف اصطاد لاخي الكريم الاستاذ حسام عيسى(الصقر) تقبل تحياتي