maabutalib

حياك الله أخي الغالي وجزاك كل الخير ...

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

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

أموت واعرف ايش المشكلة الآن خاصة إن الأكواد صحيحه ،،، المطلوب تعديل بيانات موظف بإستدعاء بياناته القديمه تم عمل معادلة (Match) في Sheet2 الذي يحتوي على البيانات بالخانة K2 (لإظهار رقم الصف) من الإسم الذي أقوم بإدخاله في الخانة J2 والمعادلة صحيحة وكل إسم أقوم بإدخاله من الجدول يظهر أمامه رقم الصف صحيح وهذا كله في Sheet2 .. ومن المفترض أن الشاشة الرئيسية في Sheet1 يقوم مدخل البيانات بوضع الإسم المراد البحث عنه وتعديله في الخانه H4 ولكن هناك خلل والإكسل لايستجيب للكود ولم أفهم ماهي المشكله (الإكسل يرفض الكود باللون الأحمر أدناه) Private Sub CdInfo_Click() Sheet2.Range("J2").Value = Sheet1.Range("H4").Value Dim X As Integer X = Sheet2.Range("K2").Value Sheet1.Range("F6").Value = Sheet2.Cells(X, "A") Sheet1.Range("F8").Value = Sheet2.Cells(X, "B") Sheet1.Range("F10").Value = Sheet2.Cells(X, "C") Sheet1.Range("F12").Value = Sheet2.Cells(X, "D") Sheet1.Range("I6").Value = Sheet2.Cells(X, "E") Sheet1.Range("I8").Value = Sheet2.Cells(X, "F") Sheet1.Range("I10").Value = Sheet2.Cells(X, "G") Sheet1.Range("I12").Value = Sheet2.Cells(X, "H") End Sub الأوفيس عندي 2019 وكل شئ تمام لكن هل لتعديل أسم الماكرو أكثر من مرة أثر سلبي على عدم قبول الكود؟ مع إني في كل مره أغير إسم الماكرو أتأكد أنه مطابق للإسم في الخصائص وأنه يخص الماكرو الذي أعمل عليه بالتحديد وليس ماكرو آخر ... هل المشكلة في الإكسل نفسه؟ هل المشكلة في الكود؟ هل المشكلة في الويندوز؟ هل المشكلة فيني أنا ؟

جزاك الله كل الخير استاذي العزيز التعديل ماشي آخر مثل ما حضرتك عدلته ماشاء الله لاقوة الله بالله ،، إنما ظهرت المشكلة الثانية بإن البيانات كلها تتخزن فوق بعض في سطر واحد فقط وأنا بعد إذنك عدلت الكود الخاص بتخزين المعلومات ليصبح M = Sheets("Sheet2").Range("A400").End(xlUp).Row + 1 وبكذا أصبح كل إسم جديد يتم إضافته في صف جديد بدون مايلغي الإسم السابق ألف ألف ألف شكر وبارك الله في علمك وعملك

شكرا على تفاعلكم أستاذ محي الدين ،، ولكن أنا جعلت المدى المتوقع للإدخال 400 موظف في الشيت رقم 2 وهي أرقام الموظفين في العمود A داخل الشيت 2 حتى يكون هناك مرونة في الإدخال ولا أضطر للعودة دائما وتعديل الكود لزيادة عدد مرات الإدخال الجديد وفي كلا الكودين الذين تفضلت حضرتك مشكورا بإدراجها ظهر خطأ مباشر في الكود الذي يليه مباشرة Sheet2.Cells(M, "A").Value = Sheet1.Range("F6").Value

Private Sub CdAdd_Click() Dim M As Integer M = Sheet2.Range("A400").End(xlUp).Row + 1 Sheet2.Cells(M, "A").Value = Sheet1.Range("F6").Value Sheet2.Cells(M, "B").Value = Sheet1.Range("F8").Value Sheet2.Cells(M, "C").Value = Sheet1.Range("F10").Value Sheet2.Cells(M, "D").Value = Sheet1.Range("F12").Value Sheet2.Cells(M, "E").Value = Sheet1.Range("I6").Value Sheet2.Cells(M, "F").Value = Sheet1.Range("I8").Value Sheet2.Cells(M, "G").Value = Sheet1.Range("I10").Value Sheet2.Cells(M, "H").Value = Sheet1.Range("I12").Value Sheet1.Range("F6").Value = "" Sheet1.Range("F8").Value = "" Sheet1.Range("F10").Value = "" Sheet1.Range("F12").Value = "" Sheet1.Range("I6").Value = "" Sheet1.Range("I8").Value = "" Sheet1.Range("I10").Value = "" Sheet1.Range("I12").Value = "" MsgBox "تم حفظ البيانات" End Sub

ال Private Sub CdAdd_Click() Dim M As Integer M = Sheet2.Range("A400").End(xlUp).Row + 1 Sheet2.Cells(M, "A").Value = Sheet1.Range("F6").Value Sheet2.Cells(M, "B").Value = Sheet1.Range("F8").Value Sheet2.Cells(M, "C").Value = Sheet1.Range("F10").Value Sheet2.Cells(M, "D").Value = Sheet1.Range("F12").Value Sheet2.Cells(M, "E").Value = Sheet1.Range("I6").Value Sheet2.Cells(M, "F").Value = Sheet1.Range("I8").Value Sheet2.Cells(M, "G").Value = Sheet1.Range("I10").Value Sheet2.Cells(M, "H").Value = Sheet1.Range("I12").Value Sheet1.Range("F6").Value = "" Sheet1.Range("F8").Value = "" Sheet1.Range("F10").Value = "" Sheet1.Range("F12").Value = "" Sheet1.Range("I6").Value = "" Sheet1.Range("I8").Value = "" Sheet1.Range("I10").Value = "" Sheet1.Range("I12").Value = "" MsgBox "تم حفظ البيانات" End Sub كود في السطر الثالث دائما في المراجعة يظهر إنه خطأ ولايعمل M = Sheet2.Range("A400").End(xlUp).Row + 1 لكن مش عارف فين الخطأ في صياغة الكود؟