ترحيل بيانات

[التحري نون]

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

تم تعديل نوفمبر 12, 2006 بواسطه التحري نون

[علي السحيب]

شاهد المرفق،

Transfer_and_Protect_and_Unhide.rar

[التحري نون]

اسئل الله المنان الحنان ان يرحمك ويسعدك دنيا واخره كما اسعدتني

لا اخفيك ان ثلاث ارباع عدد مرات الدخول هي مني انا

ووالله انني اترقب واستحيت ان ارفع الموضوع للتذكير

ووالله اني توقعت ردك باي لحظه ولا تعلم مدى فرحتي بعد تحديث الصفحه ومشاهدتي ما خطت يمينك

اسئل الله بمنه وكرمه ان يكتبك من اهل اليمين وان يشرح صدرك بالايمان ويملاه بالسعاده

يا اخي والله لا اعرف كيف اعبر لك عن شكري وامتناني

اسئل الله ان لا يحرمك اجر هذا العمل

هذا العمل هو بمثابة درس لي ولاخواني المتابعين للموضوع

و

جميع ما كتبت سيستخدم لتنظيم دخول المرضى الى العيادات في مركز حكومي وهذا العمل يحفظ لهم حقوقهم في اولوية العلاج

اشكر لك حسن صنيعك .... شكر الله سعيك

تم تعديل نوفمبر 14, 2006 بواسطه التحري نون