مطلوب كود بسيط لتعديل بيانات سبق إدخالها

[Reema2018]

 

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

مطلوب كود بسيط لتعديل بيانات موظف سبق إدخالها

فى الملف المرفق يكون العمل من خلال اليوزرفورم

 

اسم المستخدم

Reem

كلمة المرور

232629

 

 

 

برنامج شئون عاملين 2021.rar

[Reema2018]

هذا الكود يعمل على برنامج قديم عندى بكفاءة

لكن لا أعلم لماذا لا يعمل هنا فى هذا الملف

أرجو التعديل بما يناسب الملف المرفق أعلاه

Dim i As Integer
t = Cells(Rows.Count, "b").End(xlUp).Row
For i = 11 To t
If Val(Me.TextBox1) = Cells(i, 2) Then
'If Me.ComboBox1.Value = "" _
'Then: MsgBox "áã ÊÞã ÈÇÎÊíÇÑ ÇáÇÓã ÇáãÑÇÏ ÊÚÏíáå", fadel, "ali ": Exit Sub
'Cells(i, 2).Value = Me.TextBox1.Value
ٍSheet2.Cells(i, 3).Value = Me.TextBox2.Value
Sheet2.Cells(i, 4).Value = Me.TextBox3.Value
Sheet2.Cells(i, 5).Value = Me.TextBox4.Value
Sheet2.Cells(i, 6).Value = Me.TextBox5.Value
Sheet2.Cells(i, 7).Value = Me.TextBox6.Value
Sheet2.Cells(i, 8).Value = Me.TextBox7.Value
Sheet2.Cells(i, 9).Value = Me.TextBox8.Value
Sheet2.Cells(i, 10).Value = Me.TextBox9.Value
Sheet2.Cells(i, 11).Value = Me.TextBox10.Value
Sheet2.Cells(i, 12).Value = Me.TextBox11.Value
Sheet2.Cells(i, 13).Value = Me.TextBox12.Value
Sheet2.Cells(i, 14).Value = Me.TextBox13.Value
Sheet2.Cells(i, 15).Value = Me.TextBox14.Value
Sheet2.Cells(i, 16).Value = Me.TextBox15.Value
Sheet2.Cells(i, 17).Value = Me.TextBox16.Value
Sheet2.Cells(i, 18).Value = Me.TextBox17.Value
Sheet2.Cells(i, 19).Value = Me.TextBox18.Value
Sheet2.Cells(i, 20).Value = Me.TextBox19.Value
Sheet2.Cells(i, 21).Value = Me.TextBox20.Value


  End If
Next i
Me.TextBox1.Value = ""
Me.ComboBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
Me.TextBox7.Value = ""
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.TextBox11.Value = ""
Me.TextBox12.Value = ""
Me.TextBox13.Value = ""
Me.TextBox14.Value = ""
Me.TextBox15.Value = ""
Me.TextBox16.Value = ""
Me.TextBox17.Value = ""
Me.TextBox18.Value = ""
Me.TextBox19.Value = ""
Me.TextBox20.Value = ""



         '-----------------------------------------
        
      
 MsgBox ("Êã ÇáÊÚÏíá ÈäÌÇÍ")
 Me.Hide
UserForm3.Show
        

 

تم تعديل يونيو 15, 2018 بواسطه Reema2018

[Reema2018]

فى انتظار تعديل الكود

 

[Reema2018]

تم عمل بعض التعديلات على الملف

لكن يبقى كود تعديل بيانات موظف

 

 

شئون عاملين تحت التعديل.rar

[Reema2018]

الحمد لله تم حل المشكلة

قمت بالتعديل على أحد أكواد الملف

وتم حل هذه المشكلة

وأصبح الملف يعمل بكفاءة تامة