اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

maabutalib

بواسطه maabutalib
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

maabutalib

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

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

رابط هذا التعليق
شارك
maabutalib

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 = ""

و ممكن 

 

 

تم تعديل بواسطه محي الدين ابو البشر
رابط هذا التعليق
شارك
maabutalib

maabutalib

قام بنشر
  • الكاتب
قام بنشر

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

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

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

 

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

رابط هذا التعليق
شارك
maabutalib

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

تم تعديل بواسطه maabutalib
رابط هذا التعليق
شارك
maabutalib

maabutalib

قام بنشر
  • الكاتب
قام بنشر

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

Codes.xlsm

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

رابط هذا التعليق
شارك
maabutalib

maabutalib

قام بنشر
  • الكاتب
قام بنشر

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

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

رابط هذا التعليق
شارك
حسونة حسين

حسونة حسين

قام بنشر
قام بنشر

اخى الكريم 

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

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

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

ورقة١

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

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

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

 

Codes-1.xlsm

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept