husain alhammadi

السلام عليكم و رحمة الله و بركاتة ارجوا مساعدتي في تعديل كود ترحيل للبيانات بطريقة اوتوماتيكية حيث انني ارغب ترحيل من SHEET4 الى SHEET10و SHEET11 شاشة الدخول مع صلاحيات 5.xlsb

التاريخ الوارد الصرف الرصيد رقم الفاتورة الكمية القيمة رقم الفاتورة الكمية القيمة 2023/01/01 0 02/01/2023 100001 100 د.إِ.1500 90 03/01/2023 200001 10 د.إِ.1500 180 13/01/2023 200002 10 د.إِ.1500 270 23/01/2023 200003 10 د.إِ.1500 360 03/02/2023 200004 10 د.إِ.1500 350 13/02/2023 200005 10 د.إِ.1500 340 23/02/2023 200006 10 د.إِ.1500 340 02/04/2023 100002 100 د.إِ.1500 340 02/07/2023 100003 100 د.إِ.1500 340 02/10/2023 100004 100 د.إِ.1500 340

لقد رفعت مستوايَ عاليًا، وعلّمتني أكثر مما اعتقدت، شكرًا لك أستاذي محمد هشام. لقد جعلتني أكتشف أنني أذكى مما كنت أعتقد، وأنه لا بأس بالفشل طالما أنني أحاول مجددًّا، شكرًا على كل شيء

السلام عليكم و رحمة الله و بركاتة اخواني الخبراء هل يوجد خطا فى كود بطاقة الصنف B11 تاريخ بد البرنامج و هو ثابت I11 رصيد بد البرنامج و هو ثابت 0 I12 الى الشيت I1000 (=I11+D12-G12) B11هو تاريخ الوارد و الصرف في حالة عدم وجود الصرف فى نفس يوم يترك فاضي Private Sub CommandButton1_Click() Dim a, b, v, wsItems As Worksheet, wsWared As Worksheet, wsSarf As Worksheet, sh As Worksheet, lr As Long, i As Long, k As Long Application.ScreenUpdating = False Set wsItems = ThisWorkbook.Worksheets("sheet4") Set wsWared = ThisWorkbook.Worksheets("sheet6") Set wsSarf = ThisWorkbook.Worksheets("sheet8") Set sh = ThisWorkbook.Worksheets("sheet9") sh.Range("A12:I" & Rows.Count).ClearContents lr = Application.Max(12, sh.Cells(Rows.Count, 3).End(xlUp).Row + 1) If sh.Range("C8").Value = "" Then Exit Sub v = Application.Match(sh.Range("C8").Value, wsItems.Columns(2), 0) If Not IsError(v) Then sh.Cells(8, 3).Resize(1, 4).Value = wsItems.Cells(v, 2).Resize(1, 4).Value sh.Range("I11").Value = wsItems.Cells(v, 6).Value sh.Range("B11").Value = DateSerial(Year(Date), 1, 1) End If k = 0 a = wsWared.Range("A9:I" & wsWared.Cells(Rows.Count, 3).End(xlUp).Row).Value ReDim b(1 To UBound(a, 1), 1 To 5) For i = LBound(a) To UBound(a) If a(i, 4) = sh.Range("C8").Value Then k = k + 1 b(k, 1) = a(i, 1) b(k, 2) = a(i, 2) b(k, 3) = a(i, 3) b(k, 4) = a(i, 8) b(k, 5) = a(i, 9) End If Next i If k > 0 Then sh.Range("A" & lr).Resize(k, UBound(b, 2)).Value = b k = 0 a = wsSarf.Range("A9:I" & wsSarf.Cells(Rows.Count, 3).End(xlUp).Row).Value ReDim b(1 To UBound(a, 1), 1 To 3) For i = LBound(a) To UBound(a) If a(i, 4) = sh.Range("C8").Value Then k = k + 1 b(k, 1) = a(i, 3) b(k, 2) = a(i, 8) b(k, 3) = a(i, 9) End If Next i If k > 0 Then sh.Range("F" & lr).Resize(k, UBound(b, 2)).Value = b Application.ScreenUpdating = True End Sub شاشة الدخول مع صلاحيات 4.xlsb

السلام عليكم و رحمة الله و بركاتة ذهبت إلى أبعد الحدود معنا، فأنت تهتم حقًا بتقديم الأفضل لنا، شكرًا لك من أعماق قلوبنا. لقد رفعت مستوايَ عاليًا، وعلّمتني أكثر مما اعتقدت، شكرًا لك أستاذي.

السلام عليكم و رحمة الله و بركاتة اخواني الخبرا هل يوجد خطاء في كود الترحيل اسم المستخدم :حسين كلمة المرور :123 اخى يتم وضع الاكواد بين هذه العلامه Private Sub cmdadd2_Click() Dim mmm As Integer mmm = Sheet7.Range("B500").End(xlUp).Row + 1 Sheet7.Cells(mmm, "B").Value = Sheet6.Range("B6").Value Sheet7.Cells(mmm, "c").Value = Sheet6.Range("F6").Value Sheet7.Cells(mmm, "d").Value = Sheet6.Range("B9:B27" & lr).Value Sheet7.Cells(mmm, "e").Value = Sheet6.Range("C9:C27" & lr).Value Sheet7.Cells(mmm, "f").Value = Sheet6.Range("D9:D27" & lr).Value Sheet7.Cells(mmm, "g").Value = Sheet6.Range("E9:E27" & lr).Value Sheet7.Cells(mmm, "h").Value = Sheet6.Range("F9:F27" & lr).Value Sheet7.Cells(mmm, "I").Value = Sheet6.Range("G9:G27" & lr).Value Sheet7.Cells(mmm, "J").Value = Sheet6.Range("A31").Value Sheet7.Cells(mmm, "K").Value = Sheet6.Range("A32").Value Sheet7.Cells(mmm, "L").Value = Sheet6.Range("A33").Value Sheet7.Cells(mmm, "M").Value = Sheet6.Range("C31").Value Sheet7.Cells(mmm, "N").Value = Sheet6.Range("C32").Value Sheet7.Cells(mmm, "O").Value = Sheet6.Range("C33").Value Sheet7.Cells(mmm, "P").Value = Sheet6.Range("E31").Value Sheet7.Cells(mmm, "Q").Value = Sheet6.Range("E32").Value Sheet7.Cells(mmm, "R").Value = Sheet6.Range("E33").Value Sheet6.Range("B6").Value = "" Sheet6.Range("F6").Value = "" Sheet6.Range("B9:B27" & lr).Value = "" Sheet6.Range("C9:C27" & lr).Value = "" Sheet6.Range("D9:D27" & lr).Value = "" Sheet6.Range("E9:E27" & lr).Value = "" Sheet6.Range("F9:F27" & lr).Value = "" Sheet6.Range("G9:G27" & lr).Value = "" Sheet6.Range("A31").Value = "" Sheet6.Range("A32").Value = "" Sheet6.Range("A33").Value = "" Sheet6.Range("C31").Value = "" Sheet6.Range("C32").Value = "" Sheet6.Range("C33").Value = "" Sheet6.Range("E31").Value = "" Sheet6.Range("E32").Value = "" Sheet6.Range("E33").Value = "" MsgBox "تم ترحيل الفاتورة بنجاح" End Sub Private Sub CmdPrint_Click() Sheet2.Range("A1:G35").PrintPreview End Sub شاشة الدخول مع صلاحيات المستخدمين.xlsb

السلام عليكم و رحمة الله و بركاتة استاذ محمد هشام لساني يعجز عن شكرك، والكلمات والحروف لا تكفي أن أقدم لك جزيل الشكر والعرفان فجزاك الله خير الجزاء تم ارفاق sheet2 للاسماء و بالنسبة للبيانات بعد الترحيل هل يتم تكرار التاريخ ورقم الفاتورة والبيانات الاخرى كما في الصورة التالية نعم فاتورة كاملة.xlsm

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

السلام عليكم و رحمة الله و بركاتة فاتورة كاملة.xlsm

اخواني هل يوجد خطاء في كود الترحيل و التعديل و البحث و فاتورة جديدة فاتورة كاملة.xlsm

السلام عليكم و رحمة الله و بركاتة استاذ محمد هشام.جزاك الله خير الجزاء

اخواني هل يوجد خطاء في كود الاستعلام و التعديل بيانات الموظفين.xlsm

السلام عليكم و رحمة الله و بركاتة ارجوا منكم تعديل الكود UserForm1 الى UserForm100 يتغير حسب مدة الزمنية مكتب امام كل UserForm و يكون مل اشاشة Private Sub CommandButton1_Click() UserForm1.Show.("00:00:30:00") UserForm2.Show.("00:00:30:00") UserForm3.Show.("00:00:30:00") UserForm4.Show.("00:00:30:00") UserForm5.Show.("00:00:30:00") UserForm6.Show.("00:00:30:00") End Sub 111.xlsm

السلام عليكم و رحمة الله و بركاتة برنامج شاشة الدخول مع صلاحيات المستخدمين جاهز للاستخدام و بها صفحات عمل جاهزة فقط ادخل و اضف اليه اعمالك مهما كان العمل . شكرا لك استاذى محمد هشام الذي قام بتعديل الاكواد. استاذى محمد هشام إنه لمن دواعي فخري وامتناني الكبير أن أقول للجميع كم نحن محظوظون لوجودك معنا، حقا لقد ابدعت و تميزت ، فأنت أهل للشكر، ولك منى كلّ الثناء! وجزاك الله خير الجزاء و جعله الله فى موازين حسناتك و صدقة جارية لى و لك اسم المستخدم : حسين كلمة المرور :123 شاشة الدخول مع صلاحيات المستخدمين.xlsb

السلام عليكم و رحمة الله و بركاتة اخواني ارفق لكم برنامج تعليم الصلاة للاطفال على ان يربط البرنامج في صفحة الرئيسية A8 و ينقل المعلومات الى من a جميع الصفحات بحسب اختيار صفحة الرئيسية A8 و وضعها في صفحة الرئيسية E3 تعليم الاطفال الصلاة.xlsm

السلام عليكم و رحمة الله و بركاتة تعليم الاطفال الصلاة.xlsm

السلام عليكم و رحمة الله و بركاتة تعليم الاطفال الصلاة.xlsm

السلام عليكم و رحمة الله و بركاتة في حديث أبي هريرة رضي الله عنه أن رسول الله صلى الله عليه وسلم قال : ( إذَا مَاتَ الإِنْسَانُ انْقَطَعَ عَمَلُهُ إلاَّ مِنْ ثَلاَثٍ : صَدَقَةٍ جَارِيَةٍ ، أَوْ عِلْمٍ يُنْتَفَعُ بِهِ ، أَوْ وَلَدٍ صَالِحٍ يَدْعُو لَهُ ) رواه مسلم (1631). وأنواع الصدقات الجارية وأمثلتها كثيرة ، منها : بناء المساجد ، وغرس الأشجار ، وحفر الآبار ، وطباعة المصحف وتوزيعه ، ونشر العلم النافع بطباعة الكتب والأشرطة وتوزيعها .

السلام عليكم و رحمة الله و بركاتة استاذى محمد هشام إنه لمن دواعي فخري وامتناني الكبير أن أقول للجميع كم نحن محظوظون لوجودك معنا، حقا لقد ابدعت و تميزت ، فأنت أهل للشكر، ولك منى كلّ الثناء! وجزاك الله خير الجزاء و جعله الله فى موازين حسناتك و صدقة جارية لى و لك

السلام عليكم و رحمة الله و بركاتة اخواني ارفق لكم برنامج تعليم الصلاة للاطفال على ان يربط البرنامج في صفحة الرئيسية C8 و ينقل المعلومات الى من a جميع الصفحات بحسب اختيار C8 و وضعها في G3 و كذلك ينقل المعلومات من b جميع الصفحات بحسب اختيار C8 و وضعها في J13 و كذلك اضافة الصوت ان امكن حتى يستفيد الاطفال منه واسال الله ان يجعل ذلك في موازين حسناتكم و صدقة جارية لي و لمن ساهم فى هذا البرنامج و لكم الحرية المطلقة في التطوير على ان يتم نشرها تعليم الاطفال الصلاة.xlsm

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

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

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

السلام عليكم و رحمة الله و بركاتة اخواني الخبراء ارجوا منكم ارجوكم مساعدتى في تعديل الاكواد برنامج شاشة الدخول مع صلاحيات في صفحة الصلاحيات اسم المستخدم (d6 :d30) و كلمة المرور (e6 :e30) مع اضافة الصلاحيات من (Z30:g7) و اضافة خاصية اظهار اسم المستخدم فى الصفحة الرئيسية J9 مع كود تقرير دخول المستخدمين بمعنى كل من يدخل البرنامج يسجل فى التقرير اسم المستخدم : husain و كلمة المرور :123 واسم المستخدم : 2 و كلمة المرور :2 واسم المستخدم : 3 و كلمة المرور :3 للعلم بان البرنامج حاليا يعمل بصورة ممتازة و لكن يفتح للمستخدمين الثلاثة فقط وجزاكم الله خير الجزاء Private Sub CommandButton1_Click() If UserForm1.TextBox1.Value = "husain" And UserForm1.TextBox2.Value = 123 Or UserForm1.TextBox1.Value = "2" And UserForm1.TextBox2.Value = 2 Or UserForm1.TextBox1.Value = "3" And UserForm1.TextBox2.Value = 3 Or UserForm1.TextBox1.Value = "4" And UserForm1.TextBox2.Value = 4 Or UserForm1.TextBox1.Value = "5" And UserForm1.TextBox2.Value = 5 Then Application.Visible = True Range("b1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = UserForm1.TextBox1.Value Sheets("Sheet2").Select Range("c1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = UserForm1.TextBox2.Value Range("d1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = Date Range("e1").Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Range("b1").Select ActiveCell.Value = Time If UserForm1.TextBox1.Value = "husain" And UserForm1.TextBox2.Value = 123 Or UserForm1.TextBox1.Value = "2" And UserForm1.TextBox2.Value = 2 Or UserForm1.TextBox1.Value = "3" And UserForm1.TextBox2.Value = 3 Or UserForm1.TextBox1.Value = "4" And UserForm1.TextBox2.Value = 4 Or UserForm1.TextBox1.Value = "5" And UserForm1.TextBox2.Value = 5 Then Application.Visible = True UserForm1.Hide Else MsgBox "يرجى التحقق من ادخال اسم المستخدم وكلمة المرور بصورة صحيحة", , " " Label5.Caption = Label5.Caption - 1 If Label5.Caption = 0 Then ThisWorkbook.Save Application.Quit End If End If End Sub الدخول.xlsm

نشاطركم الأحزان، للفقيد الرحمة ولكم من بعده طول البقاء، إنا لله وإنا إليه راجعون