تلوين البيانات التي يتم ترحيلها

[طارق نادر]

اخواني ارفق كود الترحيل التالي وارجو منكم  اضافة علية امر تلوين البيانات االتي يتم ترحيلها وشكرا لكم دائما وابدا

Private Sub CommandButton11_Click()
Dim SH As Worksheet
Set SH = ThisWorkbook.Sheets("ÇáãÏÑÇÁ (2)")
Workbooks.Application.Visible = True
Application.ScreenUpdating = False

x = SH.Cells(Rows.Count, 2).End(3).Row + 1

Set my_rg = SH.Range("b" & x).Resize(1, 16)
8
For i = 1 To my_rg.Count

  my_rg.Cells(i) = Me.Controls("TextBox" & i + 1).Value
  
 Next

Application.ScreenUpdating = True
End Sub

 

[طارق نادر]

للرفع

[طارق نادر]

للرفع

[طارق نادر]

للرفع

 

[طارق نادر]

للرفع