عرض الاسم في خلية معينة عند اختيار مسلسله

[hitech]

لدى شيت اكسيل يحتوى على مسلسلات وبجوارها اسماء مثلا مسلسل 1 امامه محمد ومسلسل 2 امامه على وهكذا وخلية فارعة ولتكن C3 اريد عندما اضغط على الخلية التى بها مسلسل 1 يظهر المسلسل 1 فى الخلية  C3 و عندما اضغط على الخلية التى بها مسلسل 2 يظهر المسلسل 2 فى الخلية C3 وهكذا  

Book100.xlsx

[Ali Mohamed Ali]

عليك برفع الملف وتوضيح عليه المطلوب بكل دقة

[hitech]

تمام تم اضافة مرفق اخى الفاضل

[بن علية حاجي]

السلام عليكم

تم عمل المطلوب بكود بسيط في حدث الشيت "ورقة 1" ومعادلة بسيطة في الخلية C3 في شيت "ورقة 2"...

بن علية حاجي

Book100.xlsm

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Private Sub Worksheet_Activate()
Application.EnableEvents = False
Application.ScreenUpdating = False
Me.Range("c3") = vbNullString
 Dim r, c
  Sheets("ورقة1").Activate
 r = ActiveCell.Row
 c = ActiveCell.Column
If r > 2 And c = 1 Then
   Me.Range("c3") = Sheets("ورقة1").Cells(r, c)
End If
  Me.Activate
  Application.EnableEvents = True
  Application.EnableEvents = True

End Sub

 

الملف مرفق

 

Book100salim.xlsm

[hitech]

تمام يا جماعة ربنا يبارك لكم ضبطت الحمد لله شكرا جزيلا