تعديل المبلغ واعتماد التعديل

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل

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

برجاء المساعدة في الملف المرفق

تحياتي لكم

Book188.rar

[الـعيدروس]

السلام عليكم

أضف هذه الأكواد في حدث الفورم

Private Sub ALI_P()

Dim T%

With ActiveSheet

For T = 1 To 5

If Me.Controls("checkbox" & T).Value = True Then

Select Case T

	    Case Is = 1

	    .Cells(2, "d").Value = TextBox16.Text

	    Case Is = 2

	    .Cells(3, "d").Value = TextBox17.Text

	    Case Is = 3

	    .Cells(4, "d").Value = TextBox18.Text

	    Case Is = 4

	    .Cells(5, "d").Value = TextBox19.Text

	    Case Is = 5

	    .Cells(6, "d").Value = TextBox20.Text

End Select

End If

Next

End With

End Sub

Private Sub CommandButton1_Click()

ALI_P

End Sub

وهذا المرفق

ALI_CH.rar

تم تعديل فبراير 26, 2012 بواسطه alidroos

[skyblue]

نعم هذا المطلوب . اشكرك استاذ علي العيدروس على الحل بهذه السرعة وطالما تعلمت منك الكثير والكثير وافدتني وقدمت لي خدمات لاتقدر بثمن فان ادعوا الله ان يوفقك في كل شي ويجعل دربك نورا

تحياتي الخاصة لك

[الـعيدروس]

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

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

هذا مانتمناه دعوة بظهر الغيب

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