Emad Karali قام بنشر مايو 31, 2017 مشاركة قام بنشر مايو 31, 2017 السلام عليكم ممكن اضافة على هذ الكود من تعديل الغالي خالد الرشيدي عدم ترحيل البيانات اذا كان من الخلية 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 رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر مايو 31, 2017 مشاركة قام بنشر مايو 31, 2017 السلام عليكم كل عام وحضرتك بخير اخى الكريم اكدنا كثيراً على التوضيح التفصيلي للمطلوب ارجو مزيد من التوضيح تقبل مرورى وتحياتى رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر مايو 31, 2017 الكاتب مشاركة قام بنشر مايو 31, 2017 (معدل) وانت بخير ي غالي اخي خالد عند الترحيل اريد عندما يكون عامود العدد وصف المستلم فاضي يطلع رسالة خطا وعدم الترحيل تم تعديل مايو 31, 2017 بواسطه 3mda.v8 رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر يونيو 1, 2017 الكاتب مشاركة قام بنشر يونيو 1, 2017 (معدل) شكرا اخ خالد حاولت في هذا الكود اتاكدلي منه اشتغل بس الصف الاول انا اريد العامود من g9:l23 : j = j + 1 If Cells(j + 9, 12) = "" Then MsgBox Cells(j + 1, 12).Address & " " & "الرجاء ادخال اسم المستلم""": Exit Sub تم تعديل يونيو 1, 2017 بواسطه 3mda.v8 رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر يونيو 1, 2017 مشاركة قام بنشر يونيو 1, 2017 اخى 3mda.v8 ايضاً حضرتك لم توضح - هل تريد اضافه هذا الشرط على الشرط القديم ( عدم وجود رقم موجب ) - ام فقط تريد هذا الشرط ؟؟؟ -- هذه واحده وهل تريد هذا الشرط في الصفوف المدخل بها بيانات ام كل الصفوف - تقبل مرورى وتحياتى 1 رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر يونيو 1, 2017 الكاتب مشاركة قام بنشر يونيو 1, 2017 نعم اضافة على الشرط القديم والصفوف المدخلة فيها بيانات ولو تكرمت تشرحلي الكود رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر يونيو 2, 2017 الكاتب مشاركة قام بنشر يونيو 2, 2017 (معدل) اخي خالد ممكن المساعدة في هذا الكود بصراحه احتاجه اذا ممكن ي غالي تم تعديل يونيو 2, 2017 بواسطه 3mda.v8 رابط هذا التعليق شارك More sharing options...
أفضل إجابة خالد الرشيدى قام بنشر يونيو 3, 2017 أفضل إجابة مشاركة قام بنشر يونيو 3, 2017 اخى الكريم راجع المرفق وابدى ملاحظاتك المخزن 878_6.rar رابط هذا التعليق شارك More sharing options...
Emad Karali قام بنشر يونيو 5, 2017 الكاتب مشاركة قام بنشر يونيو 5, 2017 يعجز اللسان عن شكرك على مساعدتك وابداعك هوا المطلوب جزاك الله الف خير رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر يونيو 5, 2017 مشاركة قام بنشر يونيو 5, 2017 (معدل) وحزاك خيرا اخي الكريم كل عام وانتم بخير الحمد لله الذي بنعمته تتم الصالحات تم تعديل يونيو 5, 2017 بواسطه خالد الرشيدى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان