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

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

السلام عليكم

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

Sub kh_trheel()
Dim Ary
Dim M As Long
With Feuil4
M = .Cells(.Rows.Count, "A").End(xlUp).Row
Ary = Array(M, [b4], [a6], [f8], [j8], [c7], [a5], [a10], [a5], [a5])
.Cells(M + 1, 1).Resize(1, 8).Value = Ary
MsgBox ("شكرا--- تم توثيق الاقرار الخطي")
End With
End Sub

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

برنامج لجنة شؤون الحلقات1.rar

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

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

السلام عليكم

 

ما هو عمود معيار التكرار ؟

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

السلام عليكم

هل يشترط عمود واحد فقط

فهناك 3 أعمدة مهمة هي اسم الطالب وعنوان المراسلة و سبب المراسلة

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

السلام عليكم

نجرب نضيف غمود نجمع فيه محتويات الثلاثة الاعمدة

وتتم المقارنة من خلاله

 

ما رايك

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

السلام عليكم

ولما لا إن كان أسهل

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

السلام عليكم

 

شاهد المرفق 2003

برنامج لجنة شؤون الحلقات1.rar

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

السلام عليكم

جزاك الله خيرا أستاذنا الكريم