السلام عليكم
العلامة عبد الله لي طلب لو سمحت يتمثل في تعديل أحد أكوادك والذي أخته من أحد مششاركات وهو خاص بترحيل البيانات والكود هو
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