Private Sub CommandButton1_Click()
NumberRow = 10
Set MyRange = Worksheets("C01").Rows(NumberRow)
Do Until Application.WorksheetFunction.CountA(MyRange) = 0
NumberRow = NumberRow + 1
Set MyRange = Worksheets("C01").Rows(NumberRow)
Loop
Application.ScreenUpdating = False
Worksheets("C01").Rows(9).Copy
Worksheets("C01").Rows(NumberRow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
Range("A9").Select
End Sub
السلام عليكم ورحمة الله وبركاته
صباح الخير والمسرات
بسم الله نبداء
1- الكود المكتوب هنا ينطبق على الورقه الاولى فقط واضطر الى كتابته مره اخرى بكل ورقه جديده !! اريد ان يكون كود عام على شكل مايكرو او باي طريقه اخرى واربط المايكرو بكل صفحه موجوده او مستحدثه لاحقاً
2- الكود ينقل كامل الصف رقم 9 واريده ان ينقل A9:D9 فقط واللصق ايضاً في حدود هذا النطاق للصف 10
3- اريد اخفاء جميع الصفوف واضهارها فقط بعد الكتابه عليها
4- بعد اضهار الصف المكتوب فيه اريد حمايته من التعديل فور اضهاره
5- النقل هنا يتم لاقرب صف فارغ -- الافضل ان يتم النقل بازاحة الصف المملوء الى 11 والنقل الى صف 10 اذا لا يؤثر هذا على البندين 3 و 4
6- الترقيم في الخليه A9 يكون ترقيم تلقائي بعد النقل مباشره وافراغ الخليه B9
ارجو ان يكون الموضوع مشوق وان يكون يمثابة درس لنا كللنا اكثر من ان يكون طلب مساعده
وفقكم الله لكل ما هو خير الدارين
المثال للتطبيق وابداء الرائي بالمرفقات
Transfer_and_Protect_and_Unhide.zip