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