أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





نسخ قيمة الخلية النشطة

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


موضوع مغلق


16-06-2022 10:51 صباحا
اسامة ياسر
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 15-06-2022
رقم العضوية : 24390
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 1-1-1990
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

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

اساتذتي الافاضل لطفا احتاج الى كود يقوم بنسخ قيمة أي خلية نشطة من الاعمدة الملونة في هذا الشيت ولصق قيمتها في الخلية (c2) في الشيت 2
 
 
  نسخ الخلية المحددة.xlsx   تحميل xlsx مرات التحميل :(3)
الحجم :(10.792) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وجزيت خيراً أخي الكريم
كل ما ستغيره هو الحدث بدلاً من Worksheet_Change اجعلها Worksheet_SelectionChange
عرض الإجابة




16-06-2022 01:16 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 237
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 34
قوة السمعة : 2349
عدد الإجابات: 31
 offline 
look/images/icons/i1.gif نسخ قيمة الخلية النشطة
السلام عليكم ورحمة الله
استخدم هذا الكود
Sub CopPst()
Dim ws As Worksheet, Sh As Worksheet
Dim Rng As Range, C As Range
Set ws = Sheets("ورقة1")
Set Sh = Sheets("ورقة2")
Set Rng = ws.Range("A2:A20,D2:D17,G2:G25,J2:J12")
For Each C In Rng
Set C = ActiveCell
C.Copy
Exit For
Next
Sh.Range("C2").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

18-06-2022 05:20 مساء
مشاهدة مشاركة منفردة [2]
اسامة ياسر
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 15-06-2022
رقم العضوية : 24390
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 1-1-1990
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif نسخ قيمة الخلية النشطة
جزاء الله خيرا اخي الكريم الكود رائع جدا
لكن هل من الممكن ان ينفذ الكود مباشرة عند الضغط على اي خلية من النطاقات المحددة بدون عمل زر للتنفيذ

18-06-2022 06:21 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif نسخ قيمة الخلية النشطة
وعليكم السلام
جرب الكود التالي عله يفي بالغرض بإذن المولى (ضع الكود في موديول ورقة العمل) .. كليك يمين على اسم ورقة العمل الأولى ثم اختر الأمر View Code ثم الصق الكود
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Target.Cells.CountLarge > 1 Then Exit Sub
    Set rng = Range("A2:A20,D2:D17,G2:G25,J2:J12")
    If Not Intersect(Target, rng) Is Nothing Then
        Worksheets(2).Range("C2").Value = Target.Value
    End If
End Sub

18-06-2022 07:10 مساء
مشاهدة مشاركة منفردة [4]
اسامة ياسر
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 15-06-2022
رقم العضوية : 24390
المشاركات : 6
الجنس : ذكر
تاريخ الميلاد : 1-1-1990
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif نسخ قيمة الخلية النشطة
جزاء الله خير الجزاء 
دائما ما تمتعنا بابداعاتك
اعتذر اذا كان طرحي غير واضح المطلوب هو نسخ محتوى الخلية عند تحديدها وليس عند تغييرمحتواها باعتبار ان محتوى الخلايا ثابت
وفق الله لكل خير

18-06-2022 11:25 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif نسخ قيمة الخلية النشطة
وجزيت خيراً أخي الكريم
كل ما ستغيره هو الحدث بدلاً من Worksheet_Change اجعلها Worksheet_SelectionChange



الكلمات الدلالية
قيمة ، الخلية ، النشطة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:43 صباحا