ممكن مساعدة في هذا الكود

[Emad Karali]

السلام عليكم ممكن مساعدتكم اريد كود عدم ترحيل البيانات اذا كان اي من الارقام في العامود J9:J23 برقم موجب يظهر تنبيه يوجد خطا عندي كود الترحيل بس ابغاء اضيف هذا الكود 

[أ / محمد صالح]

يفضل ارفاق الملف او مثال منه للعمل عليه

تم تعديل مايو 21, 2017 بواسطه أ / محمد صالح

[Emad Karali]

هذ الملف فقط اريد التعديل على اذن الاضافة واذن الصرف اذن الاضافة الترحيل بارقام اكبر من الصفر واذن الصرف اقل من 0 من عامود j9:j23 مع رسالة خطا اطلب مساعدتكم وشكرا

مخزن.rar

[خالد الرشيدى]

السلام عليكم

استبدل الكود الخاص بإذن الصرف بهذا الكود - كأحد طرق الحل 

Sub Test()

    Dim positve As Boolean, i As Long

    Do While Cells(i + 9, 10).Value <> ""

        If Cells(i + 9, 10).Value > 0 Then

            positve = True
            MsgBox Cells(i + 1, 10).Address & "  " & " يوجد رقم موجب بالخلية"
            Exit Do

        End If
        i = i + 1
    Loop

    If i And positve = False Then

        Application.ScreenUpdating = False

        azsh = ورقة7.Range("k100000").End(xlUp).Row + 1
        ورقة5.Range("e9:k23").Copy
        ورقة7.Cells(azsh, 5).PasteSpecial Paste:=xlPasteValues
        MsgBox "تم الترحيل بنجاح", vbDefaultButton1, "الترحيل"
        ورقة5.Range("e9:k23").SpecialCells(xlCellTypeConstants, 23).ClearContents

        Application.CutCopyMode = False
        Application.ScreenUpdating = True

    End If

End Sub

 

[Emad Karali]

الله يسعدك ي رب ويجزاك خير م قصرت هو المطلوب 

تم تعديل مايو 21, 2017 بواسطه 3mda.v8

[أ / محمد صالح]

3 ساعات مضت, خالد الرشيدى said:

If Cells(i + 9, 10).Value > 0 Then

وطبعا لإذن الإضافة فقط يلزمك تغيير هذا السطر إلى أصغر من صفر

If Cells(i + 9, 10).Value < 0 Then

كل عام وانتم جميعا بخير وسعادة ورضا