تصحيح كود ترحيل

[أبو عبد الملك السوفي]

السلام عليكم

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

أرجوا حا هذه المشلة لأني منذ يومين أحاول فيه ولا جدوى

برنامج مهم للتوثيق معدل.rar

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

السلام عليكم

 

صحح اسم الورقة من Feuil4 الى  ورقة4

 

تحياتي

[أبو عبد الملك السوفي]

السلام عليكم

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

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

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

[أبو عبد الملك السوفي]

السلام عليكم

الخلايا بها دوال وهي تعمل بشكل جيد ولا يوجد خطأ

تم تعديل نوفمبر 11, 2013 بواسطه عبد السلام زاوي

[dah_med]

السلام عليكم

أخي عبد السلام

فعلا كما قال للك أخونا عبد الله

الخلايا في الملف المرفق به خطأ في المعدلات

أنظر صورة الملف الذي الذي أنت وضعه في المنتدى

يظهر أن الملف به إرتباطات يجب أن تصحح

error.rar

[أبو عبد الملك السوفي]

السلام عليكم

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

أخي احذف أماكن الخطأ واكتب في مكانها ما تشاء وسترى أنه يبقى نفس الخطأ في الكود

[أبو عبد الملك السوفي]

السلام عليكم

للرفع رفع الله مكانكم

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

السلام عليكم

 

حول هذا السطر الى بداية الكود

 

On Error Resume Next

 

وافحص عمل الكود بعد الترحيل

[أبو عبد الملك السوفي]

السلام عليكم

حسنا أستاذ سأفعل وسأخبرك بالنتيجة

[أبو عبد الملك السوفي]

السلام عليكم

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

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

السلام عليكم

 

هل هذا الكود المستخدم

Sub kh_trheel()
Dim Ary
Dim M As Long, Mt As Long
Dim Txt As String
On Error Resume Next
Txt = [B4] & [A6] & [B12]
With ورقة4
    M = .Cells(.Rows.Count, "A").End(xlUp).Row
    
    Mt = WorksheetFunction.Match(Txt, .Range("i2").Resize(M), 0)
    If Mt Then
        If MsgBox("تم توثيق البيانات من قبل" & vbCr & "هل تريد مواصلة الترحيل??", vbYesNo, "تاكيد") = vbNo Then GoTo 1
    End If
    Ary = Array(M, [B4], [A6], [B14], [E14], [G14], [B12], [a10], [B8], [A16], [A16], [B16], [A20], [B20], Txt)
    .Cells(M + 1, 1).Resize(1, 9).Value = Ary
    MsgBox ("شكرا--- تم توثيق الافادة")
End With
1:
End Sub

[أبو عبد الملك السوفي]

السلام عليكم

نعم هذا هو الكود المستخدم

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

هو يعمل عندي بالرغم من وجود صيغ خطا

[أبو عبد الملك السوفي]

السلام عليكم

هل المشكلة عندي اذا سأحاول واعطيك النتيجة

[حمادة باشا]

الأستاذ/ عبدالسلام

السلام عليكم ورحمة الله وبركاته

وبعد إستئذان أستاذنا/ عبدالله باقشير

1- الملف به إرتباطات خارجية لملفات في محرك الأقراص F بمسميات منها - سجل القيد العام الرسمي - منهاج الحفظ

2- المعادلات تعطي أخطاء وتحديدا معادلة vlookup في الخانة A12 - الأسم الكامل - يظهر الخطأ عند طلب التوثيق

قمت بتجربة التالي - ونجحت عملية التوثيق دون خطأ ( لا أدري عن الآلية هل قام الملف بالمطلوب أم لا - عليك التحقق بنفسك )

1- إضافة iferror قبل vlookup لمنع الخطأ من الظهور

2- تغيير أسماء الصفحات كلها من ورقة 1 وتسميتها Sheet1 إلخ مع تغيير الإشارات لها داخل الكود إلي الأسماء الجديدة

الشاهد من الأمر - جرب المرفق وأخبرنا بما وجدت

برنامج مهم للتوثيق معدل.rar

[أبو عبد الملك السوفي]

السلام عليكم

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

ملاحظاتك في مكانها والكود يعمل الآن مئة بالمئة

فبارك الله لنا في علمك وعملك

كما لا أنسى أن أشكر العلامة باقشير فقد والله أتعبته معي

[حمادة باشا]

أستاذ/ عبدالسلام

الحمد لله الذي هدانا لهذا- وجزاك الله خيرا علي الدعاء ولك مثله

والشكر موصول لأستاذنا الكبير/ عبدالله باقشير صاحب الدوال المستخدمة

والسلام عليكم ورحمة الله وبركاته