نجوم المشاركات

السلام عليكم أضف هذه الأكواد في حدث الفورم 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