خطا قي كود الاكسل RUN TIME ERROR 1004

[اوفست بن اكسل]

يظهر لي خطا في هذا الكود ممكن اعرف الحل !

 

Private Sub CommandButton3_Click()
RM3.Range("j5").Value = RM2.Range("E5").Value
Dim Lsrch, Sr1, Sr2, Lf As Integer
Lsrch = RM3.Range("k5").Value
For Sr1 = 1 To 4
For Sr2 = 5 To 8
For Lf = 5 To 11 Step 2
RM2.Cells(Lf, "G").Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, "D").Value = RM3.Cells(Lsrch, Sr2).Value
Sr1 = Sr1 + 1
Sr2 = Sr2 + 1
Next Lf
Next
Next

Clrear_Data

End Sub

 

 

 

 

 

[عبدالفتاح في بي اكسيل]

مجرد تخمين 

خطا  في  كتابة  الصيغة 

RM2.Cells(Lf, "G").Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, "D").Value = RM3.Cells(Lsrch, Sr2).Value

 

يجب ان تكون 

RM2.Cells(Lf, 7).Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, 4).Value = RM3.Cells(Lsrch, Sr2).Value

 

 

[اوفست بن اكسل]

3 ساعات مضت, حسونة حسين said:

ارفق ملف اخى الكريم 

هذا الملف اخي الكريم

 

2 ساعات مضت, عبدالفتاح في بي اكسيل said:

مجرد تخمين 

خطا  في  كتابة  الصيغة 

RM2.Cells(Lf, "G").Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, "D").Value = RM3.Cells(Lsrch, Sr2).Value

 

يجب ان تكون 

RM2.Cells(Lf, 7).Value = RM3.Cells(Lsrch, Sr1).Value
RM2.Cells(Lf, 4).Value = RM3.Cells(Lsrch, Sr2).Value

لازال الخطاء

تم تعديل فبراير 25, 2023 بواسطه اوفست بن اكسل

[lionheart]

 You have to know the cause of the error. In the procedure [Private Sub CommandButton3_Click()], you have declared a varaible name [Lsrch]

Lsrch = RM3.Range("k5").Value

But the sheet RM3 in cell K5 is empty and this causes the error. The cell K5 should have a number, so try to put a number in cell K5 in sheet RM3 and there will be no errors

[اوفست بن اكسل]

لازال يظهر لي خطا في خيار التعديل والحذف ممكن احد يزين لي الملف بالمرفقات :)

5566.xlsm

6 ساعات مضت, حسونة حسين said:

ارفق ملف اخى الكريم 

اخوي الملف بالمرفقات ليت تسوية لي 

5566.xlsm

[AbuuAhmed]

وضعك صعب يا اوفيست بن اكسل
أنا لم أقم بحل مشكلتك ، ولكن .. قمت بإصلاح بعض مشكلات كتابة الكود لتجهيزه لمن يرغب في التواصل معك للتعديل.

5566_01.xlsm

[عبدالله بشير عبدالله]

السلام عليكم

  .  استاذنا الخبير lionheart اشار الى الحل في الردود السابقة

في 25‏/2‏/2023 at 18:17, lionheart said:

BUt the sheet RM3 in cell K5 is empty and this causes the error. The cell K5 should have a number, so try to put a number in cell K5 in sheet RM3 and there will be no errors

وكان حله قبل ارفاق ملفك حيت  كانت الخلية K5 ولكن بعد ارفاق الملف تغيرت الخلية واصبحت K1

حسب الكود في الملف المرفق  يجب كتابة رقم في الخلية K1 في صفحة sheet RM3  وقمت بتجربة الامر واختفى الخطأ

تحياتي اليك والى معلمنا الفاضل lionheart

[AbuuAhmed]

طيب أين دورك أخي @عبدالله بشير عبدالله في الحل؟
الأخ @lionheart نبه إلى جزئية من الكود.
والأخ @عبدالفتاح في بي اكسيل نبه إلى جزئية أخرى.
وأنا بعد رفع مثال السائل أصلحت أكثر من جزئية.

ومع كل الملاحظات هذه لا وجود لحل لمعالجة البيانات، كل ما ذكر محاولات وقف رسائل الخطأ فقط.

ملاحظاتي:
- أن يغلق هذا الموضوع كون رسالة الخطأ اختفت 🙂 .
- يفتح موضوع آخر يشرح فيه السائل المطلوب من إجراء الإضافة والتعديل ويضغ مثالا لبيانات أكثر ويحتوي على نتيجة "يدوية" مفترضة بعد إجراء الإضافة أو التعديل.
- أن ينبه الأخ الزميل @lionheart بالالتزام بالكتابة باللغة العربية كون المنتدى عربي والأعضاء عرب وكثير من الأعضاء لا يجيدون الإنجليزية.
- أن يلتزم بعض الأعضاء عند الكتابة بعرض حلولهم وأن يتركوا التعليقات غير النافعة.
- أن يمتنع من ينوي مهاجمتي على ردي هذا ويبدل هجومه بدعوة صالحة لي وللزملاء الذين يحاولون التصدي "بصدق" لحل مشاكلهم.