المساعدة في تعديل الكود

[وليد زين العايدن]

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

 

ارجو المساعدة في تعديل الكود المدرجح ان يتم الترحيل  الى الشيت المفعل وكود التعديل وكود المسح ايضا يقوما بالعمل في الشيت المفعل 

الكود للاستاذ مجدي يونس 

كود ادخال بيانات جديدة

Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("بيانات")
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
  كود تعديل البيانات
Dim i As Integer
For i = 1 To 200
If Val(TextBox12.Value) = Cells(i, 1) Then
Cells(i, 1) = TextBox1.Text
Cells(i, 2) = TextBox2.TextEnd If
Next
MsgBox "تمت الأضافة بنجاح"
Me.TextBox1.Value = ""
Me.TextBox2.Value = ""

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

كود بحث
Set sh12 = Sheets("بيانات")
LR = sh12.[a2000].End(xlUp).Row
For Each cl In sh12.Range("a5:a100" & LR)
If (Val(Me.TextBox12)) = cl Then
Me.TextBox1 = cl.Offset(0, 0)
Me.TextBox2 = cl.Offset(0, 1)

 

[حمادة عمر]

لتنفيذ طلبك اخي الكريم

قم باستبدال السطر التالي الموجود في الكود لديك وهو

Set ws = Worksheets("بيانات")

بالسطر التالي

Set ws = ActiveSheet

جرب واشعرنا بالنتائج

تقبل خالص تحياتي

[وليد زين العايدن]

الف شكر اخي حمادة الكود شغال