السلام عليكم
لدي فورم يوجد عليه زر جديد اريد منكم مساعدتي في اضافة امر اخر لهذا الزر وهو (تلوين الصف ) الذي تم اضافته الى الشيت
Private Sub CommandButton3_Click()
Dim i As Integer, LastR As Long, ws As Worksheet
Set ws = ThisWorkbook.Sheets("البيانات")
LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
TextBox2 = LastRow - 1
With ws
For i = 2 To 17
.Cells(LastRow, i).Value = Me.Controls("TextBox" & i).Value
Next i
End With
MsgBox "تم حفظ بيانات الموظف بنجاح", vbOKOnly + vbInformation, "تم الحفظ"
For i = 2 To 17
Me.Controls("TextBox" & i).Value = ""
Next
CommandButton3.Enabled = False
CommandButton4.Enabled = False
Me.ComboBox1.Clear
TextBox2.SetFocus
End Sub
الذي تم اضافته بحيث عند الاضافة ينفذ امرين في نفس الوقت