طلب مساعدة في وضع كود خاص بزر SpinButton

[زياد عبد الجليل]

السلام عليكم اخوتي الكرام ارجو مساعدة في كود في الفورم  يخص زر SpinButton وشكككككككككككككررررررررررررا للجميع اليكم الملف المرفق

 

 

SpinButtonكيفية عمل كود في.rar

[طلعت محمد حسن]

السلام عليكم

اخي الكريم شاهد المرفق هل تقصد ذالك.

Classeur1.rar

[زياد عبد الجليل]

بارك الله فيك اخي طلعت عظمة على عظمة شششششششششششككككككككككككررررررررررااااا

[خزاني]

^{_{تحديد الزر من البداية   الى غاية النهاية   ولا يظهر اي ملف  فارق}}

Option Explicit
Dim y As Byte
Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select: es
If Selection = "" Then ActiveCell.Offset(-1, 0).Select: es
End Sub
Private Sub SpinButton1_SpinUp()
If Selection = [a2] Then Exit Sub Else ActiveCell.Offset(-1, 0).Select: es
End Sub
Private Sub UserForm_Initialize()
[a2].Select: es
End Sub
Sub es()
For y = 1 To 4: Controls("T" & y) = Cells(Selection.Row, y): Next y
End Sub

[ياسر خليل أبو البراء]

الأخ الحبيب خزاني ممكن ترفق ملف بالكود الذي تفضلت به ..

[خزاني]

ملف بالكود

 

khezzani-1.rar

 

[خزاني]

الأخ الحبيب خزاني ممكن ترفق ملف بالكود الذي تفضلت به ..

khezzani-1.rar

[ياسر خليل أبو البراء]

تسلم أخي الحبيب خزاني ..كود سهل وممتاز وعملي..

بارك الله فيك

[زياد عبد الجليل]

بارك الله فيك كود دقيق و جيد ممتاز