اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by مختار حسين محمود,

الردود الموصى بها

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

 

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

 

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

 

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

 

 

 

 

 

 

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

 

 

تم تعديل بواسطه علي الرويلي
رابط هذا التعليق
شارك

  • أفضل إجابة

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

Sub mokhtest()

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

End Sub


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

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

  • Like 1
رابط هذا التعليق
شارك

           

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

 

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

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

 

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

 

 

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

 

 

El Rashedy.rar

 

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

Sub mokhtest()

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

End Sub
  • Like 2
رابط هذا التعليق
شارك

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

 

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

 

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

 

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

                          

                                                                :signthankspin:

 

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

 

مختار حسين.rar

 

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

 

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

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

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

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information