الرجاء المساعدة في حلقة تكرار لعملية الترحيل

[محمد عامر]

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

اعزائي اعضاء المنتدى الاكارم

ارجوا مساعدتكم في حلقة تكرار لعميلة الترحيل

حيث اني لا امتلك الخبرة الكافية في التعامل حلقات التكرار واستخدامها

لذلك اتمنى مساعدتكم

والمرفق فية التفاصيل

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

حلقة تكرار عملية ترحيل.rar

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

غير كود زر الترحيل بالكود التالي

Private Sub CommandButton1_Click()

If Label5.Caption = "" Then Exit Sub

Label5.Caption = Val(Label5.Caption) - 1

If Val(Label5.Caption) = 0 Then CommandButton2.Enabled = True

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

TextBox1.Value = Clear

TextBox2.Value = Clear

TextBox3.Value = Clear

TextBox4.Value = Clear

End Sub

[طارق محمود]

السلام عليكم

بعد إذن أخي أبوحنين

يمكنك أيضا إضافة هذه الجزئية والتي ستوقف عمل الزر الأول

إستبدل السطر الثالث من كود أخي أبوحنين والذي كان

If Val(Label5.Caption) = 0 Then CommandButton2.Enabled = True

ليكون

If Val(Label5.Caption) = 0 Then CommandButton2.Enabled = True: CommandButton1.Enabled = False: TextBox1.Enabled = False

حيث أنه بدون هذه الإضافة سيستمر بالسماح بالإضافة لأن الفورم ماتزال مفعلة

[محمد عامر]

اساتذتي الاكارم

بارك الله فيك

وشكرا جزيلا لكم

تم تعديل يناير 21, 2013 بواسطه محمد عامر

[محمد عامر]

السلام عليكم اساتذتي الاكارم

ارجوا مساعدتكم تسلسل عملية الانتقال من قيمة الى اخرى عند الانتهاء من الانتقال من القيمة الاولى

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

وشكر لكم

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

[محمد عامر]

للرفع

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

حسب علمي لا يمكن ان يتم تفعيل 2 مع بعض

والله اعلم

[محمد عامر]

شكر لكي اخي عبد الله لمساهمتك قصدي بالتفعيل معا ان يكون متتالي

اي عند الانتهاء من الاولى يتم الانتقال الى الثانية

تم تعديل يناير 26, 2013 بواسطه محمد عامر

[محمد عامر]

السلام عليكم

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

 

ارجوا مساعدتكم في عند توجد قيمين حيث اريد عند الانتهاء من العد من OptionButton1 الانتقال
الى OptionButton3  وتكرر عملية الترحيل حتى الوصول للصفر

وكذلك الامر بالنسبة عندما تتوجد قيمتين عند OptionButton2  وOptionButton3 

بعد الانتهاء من القيمة الاولى الانتقال الي القيمة الثانية

تم تعديل يناير 26, 2013 بواسطه محمد عامر

[محمد عامر]

للرفع