اخطاء في ترحيل البيانات من اليوزورفورم الى اوراق العمل

[عبدالفتاح محمد]

لدي اخطاء في ترحيل البيانات من اليوزرفورم الى  ورقة 1 والترحيل من ورقة 1 الى ورقة 2 

بالنسبة للورقة1 الاخطاء تبدا من الصف 29 الى الصف 35  القيمة يجب ان تكون 1050 وليس 3000

اما الورقة 2 عند الترحيل من الورقة 1  يرحل بعض البيانات ويتجاهل الاخرى والقيم خاطئة  

 

وتخزين الفاتورة على هيئة pdfعهدة.xlsm

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

10 ساعات مضت, عبدالفتاح محمد said:

بالنسبة للورقة1 الاخطاء تبدا من الصف 29 الى الصف 35  القيمة يجب ان تكون 1050 وليس 3000 

الخطأ سببه عدم وجود معادلة الطرح في الصف 29 اكتبها او اسحبها من الصف قبلها تجد الناتج 1015

10 ساعات مضت, عبدالفتاح محمد said:

اما الورقة 2 عند الترحيل من الورقة 1  يرحل بعض البيانات ويتجاهل الاخرى والقيم خاطئة  

تحتاج اى حبراء اكواد  لعل خبرؤانا بالمنتدى يقومون بالواجب

[عبدالفتاح محمد]

شكرا اخي على ردك بخصوص  عدم وجود المعادلة  موجودة في البداية  ولكن عند تعبئة البيانات في الفورم  وترحيلها تتم حدف الصيغة من هذه الصفوف مما ينتج خطا  لا ادري وين المشكلة  ويمكنك تجربة الفورم 

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

كلامك  صحيح

تم التصحيح ان شاء الله

جرب واخبرني

في ١٨‏/٦‏/٢٠١٩ at 12:24, عبدالفتاح محمد said:

اما الورقة 2 عند الترحيل من الورقة 1  يرحل بعض البيانات ويتجاهل الاخرى والقيم خاطئة  

الامر غير مفهوم لدي والكود عند تجربته يعطي خطأ

اادخل على الورقة2 وحدد ما الذي سيتم ترحيله من الورقة1 الى الورقة 2 واكتب النتائج المتوقعة

ربما افيدك او احد الاخوان يقوم بالمساعدة

تحياتي

[عبدالفتاح محمد]

المطلوب الترحيل  من a2:a35  وكما تلاحظ في الصف 19  البيانات كاملة علية يتم  تجاهل الصفوف  التي بعد الصف 19  لكونها غير مكتملة   وعدم تجاهل الصف 33و34و35  وبالتالي يجب ان  تصبح الورقة 2 كما في الصورة المرفقة 

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

عذرا نسيت الملف مشكلة حذف المعادلة

الفاتورة على هيئة pdfعهدة.xlsm

 

[عبدالفتاح محمد]

بخصوص  حدف المعادلة المشكلة لازالت قائمة  من السطر 32 الى 35

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

 

نسخة من الفاتورة على هيئة pdfعهدة.xlsm

[عبدالفتاح محمد]

ارجو منك ان تعلمني ماذا فعلت  حتى اصبحت صحيحة 

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

المعادلات اضفتها للكود  فبعد الضغظ على زر الترحيل في الفورم يقوم الكود باظافة المعادلات

بمعنى اخر  امسح المعادلات   كلها سيقوم الكود بارجاعها

 

[عبدالفتاح محمد]

شكرا على توضيحك وتفاعلك  وقد حصلت على اجابة  من احد المواقع الاجنبية بخصوص ترحيل البيانات من ورقة 1 الى ورقة 2 لعلها تفيد الاعضاء واتمنى من الخبراء ايجاد   حل لمشكلة عدم ترحيل  صفوف رقم33و34و35 التي تحتوي علىsubtotal,shipping, total 

الكود في الاسفل يعمل تمام  باسثناء المشكلة المذكورة 

 

Sub TransferData()
   Dim LastRow As Long
   
   LastRow = Sheets("ورقة1").Range("a" & Rows.Count).End(xlUp).Row
   Sheets("ورقة1").Range("A3:F" & LastRow).Copy Sheets("ورقة2").Range("A" & Rows.Count).End(xlUp).Offset(1)
   With Sheets("ورقة2").Range("E" & Rows.Count).End(xlUp).Offset(1)
      .Value = WorksheetFunction.Sum(Range(.Parent.Cells(3, "E"), .Offset(-1)))
   End With

End Sub

 

تم تعديل يونيو 20, 2019 بواسطه عبدالفتاح محمد
اضافة توضيح