أهلا بك اخ كريم فى المنتدى -من الأفضل ان تقوم من البداية برفع ملف وشرح فيه ما تريده بالتفصيل فى مشاركة منفصلة لك
ولكنى قمت بعمل هذا الملف لك
بارك الله فيك
إستخراج الأسماء لحد الإسم الثالث من الأسماء الخماسية.xlsm
أهلا بك اخ كريم فى المنتدى
لقد تمت الإجابة والحل وعمل الكود من قبل استاذنا الكريم ياسر خليل ابو البراء له منا كل الحب والإحترام
وبعد اذن استاذنا الكبير اذا اذن لى ان اضع الكود لعموم الإستفادة
بارك الله فيك
أخى الكريم حاتم قم بوضع هذا الكود فى حدث الورقة وليس فى موديول
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Value
If ActiveCell = "" Then
Range("A1").Value = ActiveCell.Address
End If
End Sub
ولكم منى جزيل الشكر