الشافعي

لدي جدول يوجد به اشهر السنة وقائد الفريق وكل قائد لديه مجموعة من المناديب احتاج معرفة عدد المناديب لدى كل قائد دون تكرار مرفق الشيت Book1.xlsx

شكرا جزيل الشكر استاذ العزيز سليم وربي يبارك فيك وفي صحتك تم عمل اللازم

الاستاذ سليم الموقر هل اقدر الغي الاعتماد على الخلية M5 ويكون الاعتماد على الخلية G5 فقط وهل كذا يكون صح ولا يحتاج تعديل Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$G$5" Then Me.Cells.Rows.Hidden = False Select Case Target.Address Case "$G$5" hide_rows1 End Select End If Application.EnableEvents = True End Sub Sub hide_rows1() Select Case Range("G5").Value Case "جديد" Range("a19:a22").Rows.Hidden = False Range("a23:a38").Rows.Hidden = True Exit Sub '====================== Case "اعادة" Range("a19:a22").Rows.Hidden = True Range("a23:a38").Rows.Hidden = False Exit Sub '====================== Case "تكميلي" Range("a27:a31").Rows.Hidden = False Range("a19:a22").Rows.Hidden = True Range("a36:a38").Rows.Hidden = True Exit Sub '++=========================== Case "سداد" Range("a27:a31").Rows.Hidden = True Range("a19:a22").Rows.Hidden = True Range("a36:a38").Rows.Hidden = False Case Else End Select End Sub

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

في المرفقات ملف احتاج كود اظهار واخفاء بعد الصفوف ولكن بشرط في الخلية G5 AM.xlsm

مثال عميل تقاعدة في عمر ٦٥ سنة هجري عمره الان ٤٥ سنة هجري باقي له على التقاعدة ٢٠ سنة هجري ٢٤٠ شهر هجري كم يكون ٢٤٠ هجري بالميلادي ؟ احتاج معادلة ؟

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

انا عندي الكود هذا لكن كيف اخليه ينقل بيانات العميل والمتضامن مع بعض من الشيت رقم 1 الى الشيت رقم2 تحت بعض في وليس جنب بعض Sub custm() Dim v, vv Dim Sh1 As Worksheet, Sh2 As Worksheet Dim Lr As Integer, i As Integer Set Sh1 = Sheets("InitialOffer") Set Sh2 = Sheets("Customers") vv = Array("C11", "H12", "", "C12", "J14", "J16", "J18", "J20", "L20", "j22", "j24", "P18", "P24", "P34", "J30", "J32", "J34", "J36", "J38", "J40", "J44", "J46", "J54", "P40", "J58", "J60", "J62", "J66", "J70") Lr = Sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1 For Each v In vv i = i + 1 If Not IsError(Sh1.Evaluate(v)) Then Sh2.Cells(Lr, i).Value = Sh1.Range(v).Value End If Next Set Sh1 = Nothing: Set Sh2 = Nothing End Sub

كيف اعمل تكرار تعديل.xlsx

شكرا للنصيحة تم ترتيب البيانات احتاج الكود ترحيل .xlsx اريد نقل بيانات الخلايا الممثلة لها من الشيت الاول الى الشيت الثاني

المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2 وبالضغط مره اخرى على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة ترحيل بشرط.xlsx

للرفع

المطلوب عند الضغط على زر (نقل البيات ) في شيت رقم واحد ينقل قيم الخلايا الى شيت رقم 2 وبالضغط مره اخرى على زر نقل البيانات يكرر نفس العملية ولكن تحت البيانات المنقولة في المرة السابقة ترحيل بشرط.xlsx

شكرا والله يجزاكم خير وهل يمكن تحويل الكود اللي بالملف الى دالة هذا هو الملف AM (22 (1).xlsx

السلام عليكم استاد احمد انا تعبتك معاي واسف جدا ربنا يجعله في ميزان حسناتك AM (22.xlsx

يعمل الكود عن تغيير في اي من او كل من الدخل الشهري والالتزامات ومدة التمويل بالاشهر هدا الملف موجود به الخلايا الدي يتم تغييرها ليعمل الكود او جزء منها AM (1).xlsx

احتاج فقط تطبيق الكود اللي في الورقة عليها بدون زر AM.xlsx

شكرا لكم شكرا الاستاذ احمد تم الوصول للحل

للرفع

اي نعم بدون زر جزاك الله خير

السلام عليكم استاد الكريم احمد شكرا لك على مجهودك والله يجعله في ميزان حسناتك شرح الكود اللي انته ارسلته لي ممكن يوصلني للنتيجة جزاك الله خير وشكرا سوال اخير واسف على الاطاله لو انا عاوز احط الكود هدا في مديوال جديد وينفده بدون ميكرو اكتبه كدا ولا ازاي احتاج ان اعمل له مديول خاص وينفذ تلقائي بدون ميكرو T ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value ThisWorkbook.Worksheets("Step Up Feature").Range("I15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value Do ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000 Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20 ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000 'Do 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value + 1000 'Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("i13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("c13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("q23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("p23").Value - 20 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value - 1000 ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k5").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k11").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h16").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k12").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h17").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k13").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h14").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k7").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h13").Value MsgBox ("Calculation Completed") End If

سبحان الله والحمد لله

جزاك الله خير لكن للاسف ما قدرت اوصل للي احتاج انا برفق املف كامل وارجو معرفة كيف تم حساب المبلغ في شيت Step Up Feature الخانة رقم h15 ارجو شرح الكود وهل ممكن ان اغير الكود الى معادلة ادا امكن تغير الكود الى معادلة ما هي حسبة.xlsm للرفع

Call MC ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value ThisWorkbook.Worksheets("Step Up Feature").Range("I15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value Do ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000 Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20 ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000 'Do 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value + 1000 'Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("i13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("c13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("q23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("p23").Value - 20 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value - 1000 ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k5").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k11").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h16").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k12").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h17").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k13").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h14").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k7").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h13").Value MsgBox ("Calculation Completed") End If If ChangeProtection = True Then .Protect (MyPassword) End If End With End Sub

جزاك الله الف خير وشكرا لك استاذ حمادة هل ممكن تشرح السطراللي بعد كدا وشاكر ومقدر لك تفاعلك والله يجعله في ميزان حسناتك Do ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000 Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20 ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000