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

[خير الايمان]

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

اساتذنا الكرام

هل من الممكن تفعيل الزر بالمرفق ليقوم بالبحث عن الاسم المكتوب بالخلية C5 بالعمود G ليقوم بتعديل الراتب له بالخلية المقابلة له بالعمود H الى القيمة الممسجلة بالخلية D5

ولكم التقدير والاحترام

1.xlsx

[حسونة حسين]

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

تفضل

Sub test()
Dim X
  X = Application.Match(range("c5"), Columns(7), 0)
   If Not IsError(X) Then
      Cells(x , "H") = range("D5").Value
   Else
    Msgbox "لا يوجد هذا الاسم"
 End if
End sub

 

[خير الايمان]

استاذي الخلوق

كل الشكر والتقدير 

كود ولا اروغ

دمت بحفظ الله وامنه

[حسونة حسين]

آمين يارب العالمين 

الشكر لله والحمد لله الذي بنعمته تتم الصالحات