التحكم فى البيانات قبل الترحيل

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

عند قيامنا بالترحيل من ورقه الى اخرى نحتاج دائما للتاكد من وجود البيانات فى الخلايا قبل الترحيل و عاده نكرر شرط وجود البيانات مع And أو Or و ندخل فى شروط طويله و يزداد التعقيد عند محاوله الترحيل لأكثر من صفحه 0

الكود التالى تستطيع كتابته مره واحده (Private Function) ثم تقوم باستدعاءه فقط قبل اى عمليه الترحيل

Private Function Valid() As Boolean
    Valid = True
    If Sheets("Post").Range("B1") = "" Then
        Valid = False
        MsgBox "No Data In B1"
    End If
    If Sheets("Post").Range("B2") = "" Then
        Valid = False
        MsgBox "No Data In B2"
    End If
    If Sheets("Post").Range("B3") = "" Then
        Valid = False
        MsgBox "No Data In B3"
   End If
End Function

مرفق ملف مع الترحيل لأكثر من ورقه فى نفس الوقت

السلام عليكم

Valid_Post.rar

[ابو اسامة العينبوسي]

زادك الله علما

[محمد عسكر]

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

استاذنا
جزاك الله خيرا
بارك الله فيك و فى علمك و فى عملك

[seif eldin]

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