تلوين البيانات بعد الاضافة الى الشيت

[طارق نادر]

السلام عليكم

لدي فورم يوجد عليه زر  جديد اريد منكم مساعدتي في اضافة امر اخر لهذا الزر وهو (تلوين الصف ) الذي تم اضافته الى الشيت

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

الذي تم اضافته بحيث عند الاضافة ينفذ امرين في نفس الوقت

[طارق نادر]

للرفع...رفع الله مقامكم

[طارق نادر]

للرفع

[ابراهيم الحداد]

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

ضع السطر التالى بين السطر الثامن و السطر التاسع

.Cells(LastRow, i).Interior.ColorIndex = 10

 

تم تعديل أبريل 21, 2017 بواسطه زيزو العجوز

[طارق نادر]

اشكرك اخي الكريم يتم تنفيذ امر اللون على خلية واحدة وليس على الصف

[طارق نادر]

للرفع

[طارق نادر]

4 ساعات مضت, n_tareq said:

البيانات

للرفع

[ابراهيم الحداد]

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

هذا الامر يسمح بتلوين الصف من العمود 2 حتى العمود 17 وبعد التجريب

هل تريد تلوين الصف الى آخر عمود فى الشيت

 

[طارق نادر]

11 ساعات مضت, n_tareq said:

لا اخي الكريم ولكن احتمال كبير اني اخطأت في لصق الامر في المكان المناسب ..اذا تكرمت ان تضعه في المكان المناسب في الكود الذي ارفقته ..

للرفع

[طارق نادر]

كل شكر وتقدير لك اهي العزيز لقد تم المطلوب