خطأ يحدث فى كود الضغط على الليبل لاظهار الاسماء

[إبراهيم ابوليله]

الاخوه الكرام

ارجو المساعده

خطأ يحدث فى كود الضغط

على الليبل لاظهار الاسماء

RE.rar

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

السلام عليكم

اضف هذا الجزئ في الفورم

Private Sub UserForm_Activate()
sheet4.Activate
End Sub

[إبراهيم ابوليله]

اخى ابو حنين

بارك الله فيك

ولكنى اريد ان يعمل الكود

عند استدعاء اللفورم

من شيت اخر غير

شيت4

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

السلام عليكم

اضف اسم الشيت في الفورم بهذا الشكل

Private Sub Lb1_1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

kh_AddName Sheets("kh").Range("Lb1_1")

End Sub
Private Sub Lb1_2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

kh_AddName Sheets("kh").Range("Lb1_2")

End Sub
Private Sub Lb1_3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

kh_AddName Sheets("kh").Range("Lb1_3")

End Sub

[إبراهيم ابوليله]

اخى ابو حنين بارك الله فيك

ومشكورا على المساعده

والمعلومات الجميله التى دائما

ما نستفيد منك فيها

ولكن كان فيه مشاركه لحضرتك فى طلب لى

على الرابط التالى

والموضوع مازال مفتوحا

ارجو المساعده ان امكن

http://www.officena.net/ib/index.php?showtopic=50736&hl=