كود زر تعديل البيانات

[شبل ليث]

السلام عليكم اعضاء المنتدى الكرام

يرجى مساعدتي في كود زر تعديل البينات الذي اضفته على (userform1) في شيت (العمليات) عند الضغط على زر (اضافة وتعديل) يظهر الفورم وكتابة (رمز المنتسب) في تيكست بوكس (البحث برمز المنتسب) تظهر بيانات المنتسب وعند التعديل عليها نضغط الزر (تعديل)

اريد ان يقوم الكود بالتعديل على البيانات في شيت (الملاك)

واشكر لكم تعاونكم معي مع التقدير 

تجربة ملاك 2020.xlsb

[سليم حاصبيا]

حاول ان تستعمل الحلفات التكرارية لاختصار الكود  (بين علامات الــــ ++++)
    (لأن 5 تكست بوكسات عدد مقبول ربما يكون هناك 50 تكس بوكس
    فهل يجب ان نذكرها واحداً واحداً في الكود ؟؟؟)
     (/ كل واحد مرتين مرة لنسخه الى الخلية ومرة ثانية لمسح محتواه / )

مثلاً زر الاضافة 

Option Explicit

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
Dim lr, i%
Application.EnableEvents = False
Set Ws = Sheets("الملاك")
lr = Ws.Cells(Rows.Count, 2).End(3).Row
     
     If TextBox1 = "" Then _
      MsgBox "عفوا يجب ادخال الرمز", _
      vbExclamation: GoTo End_Me
    
    If Application.WorksheetFunction. _
     CountIf(Ws.Range("b2:b" & lr), TextBox1) > 0 Then _
     MsgBox "عفوا هذا الرمز موجود", _
     vbInformation: GoTo End_Me
     
       Ws.Range("A" & lr + 1) = lr
'+++++++++++++++++++++++++++++++++++++++++++++
      For i = 0 To 4
           With Ws.Range("b" & lr + 1)
          .Offset(, i) = Me.Controls("TextBox" & i + 1)
           Me.Controls("TextBox" & i + 1) = vbNullString
          End With
       Next
'+++++++++++++++++++++++++++++++++++++++++++++++++
    MsgBox "تمت الاضافة بنجاح"
  
End_Me:
  TextBox1.SetFocus
  Application.EnableEvents = True
End Sub

بالنسبة للزر "اظهار اخر رمز"

Private Sub CommandButton3_Click()
Dim Ws As Worksheet
Dim lr%, I%
Set Ws = Sheets("الملاك")
lr = Ws.Cells(Rows.Count, 2).End(3).Row
For I = 1 To 5
    Me.Controls("TextBox" & I).Value = _
     Ws.Range("b" & lr).Offset(, I - 1)
 Next

End Sub

 

[شبل ليث]

ااعتذر من الاستاذ سليم حاصبيا ومن اعضاء المنتدى لانني ارفقت الملف الخطا

ارجو قبول اعتذاري ومساعدتي في كود زر تعديل البيانات(commandutton4) في (userform1) من شيت (العمليات) ليقوم (زر التعديل) بتعديل البيانات على شيت (الملاك)

ولكم مني شديد الاعتذار والامتنان 

وارفق الملف المطلوب ادناه

ملاك 2020 للتعديل.xlsb

[سليم حاصبيا]

تم معالجة الامر

     لأظهار الفورم اضغط على الزر  "CLICK" (يمكنك العمل على الشيت حنى ولو كان اليوزر ظاهراً)
1- تقوم  بكنابة الرمز الذي تريد في  النكست بوكس الاصفر
2 -تقوم باستدعاء ببانات هذا الرمز الى التكست بوكسات الباقية من خلال الضغط على الزر " استدعاء"
3- تفوم بتعديل ما تريد في التكسن بوكسات
4- تضغط على الزر تعديل
5- بهذا تنتقل البيانات الى المكان المناسب في الشيت

الملف مرفق

Shible.xlsb

[شبل ليث]

اعتذر من الاستاذ المبدع سليم حاصبيا على تاخري في ابداء الاعجاب على هذه المساعدة الجليلة علماً انه قد ساعدني منذ المراحل الاولى في انشاء هذا العمل وابدى كل المساعدة لي فتحية من خالص قلبي لهذا المبدع وفقه الله لفعل الخير وابداء المساعدة .

وتقديري لجميع الاعضاء ادامهم الله