كود الحفظ والترحيل والبحث والتعديل في الاكسل

اكواد الحفظ والبحث والتعديل
كود الحفظ
Sub SaveName_Click()
Dim Last As Integer
Last = Sheet2.Range("a99999").End(xlUp).Row + 1
Sheet2.Cells(Last, "a").Value = Sheet1.Range("c4").Value
Sheet2.Cells(Last, "b").Value = Sheet1.Range("c5").Value
Sheet2.Cells(Last, "c").Value = Sheet1.Range("c6").Value
Sheet1.Range("c4:c6").Value = ""
End Sub

كود البحث
Sub searchName_Click()
Sheet2.Range("h1").Value = Sheet1.Range("c2").Value
Dim L As Integer
L = Sheet2.Range("i1").Value
Sheet1.Range("c4").Value = Sheet2.Cells(L, "a").Value
Sheet1.Range("c5").Value = Sheet2.Cells(L, "b").Value
Sheet1.Range("c6").Value = Sheet2.Cells(L, "c").Value
End Sub

كود التعديل
Sub UpdateName_Click()
Sheet2.Range("h1").Value = Sheet1.Range("c2").Value
Dim x As Integer
x = Sheet2.Range("i1").Value
Sheet2.Cells(x, "a").Value = Sheet1.Range("c4").Value
Sheet2.Cells(x, "b").Value = Sheet1.Range("c5").Value
Sheet2.Cells(x, "c").Value = Sheet1.Range("c6").Value
Sheet1.Range("c4:c6").Value = ""
End Sub

تحميل الملف
https://www.upload-4ever.com/7l1dq1ku...

صفحتنا علي فيس بوك
https://2u.pw/GAcnk

​لأي ملاحظة الرجاء التواصل معي
https://2u.pw/YHOeB

​whatsapp
+966546378444