خالد_محمد قام بنشر نوفمبر 25, 2006 مشاركة قام بنشر نوفمبر 25, 2006 السلام عليكم ورحمة الله وبركاته 1- اريد كود ترحيل البيانات مثلاً من صفحة رقم1 الى صفحة رقم 2 2- ترحيل البيانات التي ينطبق عليها الشرط فقط 3- الصفحة رقم 1 مربوطه بصفحة آخرى ولا اريد ترحيل الارتباط الى صفحة رقم 2 اريد فقط نسخ وترحيل القيمة فقط 4- المعلومات في صفحة رقم 1 من A6 الى G200 5- شرط الترحيل : أي خلية تساوي او اكبر من 8 وتقع في العامود F6 الى F200 يتم ترحيل الصف بأكمله من A الى G مثال1 الخلية F14 =33 يتم ترحيل الصف كاملاً من A14 الى G14 مثال 2 الخلية F52 =6 لايتم ترحيل لانه اصغر من رقم 8 وشكراً جزيلاً رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر نوفمبر 26, 2006 مشاركة قام بنشر نوفمبر 26, 2006 الكود التالي ينفذ لك ما تريد: Sub Tarheel() Sheet2.[A6:G65536].ClearContents For R = 6 To [A65536].End(xlUp).Row If Cells(R, 6) = 8 Then With Sheet2.[A65536].End(xlUp) .Offset(1, 0) = Sheet1.Cells(R, 1) .Offset(1, 1) = Sheet1.Cells(R, 2) .Offset(1, 2) = Sheet1.Cells(R, 3) .Offset(1, 3) = Sheet1.Cells(R, 4) .Offset(1, 4) = Sheet1.Cells(R, 5) .Offset(1, 5) = Sheet1.Cells(R, 6) .Offset(1, 6) = Sheet1.Cells(R, 7) End With End If Next MsgBox "!تم ترحيل الصفوف المطلوبة بنجاح", vbInformation, "تم الترحيل" End Sub شاهد المرفق، __________________________________________8.rar رابط هذا التعليق شارك More sharing options...
خالد_محمد قام بنشر نوفمبر 26, 2006 الكاتب مشاركة قام بنشر نوفمبر 26, 2006 آلف الف شكر يامشرفنا الكريم هذا هو المطلوب رابط هذا التعليق شارك More sharing options...
خالد_محمد قام بنشر نوفمبر 26, 2006 الكاتب مشاركة قام بنشر نوفمبر 26, 2006 اكرر شكري وتقديري لك يا استاذي الفاضل الكود السابق كما قلت هو المطلوب ونفذ ما اريده بالفعل لكن لدي طلب آخر وهو نفس الكود السابق اريد التعديل عليه والمطلوب كل ترحيل يلي ما رحل من قبل مع وضع صف فارغ بين كل ترحيل وترحيل وبلون محدد ان امكن رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر نوفمبر 29, 2006 مشاركة قام بنشر نوفمبر 29, 2006 شاهد المرفق، __________________________________________8.rar رابط هذا التعليق شارك More sharing options...
خالد_محمد قام بنشر ديسمبر 2, 2006 الكاتب مشاركة قام بنشر ديسمبر 2, 2006 السلام عليكم ورحمة الله يوجد مشكله يااستاذ علي بعد مانقلت الكود الى البرنامج الذي اعمل عليه انه لايرحل المعلومات بينما لونقلت الورقتين الى مصنف اخر يعمل الكود لا اعلم ماهو السبب شاهد المرفق _______________.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.