ترحيل صف الى صف آخر بشرط ان يبدأ بعده ب 16 خلية

[الســـــــاهر]

اخواني الاعزاء اسرة منتدى اوفيسنا العريق

 

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

 

اريد كود يبدا في الكتابة بعد 26 خلية من الخلية الاولى بالصف 12 وينتهي  عند نهاية العامود i

 

مرفق ملف يوضح المطلوب

 

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

Book1.rar

[ياسر خليل أبو البراء]

جرب الملف التالي

Book1.rar

[الســـــــاهر]

السلام عليكم

 

استاذي الفاضل 

 

ياسر خليل

 

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

 

لكن تنفيذه جدا بطيئ لكثرة البيانات عندي

 

اتمنى لو في طريقة ثانية تكون اسرع في التنفيذ

 

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

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل

Private Sub CommandButton1_Click()
    Columns("L:L").ClearContents
    Range("I12:I" & Cells(Rows.Count, "I").End(xlUp).Row - 15).Copy
    Range("L27").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

[الســـــــاهر]

استاذي الفاضل 

 

ياسر خليل

 

جزاك الله خير 

 

هذا المطلوب تماما

[ياسر خليل أبو البراء]

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

الحمد لله أن تم المطلوب أخي الساهر(بس حاول متسهرش كتير ونام بدري ..على رأي الشاعر اللي معرفش اسمه : من نام بدري وصحا بدري ، صار طبيبا ولا يدري)

متنساش تحدد الإجابة اللي عجبتك كأفضل إجابة ..

تقبل تحياتي

تم تعديل فبراير 14, 2015 بواسطه YasserKhalil

[الســـــــاهر]

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

 

احسنت اخي ياسر  وشكرا على النصيحة 

 

تقبل تحياتي يالغالي