نسخ قيمة خلية بمجرد الوقوف عليها إلى أخرى

[أبو أنس حاجب]

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

أساتذتي الأفاضل حفظكم الله

عيدكم مبارك وكل عام وأنتم في خير وصحة وعافية

المطلوب كود بمجرد اختيار أي أسم في خلية ما من قائمة الأسماء في العمود Z يتم نسخه إلى الخلية D1

والله خير موفق

مع مراعاة أن القائمة ستكون طويلة جداً قد تصل إلى نحو خمسة الآف أسم.

أبو أنس

نسخ قيمة خلية إلى خلية أخرى.rar

تم تعديل أغسطس 22, 2012 بواسطه أبو أنس حاجب

[أبو حنــــين]

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

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Target.Column = 26 Then

Range("D1").Value = Target.Value

End If

End Sub

[أبو أنس حاجب]

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

أستاذي وسيدي نبيل الخلق أبا حنين حفظكم الله وأهليكم جميعاً.

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

أبو أنس

تم تعديل أغسطس 22, 2012 بواسطه أبو أنس حاجب

[rahekk]

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

شكرا

[أبو حنــــين]

مثال

Book1.rar

[دغيدى]

أخى الفاضل / ابو خديجة وحنين

أفاض الله عليكم من العلم ماينفع

[أبو حنــــين]

أنعمت مساءا أخي الفاضل : دغيدي