طلب كود إظافة في الليست بوكس

[ع_ حسام]

السلام عليكم جميع الأساتذة وبارك الله فيكم على الأعمال و مساعد ة الخرين في وجه الله 

- أولا كنت أود أن أشكر الأستاذ العيدروس  على الخاص لكن ما عرفت أو ماعندي هذه الخاصية 

- الثانيا اريد كود إظافة إلى ليست بوكس  وشرح في المرفق 547.rar

[الـعيدروس]

السلام عليكم

حط الاكواد التاليه في حدث الفورم

Private Sub CommandButton1_Click()
On Error Resume Next
Dim Lis, c, cl, Lr, Cm
Lr = Range("A13").End(xlDown).Row + 1
With Me.ListBox1
    .AddItem
For c = 0 To 5
     cl = Choose(c + 1, 6, 1, 2, 3, 5, 4)
     Cm = Me.Controls("TextBox" & cl)
    .List(UBound(.List), c) = Cm
     Range("A" & Lr).Offset(0, c) = IIf(IsNumeric(Cm), Val(Cm), CStr(Cm))
     Me.Controls("TextBox" & cl) = ""
Next c
    Mx
End With
On Error GoTo 0
End Sub
Private Sub UserForm_Activate()
   Mx
End Sub
Private Sub UserForm_Initialize()
Dim Rng As Range
Set Rng = Range(Range("A13"), Range("A13").End(xlDown).Resize(1, 6))
Me.ListBox1.List = Rng.Value
End Sub
Private Sub Mx()
Dim M
M = Application.Max(Range("A:A")) + 1
TextBox6 = M
End Sub

 

[ع_ حسام]

السلام عليكم الأستاذ العيدروس  بارك الله فيكم كود جميل وهو المطلوب

بقية كود الشيت الثاني أم أكرر كود فوم الأول فقط في فورم الثاني

شكرا لك على هذه المجهودات وجعلها في ميزن حسانتك

[الـعيدروس]

بيانات الورقة الاخرى وين تريدها في اي ليست ؟

 

حسب فهمي 

شاهد المرفق اضغط زر استدعاء 

kaled.ra_111.rar

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

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

استاذنا الفاضل

العيدروس

كود جميل ورائع

والاجمل انه بسيط للغايه

بصراحه دائما ما نتعلم منكم

فانتم اصحاب فضل علينا فى العلم

بارك الله فيكم

تقبل تحياتى

 

[الـعيدروس]

السلام عليكم

الاخ والاستاذ ابراهيم ابو ليله

اشكرك على مرورك العطر وكلماتك الطيبه

تقبل تحياتي وشكري