أين الخطأ في الكود

[maabutalib]

ال

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
 

لكن مش عارف فين الخطأ في صياغة الكود؟ 

[maabutalib]

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 = Sheets("Sheet2").Range("A1").End(xlDown).Row

 

 

تم تعديل ديسمبر 3, 2021 بواسطه محي الدين ابو البشر

[maabutalib]

شكرا على تفاعلكم أستاذ محي الدين ،، ولكن أنا جعلت المدى المتوقع للإدخال 400 موظف في الشيت رقم 2 وهي أرقام الموظفين في العمود A داخل الشيت 2 حتى يكون هناك مرونة في الإدخال ولا أضطر للعودة دائما وتعديل الكود لزيادة عدد مرات الإدخال الجديد وفي كلا الكودين الذين تفضلت حضرتك مشكورا بإدراجها ظهر خطأ مباشر في الكود الذي يليه مباشرة 

Sheet2.Cells(M, "A").Value = Sheet1.Range("F6").Value
 

 

[محي الدين ابو البشر]

Again

Sheets("Sheet2").Cells(M, "A").Value = Sheets("Sheet1").Range("F6").Value

لا حظ

 ("Sheets("sheet1 

Sheets("sheet2").Cells(M, "A").Value = Sheets("sheet1").Range("F6").Value
Sheets("sheet2").Cells(M, "B").Value = Sheets("sheet1").Range("F8").Value
Sheets("sheet2").Cells(M, "C").Value = Sheets("sheet1").Range("F10").Value
Sheets("sheet2").Cells(M, "D").Value = Sheets("sheet1").Range("F12").Value
Sheets("sheet2").Cells(M, "E").Value = Sheets("sheet1").Range("I6").Value
Sheets("sheet2").Cells(M, "F").Value = Sheets("sheet1").Range("I8").Value
Sheets("sheet2").Cells(M, "G").Value = Sheets("sheet1").Range("I10").Value
Sheets("sheet2").Cells(M, "H").Value = Sheets("sheet1").Range("I12").Value
Sheets("sheet1").Range("F6").Value = ""
Sheets("sheet1").Range("F8").Value = ""
Sheets("sheet1").Range("F10").Value = ""
Sheets("sheet1").Range("F12").Value = ""
Sheets("sheet1").Range("I6").Value = ""
Sheets("sheet1").Range("I8").Value = ""
Sheets("sheet1").Range("I10").Value = ""
Sheets("sheet1").Range("I12").Value = ""

 

الأفصل

Set sh1 = Sheets("sheet1")
Set sh2 = Sheets("sheet2")


M = Sheets("Sheet2").Range("A1").End(xlDown).Row+1
sh2.Cells(M, "A").Value = sh1.Range("F6").Value
sh2.Cells(M, "B").Value = sh1.Range("F8").Value
sh2.Cells(M, "C").Value = sh1.Range("F10").Value
sh2.Cells(M, "D").Value = sh1.Range("F12").Value
sh2.Cells(M, "E").Value = sh1.Range("I6").Value
sh2.Cells(M, "F").Value = sh1.Range("I8").Value
sh2.Cells(M, "G").Value = sh1.Range("I10").Value
sh2.Cells(M, "H").Value = sh1.Range("I12").Value
sh1.Range("F6").Value = ""
sh1.Range("F8").Value = ""
sh1.Range("F10").Value = ""
sh1.Range("F12").Value = ""
sh1.Range("I6").Value = ""
sh1.Range("I8").Value = ""
sh1.Range("I10").Value = ""
sh1.Range("I12").Value = ""

و ممكن

 

تم تعديل ديسمبر 3, 2021 بواسطه محي الدين ابو البشر

[maabutalib]

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

M = Sheets("Sheet2").Range("A400").End(xlUp).Row + 1

وبكذا أصبح كل إسم جديد يتم إضافته في صف جديد بدون مايلغي الإسم السابق

 

ألف ألف ألف شكر وبارك الله في علمك وعملك 

[maabutalib]

أموت واعرف ايش المشكلة الآن خاصة إن الأكواد صحيحه ،،، المطلوب تعديل بيانات موظف بإستدعاء بياناته القديمه 

تم عمل معادلة (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 وكل شئ تمام لكن هل لتعديل أسم الماكرو أكثر من مرة أثر سلبي على عدم قبول الكود؟ مع إني في كل مره أغير إسم الماكرو أتأكد أنه مطابق للإسم في الخصائص وأنه يخص الماكرو الذي أعمل عليه بالتحديد وليس ماكرو آخر ... هل المشكلة في الإكسل نفسه؟ هل المشكلة في الكود؟ هل المشكلة في الويندوز؟ هل المشكلة فيني أنا ؟ 

تم تعديل ديسمبر 6, 2021 بواسطه maabutalib

[حسونة حسين]

اخى الكريم ارفق ملف ليرى الاخوة المشكله 

[maabutalib]

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

Codes.xlsm

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

[محي الدين ابو البشر]

السلام عليكم

هناك مشكلة

استبدل كل

sheet1 

بـ

Sheets("sheet1")

وكل

sheet2 

بـ

Sheets("sheet2")

اينما حلت دائماً وأبداً

بليز

Codes.xlsm

[maabutalib]

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

أكرر شكري وتقديري لمساعدتك جزاك الله كل الخير 

[حسونة حسين]

اخى الكريم 

حضرتك كنت كاتب sheet1 

وهو اسم الشيت وليس الاسم البرمحى للشيت

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

ورقة١

من هنا كان الخطأ

لكى تتجنب هذا الخطأ

واليك تعديل لعله يعجبك

 

Codes-1.xlsm

[maabutalib]

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

[حسونة حسين]

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