حل مشكله RUN TIME ERORR1004 عند الترحيل

[mohamedamrawy]

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

On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Me.ComboBox4.Value = "" Then MsgBox "يجب تحديد نوع الدفع", vbExclamation, "تنبية هام": Exit Sub
If Me.ComboBox2.Value = "" Then MsgBox "يجب ادخال اسم العميل", vbExclamation, "تنبية هام": Exit Sub
If Me.o1.Value = "" Then MsgBox "يجب ادخال بيانات الفاتورة", vbExclamation, "تنبية هام": Exit Sub
Sheets("مبيعات تبوك").Activate
Lrow = Range("a" & Rows.Count).End(xlUp).Row + 1
For v = 0 To ListBox1.ListCount - 1
Cells(Lrow, 1).Value = TextBox16.Value
Cells(Lrow, 2).Value = CDate(TextBox1.Value)
Cells(Lrow, 8).Value = l.Caption
Cells(Lrow, 9).Value = ComboBox3.Value
Cells(Lrow, 10).Value = ComboBox2.Value
Cells(Lrow, 7).Value = ListBox1.List(v, 0)
Cells(Lrow, 4).Value = ListBox1.List(v, 3)
Cells(Lrow, 5).Value = ListBox1.List(v, 2)
Cells(Lrow, 6).Value = ListBox1.List(v, 1)
Cells(Lrow, 3).Value = ListBox1.List(v, 4)
Lrow = Lrow + 1
Next v
If Me.ComboBox4.Value = "نقدي" Then
 Sheets("الصندوق").Activate
lrows = Sheets("الصندوق").Cells(Rows.Count, "A").End(xlUp).Row
Cells(lrows + 1, 1) = CDate(Me.TextBox1.Value)
Cells(lrows + 1, 2) = Me.o1.Value
Cells(lrows + 1, 5) = Me.ComboBox2.Value
Cells(lrows + 1, 6) = Me.ComboBox3.Value
Cells(lrows + 1, 7) = Me.l.Caption
MsgBox "حفظ فاتورة بيع نقدي باسم" & ComboBox2, vbInformation, " تم بنجاح "
End If
If Me.ComboBox4.Value = "اجل" Then
 Sheets("المدينين").Activate
Lrow = Sheets("المدينين").Range("a" & Rows.Count).End(xlUp).Row + 1
For v = 0 To ListBox1.ListCount - 1
Cells(Lrow, 1).Value = CDate(TextBox1.Value)
Cells(Lrow, 2).Value = ComboBox3.Value
Cells(Lrow, 3).Value = ComboBox2.Value
Cells(Lrow, 8).Value = ListBox1.List(v, 3)
Cells(Lrow, 4).Value = ListBox1.List(v, 0)
Cells(Lrow, 7).Value = ListBox1.List(v, 1)
Cells(Lrow, 6).Value = ListBox1.List(v, 2)
Lrow = Lrow + 1
Next v
MsgBox " حفظ فاتورة بيع اجل في حساب  " & ComboBox2, vbInformation, "تم بنجاح"
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Unload Me
UserForm3.Show
End Sub

[Ali Mohamed Ali]

راجع من فضلك هذا الروابط

https://www.officena.net/ib/topic/90218-حل-مشكله-run-time-error-1004/

https://www.officena.net/ib/topic/68596-مشكلة-فى-كود-الترحيل-خطأ-run-time-error-1004/

وأيضا هذه روابط اخرى خارجىة للإصلاح

https://www.compuchenna.co.uk/runtime-error-1004/

https://appuals.com/run-time-error-1004-in-excel/

http://www.repairmsexcel.com/blog/how-to-fix-runtime-error-1004

 

 

[أبوعيد]

لا يمكن حل المشكلة عن بعد

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

تحياتي

[محمود_الشريف]

بعد اذن الأستاذ // علي محمد علي

والأستاذ // أبو عيد

 

الأخ الكريم الخطأ رقم 1004 إليك توضيح بسيط عنه بإيجاز (أسبابه)

------------------------------------------------------------------------------------------------------------------------

تعريفه : خطأ في التطبيق أو تعريف الكائن

الوصف : هذه رسالة خطأ catch-all شائعة جدًا.

لماذا يحدث ؟ : يحدث هذا الخطأ عندما لا يتطابق أحد الأخطاء مع الخطأ المحدد بواسطة VBA .

بمعنى آخر ، يتم تعريف الخطأ بواسطة Excel (أو بعض الكائنات الأخرى) ويتم نشر مرة أخرى إلى VBA.

----------------------------------------------------------------------------------------------------------------------

وبما أنك لم تحدد ما هو الخطأ بالكود ال حضرتك كاتبه بطريقة النسخ واللصق ( لذا الكود غير واضح )

فالأفضل رفع الملف لتسهيل العمل عليه 

-----------------------------------------------------------------------------------------------------------------

أو اذا اردت التعامل مع الخطأ بنفسك

قم بتشغيل الكود وعندما تظهر لك رسالة الخطأ اضغط على كلمة Debug

سيقوم بفتح المحرر وسيقوم قاريء المحرر تلقائيا بتحديد سطر ووضع خلفية باللون الأصفر عليه 

قم بإلغاء التحديد بالضغط على أيقونة Reset ( شكلها مربع بلون ازرق) بجوار زر الـ Run الأخضر من شريط المهام بالأعلي بأيقونة

ثم حاول تصحيح الخطأ

تم تعديل مايو 18, 2019 بواسطه محمود_الشريف

[mohamedamrawy]

خالص الشكر للاساتذة المحترمين

[mohamedamrawy]

55.xlsm

[mohamedamrawy]

ارجو النظر في المصنف المرفق لتصحيح الكوود لمعرفه الخطا احيانا عندالترحيل تظهر خطا

55.xlsm

[أبوعيد]

ما هي الخطوات التي تعملها حتى يتم الترحيل

ما هو الزر الذي تضغطه للترحيل (والذي يظهر فيه الخطأ)

أرجو الشرح بالتفصيل

تم تعديل يونيو 9, 2019 بواسطه أبوعيد

[mohamedamrawy]

اخي الكريم تحيه طيبه وبعد عند الضغط علي زر save يتم الترحيل لكن احيانا يتوقف وتظهر رساله خطا (80010108)run time eroor 2147417848  الصوره المرفقه توضح شكل الترحيل في حاله الخطا حيث لا يتم ادراج المعادلات

[أبوعيد]

حياك الله

عملت على الملف المرفق ولم تظهر أي رسالة

ولكنك لم ترفق الملف الذي به المشكلة

الملف الذي ارفقته هنا فيه صنفان فقط هما أرو و زيت

بينهما الصورة فيها اصناف أخرى

أذا أردت العمل على الملف المرفق فالرجاء أن تخبرني متى تظهر رسالة الخطأ

ماذا اكتب في اسم العميل و كرت الصنف واسم الصنف وووو حتى تظهر رسالة الخطأ ؟

 

[mohamedamrawy]

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

الرساله تظهر خطا run time eroor 2417417848

لا تظهر الرساله دائما ولكنها عند تسجيل عدة عمليات ترحيل تظهر  ارجو فحص كوود الترحيل ... تم ادراج قائمة باسماء العملاء 

55.xlsm