roross قام بنشر يناير 27, 2020 مشاركة قام بنشر يناير 27, 2020 السلام عليكم أريد مساعدتكم في عند حفظ تعديل الفاتورة في قاعدة البيانات تنزل إلى آخر خلية فارغة أنا أريد أن يحفظ تعديل الفاتورة في مكانها وشكرا فاتورة.xlsm رابط هذا التعليق شارك More sharing options...
roross قام بنشر يناير 29, 2020 الكاتب مشاركة قام بنشر يناير 29, 2020 لا بل أريد أن يكون تعديل الفاتورة في مكانه أي مثل ما في الصورة مكان الفاتورة رقم 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 رابط هذا التعليق شارك More sharing options...
roross قام بنشر يناير 29, 2020 الكاتب مشاركة قام بنشر يناير 29, 2020 زر حفظ في قاعدة البيانات يعمل على إضافة و تعديل الفاتورة فاتورة2.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.