Emad Karali قام بنشر مايو 20, 2017 مشاركة قام بنشر مايو 20, 2017 السلام عليكم ممكن مساعدتكم اريد كود عدم ترحيل البيانات اذا كان اي من الارقام في العامود J9:J23 برقم موجب يظهر تنبيه يوجد خطا عندي كود الترحيل بس ابغاء اضيف هذا الكود رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر مايو 20, 2017 مشاركة قام بنشر مايو 20, 2017 (معدل) يفضل ارفاق الملف او مثال منه للعمل عليه تم تعديل مايو 21, 2017 بواسطه أ / محمد صالح رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر مايو 21, 2017 الكاتب مشاركة قام بنشر مايو 21, 2017 هذ الملف فقط اريد التعديل على اذن الاضافة واذن الصرف اذن الاضافة الترحيل بارقام اكبر من الصفر واذن الصرف اقل من 0 من عامود j9:j23 مع رسالة خطا اطلب مساعدتكم وشكرا مخزن.rar رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 السلام عليكم استبدل الكود الخاص بإذن الصرف بهذا الكود - كأحد طرق الحل 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 2 رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر مايو 21, 2017 الكاتب مشاركة قام بنشر مايو 21, 2017 (معدل) الله يسعدك ي رب ويجزاك خير م قصرت هو المطلوب تم تعديل مايو 21, 2017 بواسطه 3mda.v8 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر مايو 21, 2017 مشاركة قام بنشر مايو 21, 2017 3 ساعات مضت, خالد الرشيدى said: If Cells(i + 9, 10).Value > 0 Then وطبعا لإذن الإضافة فقط يلزمك تغيير هذا السطر إلى أصغر من صفر If Cells(i + 9, 10).Value < 0 Then كل عام وانتم جميعا بخير وسعادة ورضا 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان