Reema2018 قام بنشر يونيو 14, 2018 قام بنشر يونيو 14, 2018 السلام عليكم ورحمة الله وبركاته مطلوب كود بسيط لتعديل بيانات موظف سبق إدخالها فى الملف المرفق يكون العمل من خلال اليوزرفورم اسم المستخدم Reem كلمة المرور 232629 برنامج شئون عاملين 2021.rar
Reema2018 قام بنشر يونيو 15, 2018 الكاتب قام بنشر يونيو 15, 2018 (معدل) هذا الكود يعمل على برنامج قديم عندى بكفاءة لكن لا أعلم لماذا لا يعمل هنا فى هذا الملف أرجو التعديل بما يناسب الملف المرفق أعلاه 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 قام بنشر يونيو 16, 2018 الكاتب قام بنشر يونيو 16, 2018 تم عمل بعض التعديلات على الملف لكن يبقى كود تعديل بيانات موظف شئون عاملين تحت التعديل.rar
Reema2018 قام بنشر يونيو 16, 2018 الكاتب قام بنشر يونيو 16, 2018 الحمد لله تم حل المشكلة قمت بالتعديل على أحد أكواد الملف وتم حل هذه المشكلة وأصبح الملف يعمل بكفاءة تامة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.