طلب مساعدة: نقل سجل من صفحة إلى أخرى

[خالدو]

السلام عليكم ورحمة الله وبركاته

أخواني الكرام أرجو المعذرة لاني أثقلت عليكم بطلباتي ولكن أطمع في كرمكم وسعة صوركم

في الملف المرفق أريد نقل المدى من :

B2:M2

من صفحة 1 إلى صفحة 2 في أول سطر فارغ مع مسحه من صفحة 1 بشـــــــــــــــــــرط

أن :

L="ok"

أي خلية في العمود L قيمتها ok يتم نقل السجل إلى صفحة 2 مع مسحه بالكامل من صفحة 1

وجزاكم الله خيراً

نقل سجل معين.rar

[عبد الفتاح كيرة]

تفضل

لعله المطلوب

نقل سجل معينن- kemas.rar

[خالدو]

جزاك الله خيراً أخي كيماس ولكن ليس بالضبط أنا أريد التالي:

هل من الممكن كود لنقل الجزء من (B2:M2) إذا كانت قيمة الخلية فيL2=OK

إلى الصفحة التالية في أول سطر فارغ

وبعد ذلك يتم حذف الصف من هذه الصفحة

وشكراَ

بمعنى آخر

أي سطر في المدى من :

B:M

إذا كانت الخلية في العمود L = OK

يتم نقله إلى صفحة 2 مع مسح الاصل

عندما شغلت الكود الخاص بك نقل الصفوف موضوع الحوار وعندما ضغطت عليها مرة ثانية مسح ما تم ترحيله إلى الصفحة الثانية...وأنا أريد الابقاء على السجلات التاريخية في صفحة 2 بدون حذف

بحيث يتم نقل الصفوف اللي تحنوي على كلمة OK إلى أول سطر فارغ في الصفحة التالية

فإن لم يكن هناك كلمة ok وضغطت الزر فلا يحدث شيء

في الماكرو الخاص بك تم مسح السطور في صفحة 2

[خالدو]

مرفق الملف

نقل سجل معينن- kemas.rar

تم تعديل أبريل 10, 2011 بواسطه khaledocom

[عبد الفتاح كيرة]

تم التعديل

الكود يعمل كما طلبت

لكن الملف به مشكلة

خلايا مخفية و روابط

الكود بعد التعديل

Sub Macro3()

'

' Macro3 Macro

'

Dim Lr As Long

Lr = Sheets("Sheet2").Range("b1000").End(xlUp).Row + 1

'

    Range("N3").Select


 Dim rng As Range, myrng As Range

 Sheets("Sheet1").Select

 Set myrng = Sheets("Sheet1").Range("l2:l15")

    For Each rng In myrng

        If rng = "Ok" Then


            rng.EntireRow.Copy Sheets("Sheet2").Range("a" & Lr)

             rng.EntireRow.Delete

            Application.CutCopyMode = False

            Lr = Sheets(2).Range("b1000").End(xlUp).Row + 1

            End If

            Next rng


End Sub

الملف بعد التعديل

نقل سجل2 معينن- kemas.rar

تم تعديل أبريل 10, 2011 بواسطه kemas

[خالدو]

ربما أكون فشلت في توصيل المطلوب و عجزت عن الشرح.سأحاول تنفيذ الأمر بشكل يدوي.

جزاك الله خيراً على مجهودك ...