مساعدة تعديل كود الترحيل شي بسيط

[Emad Karali]

السلام عليكم ممكن اضافة على هذ الكود من تعديل الغالي خالد الرشيدي عدم ترحيل البيانات اذا كان من الخلية k9:l23 لاتوجد بها بيانات مقابل الخلية المكتوب فيها فقط لاان المشكلة هنا لما عدلت الكود فقط صف واحد الي اتتفعل باقي الصفوف لا , الرجاء المساعدة

Sub exchange_store()

 
    Dim positve As Boolean, i As Long

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

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

            positve = True
            MsgBox Cells(i + 1, 11).Address & "  " & "There IS a Positive Number In The Cell"""
            Exit Do

        End If
        
        i = i + 1
    Loop

    If i And positve = False Then

        Application.ScreenUpdating = False

        azsh = Sheet12.Range("l100000").End(xlUp).Row + 2
        Sheet5.Range("e9:l23").Copy
        Sheet12.Cells(azsh, 5).PasteSpecial Paste:=xlPasteValues
        MsgBox "Migration Successful", vbDefaultButton1, "Add"
        Sheet5.Range("f9:f23").ClearContents
        Sheet5.Range("k9:l23").ClearContents
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
End If
End Sub

 

المخزن 878.rar

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

السلام عليكم

كل عام وحضرتك بخير 

اخى الكريم اكدنا كثيراً على التوضيح التفصيلي للمطلوب

ارجو مزيد من التوضيح 

تقبل مرورى وتحياتى 

[Emad Karali]

وانت بخير ي غالي اخي خالد عند الترحيل اريد عندما يكون عامود العدد وصف المستلم فاضي يطلع رسالة خطا وعدم الترحيل 

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

[Emad Karali]

شكرا اخ خالد حاولت في هذا الكود اتاكدلي منه اشتغل بس الصف الاول انا اريد العامود من g9:l23 :

j = j + 1
If Cells(j + 9, 12) = "" Then MsgBox Cells(j + 1, 12).Address & " " & "الرجاء ادخال اسم المستلم""": Exit Sub

 

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

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

اخى 3mda.v8 

ايضاً حضرتك لم توضح - هل تريد اضافه هذا الشرط على الشرط القديم ( عدم وجود رقم موجب ) - ام فقط تريد هذا الشرط ؟؟؟ -- هذه واحده 

وهل تريد هذا الشرط في الصفوف المدخل بها بيانات ام كل الصفوف - 

تقبل مرورى وتحياتى 

[Emad Karali]

نعم اضافة على الشرط القديم والصفوف المدخلة فيها بيانات ولو تكرمت تشرحلي الكود 

[Emad Karali]

اخي خالد ممكن المساعدة في هذا الكود بصراحه احتاجه اذا ممكن ي غالي

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

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

اخى الكريم 

راجع المرفق وابدى ملاحظاتك 

المخزن 878_6.rar

[Emad Karali]

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

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

وحزاك خيرا اخي الكريم

كل عام وانتم بخير

الحمد لله الذي بنعمته تتم الصالحات

تم تعديل يونيو 5, 2017 بواسطه خالد الرشيدى