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

[roross]

السلام عليكم

أريد مساعدتكم في 

عند حفظ تعديل الفاتورة في قاعدة البيانات تنزل إلى آخر خلية فارغة

أنا أريد أن يحفظ تعديل الفاتورة في مكانها

وشكرا

فاتورة.xlsm

[roross]

لا بل أريد أن يكون تعديل الفاتورة في مكانه أي مثل ما في الصورة مكان الفاتورة رقم 1 في الصفوف الأولى بعد التعديل نزلت إلى الصفوف الأخيرة

السلام عليكم

وجدت هذا الحل هل هو ملائم

If StrSearch <> Application.WorksheetFunction.Max(d.Range("A3:A" & d.[A10000].End(xlUp).Row)) Then
    
    r = d.Range("A:A").Find((StrSearch), LookAt:=xlWhole).Row
    s = d.Range("A:A").Find((StrSearch + 1), LookAt:=xlWhole).Row

    d.Range("A" & r & ":F" & d.[F10000].End(xlUp).Row).Cut

    d.Range("A" & s).EntireRow.Insert Shift:=xlDown

    End If

فاتورة1.xlsm

[roross]

زر حفظ في قاعدة البيانات يعمل على إضافة و  تعديل الفاتورة 

 

فاتورة2.xlsm