حلقة تكرار عند تواجد قيمتي (تتالي تفعيل Option Button

[محمد عامر]

السلام عليكم

اخوتي الاكارم

لدي في الملف 3 اوبش بوتم واسفل كل منها ليبل 

كل ليبل تحتوي على رقم 

هذا الرقم هو عدد المرات التي سوف ترحل البيانات من هذا الليبل

المشكلة تكمن هو عند الانتهاء من العد من اليبل الاول واريد الانتقال الي اليبل الثاني او الثالث الذي يحتوي على رقم 

المشكلة التي اواجها هي تفعيل الاوبش بوتم التالي مباشرة بعد الانتهاء من العد من اليبل الاولى واريد الانتقال الي الييبل التي تحتوي على رقم 

ارجوا مساعدتكم

المرفق يحتوي على التفاصيل

حلقة تكرار عند تواجد قيمتين.rar

تم تعديل يناير 28, 2013 بواسطه دغيدى
تم تعديل عنوان المشاركة

[عبدالله المجرب]

حسب فهمي 

اختصرت لك الكود 

ليصبح كالتالي

Private Sub CommandButton3_Click()
Dim T As Integer, i As Integer
For T = 1 To 3
If Val(Me.Controls("Label" & T + 4)) > 0 Then Me.Controls("OptionButton" & T) = True
If Me.Controls("OptionButton" & T) And Val(Me.Controls("Label" & T + 4)) > 0 Then
For i = 1 To Val(Me.Controls("Label" & T + 4))
Me.Controls("Label" & T + 4).Caption = Val(Me.Controls("Label" & T + 4)) - 1
With Sheets("Sheet1")
                Endrow = .Range("A1").CurrentRegion.Rows.Count
                .Cells(Endrow + 1, 1).Value = Endrow
                .Cells(Endrow + 1, 2).Value = TextBox1.Value
                .Cells(Endrow + 1, 3).Value = TextBox2.Value
                .Cells(Endrow + 1, 4).Value = TextBox3.Value
               .Cells(Endrow + 1, 5).Value = TextBox4.Value
End With
Next
End If
Next
TextBox1.Value = Clear
TextBox2.Value = Clear
TextBox3.Value = Clear
TextBox4.Value = Clear
End Sub

 

 

 

فبالعدد الموجود في الليبلات سيتم ترحيل المدخلات في TextBox تباعاً 

والله اعلم

[محمد عامر]

شكرا اخي عبد الله على مشاركتك

وعند تشغيل الكود يتم الترحيل العدد الموجود بشكل كامل مع بعض

انا اريد عند كل ضغط على الزر ان يتم ترحيل وان ينقص رقم 

[عبدالله المجرب]

السلام عليكم 

بدايةً

هل الكود صحيح وفعال 

[محمد عامر]

اخي الكريم

الكود جيد ولكنة غير الذي اريدة

لانه يقوم بالترحيل بشكل جماعي 

وانا اريد ان يتم الترحيل بشكل منفصل

[عبدالله المجرب]

وما هو الفاصل الذي تريد بين كل عملية ترحيل

[محمد عامر]

الفاصل هو تفعيل الاوبش بوتم 

اخي العزيز

الفكرة هي 

اي عند الانتهاء من الترحيل في الاوبش بوتم الاول يتم تفعيل الاوبش بوتم الثاني او الثالث الذي يحتوي على رقم

[nicola]

للرفع

[محمد عامر]

up

[محمد عامر]

للرفع

[محمد عامر]

للرفع

[عبدالله المجرب]

السلام عليكم

استبدل الكود السابق بهذا

 

 

 

Private Sub CommandButton3_Click()
Dim T As Integer, i As Integer
If Val(Label5) And OptionButton1.Value = True Then
For i = 1 To Val(Label5)
 Label5.Caption = Val(Label5) - 1
With Sheets("Sheet1")
                Endrow = .Range("A1").CurrentRegion.Rows.Count
                .Cells(Endrow + 1, 1).Value = Endrow
                .Cells(Endrow + 1, 2).Value = TextBox1.Value
                .Cells(Endrow + 1, 3).Value = TextBox2.Value
                .Cells(Endrow + 1, 4).Value = TextBox3.Value
               .Cells(Endrow + 1, 5).Value = TextBox4.Value
End With
Next
ClerMe
For T = 2 To 3
If Val(Me.Controls("Label" & T + 4)) > 0 Then Me.Controls("OptionButton" & T) = True: Exit Sub
Next
End If
'=======================================
If Val(Label6) And OptionButton2.Value = True Then

For i = 1 To Val(Label6)
 Label6.Caption = Val(Label6) - 1
With Sheets("Sheet1")
                Endrow = .Range("A1").CurrentRegion.Rows.Count
                .Cells(Endrow + 1, 1).Value = Endrow
                .Cells(Endrow + 1, 2).Value = TextBox1.Value
                .Cells(Endrow + 1, 3).Value = TextBox2.Value
                .Cells(Endrow + 1, 4).Value = TextBox3.Value
               .Cells(Endrow + 1, 5).Value = TextBox4.Value
End With
Next
ClerMe
If Val(Label7) > 0 Then OptionButton3.Value = True: Exit Sub

End If
'====================================================
If Val(Label7) And OptionButton3.Value = True Then

For i = 1 To Val(Label7)
 Label7.Caption = Val(Label7) - 1
With Sheets("Sheet1")
                Endrow = .Range("A1").CurrentRegion.Rows.Count
                .Cells(Endrow + 1, 1).Value = Endrow
                .Cells(Endrow + 1, 2).Value = TextBox1.Value
                .Cells(Endrow + 1, 3).Value = TextBox2.Value
                .Cells(Endrow + 1, 4).Value = TextBox3.Value
               .Cells(Endrow + 1, 5).Value = TextBox4.Value
End With
Next
ClerMe
If Val(Label5) Then OptionButton1.Value = True: Exit Sub
If Val(Label6) Then OptionButton2.Value = True: Exit Sub
End If
End Sub
Sub ClerMe()
For i = 1 To 4
Me.Controls("TextBox" & i) = Clear
Next
End Sub

[محمد عامر]

شكرا جزيلا لك اخي عبد الله

وجزاك الله كل خير