kh34d

استاذ ياسر هذا هو الكود الذي استخدمه لترحيل بيانات الفاتوره من صفحة الفاتورة الي صفحة الفواتير المجمعه ( كود حفظ الفاتورة) Sub AutoShape138_Click() Sheets("invoice").Activate Application.ScreenUpdating = False Sheets("invoice").Unprotect ("11") If Range("d7,d10") <> "" Then Range("a5:m27").Select ActiveWindow.SmallScroll Down:=-27 Selection.Copy Sheets("recycle").Select ActiveWindow.View = xlNormalView ActiveWindow.SmallScroll Down:=-15 Range("a3").Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("invoice").Activate Range("b26").Select Range("d10:d24,d7").ClearContents Range("d5").Value = Range("d5").Value + 1 MsgBox تم حفظ الفاتورة بنجاح", vbInformation + vbMsgBoxRight, "الحمد لله" Dim ring As Range Set ring = Range("d10:d25") For Each cell In ring If cell.Value = "" Then cell.EntireRow.Hidden = False End If Next cell Else MsgBox " من فضلك ادخل بيانات الفاتورة اولا", vbInformation + vbMsgBoxRight, "تنبية" End If Sheets("invoice").Protect ("11") Application.ScreenUpdating = True End Sub هذا الكود ينسخ بيانات الفاتورة كما هي ثم يقوم بمسح بيانات الفاتورة الاصليه لتسجيل الفاتوره الجديده وقبل ذلك فانا عامل (مكرو للطباعه) يقوم اولا باخفاء الصفوف الفارغه في الفاتورة قبل طبعها.... ثم استخدم (ماكرو الحفظ السابق) ثانيا لترحيل الفاتورة ثم اظهار الصفوف الفارغه مره اخره بالفاتورة الاصليه المشكله تكون عند الترحيل بهذا الكود ...تظهر الصفوف المخفيه في صفحة الفواتير المجمعه ...وانا لا اريد ان تظهر تلك الصفوف الفارغه المخفيه ارجوا ان اكون شرحت المشكله شرحا وافيا بدلا من ارفاق الملف وشكرا لمجهودكم في حل مشاكل الاعضاء

للاسف مش هاعرف ارفعه علي المنتدي في الوقت الحالي لان الملف كبير وعليه شغل كتير ومتفرع ...فاهمني حضرتك شكرا علي الرد انا مش عايز الطريقه اليدوي ..انا عايز كود vba لاجعله داخل الماكرو ويتم الترحيل اتوماتيك

بارك الله فيك وشكرا علي ردك في الواقع انا لا اريد للصفوف المخفيه ان يتم ترحيلها (لانها فارغه) لاعتقادي بان الصفحة المرحل لها كبيره فقد تعدت 6000 سطر ...مما يجعل الملف ثقيل ..وصل حجمه الي 2 ميجا وفي نفس الوقت لا اريد ان احذفها من الفاتورة الاصليه كي املئها مرة اخري بعد ذلك فالمطلوب عندما ارحل الفاتورة( بها اسطر مملوءه ....واسطر اخري فارغه مخفيه) ان يتم ترحيل الفاتورة بالاسطر المملوءة فقط ولا تظهر الاسطر الفارغه المخفيه

السلام عليكم اخواني الكرام عندي جدول/ فاتورة اريد ان ارحلها الي صفحه اخري المشكله انه به بعض الصفوف المخفيه........وعند الترحيل يتم اظهار تلك الصفوف بعد الترحيل....وانا اريد ان تظل مخفيه؟؟ هل هناك كود معين لعمل ذلك؟ ...وشكرا