تلوين الصف من خلال الفورم

[طارق نادر]

السلام عليكم

لدي فورم يوجد عليه زر  حفظ وتعديل اريد منكم مساعدتي في اضافة امر اخر لهذا الزر وهو تلوين الصف الذي تم تعديله بحيث عند التعديل ينفذ امرين في نفس الوقت

Dim ws As Worksheet, LastRow As Long
Set ws = ThisWorkbook.Sheets("ÇáÈíÇäÇÊ")

LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1
    
If Me.ComboBox1.Text <> "" Then
  For T = 2 To LastRow
    If Me.ComboBox1.Text = ws.Cells(T, 3) Then
      For i = 2 To 17
       ws.Cells(T, i).Value = Me.Controls("TextBox" & i).Value
      Next
      MsgBox "Êã ÊÚÏíá ÈíÇäÇÊ ÇáãæÙÝ ÈäÌÇÍ", vbOKOnly + vbInformation, "Êã ÇáÊÚÏíá"
      GoTo 1
    End If
  Next
End If
1
For i = 2 To 17
 Me.Controls("TextBox" & i).Value = ""
 Next
CommandButton3.Enabled = False
CommandButton4.Enabled = False

Me.ComboBox1.Clear
TextBox2.SetFocus
End Sub

 

[طارق نادر]

للرفع

[ياسر خليل أبو البراء]

جرب إضافة السطر التالي

ws.Cells(T, 3).Resize(1, 10).Interior.Color = vbCyan

بعد هذا السطر

If Me.ComboBox1.Text = ws.Cells(T, 3) Then

حيث الرقم 10 عدد الأعمدة المطلوب تلوينها بدايةً من العمود الثالث

[طارق نادر]

كل الشكر لك...جاري التجريب  وسأعلمك بالنتيجة

كل الشكر والتقدير ابو البراء حسب المطلوب بالضبط لك احترامي وتقديري

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات ..

بارك الله فيك أخي الكريم طارق .. تقبل وافر تقديري واحترامي

[طارق نادر]

هذا كود اخر اريد  ان اضيف اليه امر لكي يتم تلوين الصف الذي احفظه فيه اذا تكرمت اخي ابو البراء نفس المطلب الاول حاولت ان ان الصق الامر الذي اعطيتني اياه في اكثر من مكان في الكود ولكن لم يحدث شيء

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