ترحيل خليه نشطه واحده

[علي الرويلي]

الاخوه الافاضل اعضاء ورواد اوفيسينا المحترمين

 

اسعد الله اوقاتكم بكل خير وكل عام وانتم بخير

 

ارغب في ترحيل خليه واحد بمجرد التضليل عليها الى الى شيت مستودع بمعنى لو اشرت على الخليه a6 وكبست على زر ترحيل يتم نقلها الى شيت مستودع ويكون مكانها a2 وهكذا بدون مسح الخليه

 

والشرح داخل الملف ولكم جزيل الشكر والعرفان

 

 

 

 

 

 

ترحيل خليه محدده.rar

 

 

تم تعديل يوليو 20, 2015 بواسطه علي الرويلي

[مختار حسين محمود]

أخى الحبيب على جرب الكوداية دى

Sub mokhtest()

ActiveCell.Copy Sheets("مستودع").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

End Sub

معنى الكود انسخ الخلية النشطة والصق فى أول خلية فارغة بالعمود 1 بورقة العمل مستودع  بس خلاص

حدد الخلية واضغط الزر هتلاقيها فى الشيت مستودع ولو حبيت تضيف خلايا أخرى براحتك  تحياتى

[خالد الرشيدى]

           

      استاذن  أ.مختار فى تقديم طرق اخرى لاثراء الموضوع

 

اخى الكريم اليك ثلاثة ملفات احدهما يتم تطبيق الكود بمجرد تحديد اى خلية فى العمود A

الثانى يتم الترحيل  بتحديد الخلية المراد ترحيلها فى العمود A      ثم      

 

                             الضغط على زر ترحيل

 

 

يجدر الاشارة الى ان معادلة الاستاذ مختار هى الاسهل فى التطبيق ولكنها تقوم بنقل الخلية بجميع تنسيقاتها وان كانت بها معادلة سيتم ترحيل المعادلة ايضاً اما الملفين الاخرين يتم ترحيل القيمة فقط وستجد تطبيقها ضمن الملفات 3 مع اضافة ان شرط للترحيل وهو ان تكون الخلية فى العمود A                                     - بعد اذن استاذى مختار طبعاً -

 

 

El Rashedy.rar

 

.............................................................

 

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

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

أخي الكريم خالد

يمكن نسخ بيانات الخلية النشطة بدون تنسيقات (بناءً على كود الأخ مختار بدون الإطلاع على الملف)

جرب الكود التالي .. (لم أجربه)

Sub mokhtest()

ActiveCell.Copy
Sheets("مستودع").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

End Sub

[خالد الرشيدى]

  الكود يعمل  تماماً استاذى ياسر

 

 لم اجرب ذلك .. قمت فقط بنسخ الكود ولصقة ليكون هناك مرفق لكود الاستاذ مختار

 

              ثم لاحظت النتائج ولم ارجع الى الكود ثانية

 

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

                          

                                                               

 

اخى الكريم اليك ملف اخر بهذا الكود المبسط فية يتم ترحيل القيمة

 

مختار حسين.rar

 

....................................................

 

الان اصبح لديك 4 اكواد اختر منهم ما يناسبك

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

بدون عملية النسخ

يمكن استخدام الكود بهذا الشكل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(ActiveCell, Range("A2:A5000")) Is Nothing Then
        Application.ScreenUpdating = False
            Sheets("مستودع").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ActiveCell
        Application.ScreenUpdating = True
    End If
End Sub

يوضع الكود في حدث ورقة العمل

[خالد الرشيدى]

استاذى الحبيب ياسر انا قصدت بالنسخ كود الاستاذ مختار (اى لم اقم بالتعديل علية فربما يكون المطلوب نقل الخلية بالتنسيق و...) و الكود الذى ارفقتة حضرتك ( مشاركة4) قمت بتنفيذه فى مرفق (مشاركة 5) حيث ان الكود يتسم بالبساطة ولمتصفحى الموضوع فيما بعد

 

وكود حضرتك (مشاركة 6) فهو منفذ بالفعل فى المرفق الاول وفى حدث  التغير فى ورقة العمل ايضاً

 

 

                                       تقبل تحياتى

[علي الرويلي]

الاساتذه الكرام

مختار حسين محمود
خالد الرشيدى
ياسر خليل أبو البراء

 

وجميع القائمين على هذا الصرح الشامخ اسعدكم الله في الدنيا والاخره لما تقدمونه للشعب العربي من شروحات وخدمات جعلها الله في موازين اعمالكم

 

نعم لقد اعطيتموني اكثر مما اطلب واتوقع وهذا هو المطلوب تماما

 

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

 

شاكرين ومقدرين لكم الوقت والجهد ولكم الاجر والثواب بأذن الله

 

اخوكم ومحبكم

علي الرويلي

 

 

مختار حسين.rar

[محمد حسن المحمد]

الأساتذة الكرام ياسر خليل أبو البراء وخالد الرشيدي ومختارحسين محمود المحترمين

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

أعمالكم كلها جيدة ورائعة ومميزة ...كلها تصب ببوتقة واحدة ولذلك أراها كلها رائعة ولا أقول إلا جزاكم الله خيراً..وكلها موضع إعجاب.

تقبلوا تحياتي واحترامي...

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

[مختار حسين محمود]

السلام عليكم جميعا

أخى وأستاذى ياسر و أخى الأستاذ خالد وأخى الأستاذ محمد حسن  لكم كل التحية والتقدير والاحترام وجازاكم خيرا

 

الأخ على الرويلى طالما الموضوع انتهى كان يجب أن تضع طلبك الأخير فى موضوع جديد لعموم الفائدة

لذلك بدون طرح طلبات جديدة  تفضل هذا الموضوع  خاص بطلبك الأخير وهو نسخ صف الخلية النشطة

http://www.officena.net/ib/index.php?showtopic=62821#entry407342

 

تحياتى لأساتذتى واخوانى وأحبابى