قيمة الخلية

[زهرة122]

السلام عليكم اساتذتى الكرام مشكلة بسيطة فى الفورم موجود الشرح فى الملف ولكم جزيل الشكر

انتبه من فضلك فكان لزاماً من توضيح المطلوب هنا أيضاً ... والا ستنصرف الأساتذة عن مساعدتك

باستخدام الفورم اريد سواء كانت الخلية النشطة فى العمود b او c او d او غيره  يظهر لى فى التكست بوكس الخلية المقابلة ليه فى العمود a

نشطة.xlsm

[ابراهيم الحداد]

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

يوضع هذا الكود فى حدث الفورم

Private Sub CommandButton1_Click()
Dim C As Range
x = ActiveCell.Row
Set C = Cells(x, 1)
y = C.Value
Me.TextBox1.Value = y
End Sub

 

[زهرة122]

ربنا يبارك فى حضرتك تمام بالضبط هذا ما اريد جزاكم الله خيرا وبارك فيكم 

[lionheart]

Why five lines while it can be done in one line

Me.TextBox1.Value = Cells(ActiveCell.Row, 1).Value