Ali Mohamed Ali

وعليكم السلام اخى الكريم -نورت المنتدى لابد من رفع الملف داخل المنتدى وليس برابط خارجى كما عليك جعل عنوان المشاركة دال على ما تطلب وتريد حتى يسهل البحث بعد ذلك

بارك الله فيك استاذ أحمد وجزاك الله كل خير

وضح من فضلك على الملف او عليك برفع صورة لما يحدث معك فالملف يعمل لدى بكل بساطة

السلام عليكم واهلا بك فى المنتدى كل عام وانتم بخير -عليك من البداية رفع الملف داخل المنتدى وليس برابط خارجى حتى تسهل على الأساتذة المساعدة فقد قمت برفع الملف هنا ولكن عليك برفع نموذج مصغر من هذا الملف لكى تتم المساعدة ببساطة ان شاء الله فالملف يتعدى 8 ميجا فعليك برفع نموذج مصغر بعد التوضيح بكل دقة على الملف ما هو المطلوب بالضبط

أحسنت أستاذ خلف كود ممتاز جعله الله في ميزان حسناتك وكل عام وانتم بخير

وعليكم السلام تفضل Book2.xlsx

وعليكم السلام التنسيق الشرطى.xlsx

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

اهلا بك اخى الكريم ashra اهلا بك في منتدانا الكريم الملف موجود قبل مشاركتك بمشاركتين , في مشاركة الأستاذ عبد الرحيم تفضل البرنامج مرة اخرى user : How To Excel pass: hte اقرار ضريبة القيمة المضافة.rar

احسنت أستاذ عادل عمل رائع بارك الله فيك

ملف ممتاز بارك الله فيك أستاذ عادل وزادك الله من فضله وكل عام وانتم بخير

تفضل اخى الكريم شهادات سادس2018-2019.xls

احسنت استاذنا الكريم تعديلات مهمة ومعادلة ممتازة جعله الله في ميزان حسناتك

شكرا لك اخى الكريم خلف بارك الله فيك

جزاك الله كل خير استاذى الكريم وبارك الله فيك

من فضلك أستاذ aboesa لا تقوم بتكرار المشاركات لنفس التساؤل والطلب حتى لا يتم حذف الموضوع ,لقد تم دمج المشاركتين هنا بارك الله في جميع الأساتذة كلها حلول ممتازة بارك الله فيكم جميعا

أحسنت استاذنا الكبير عادل عمل رائع وحشتنا كتير لعل المانع خير بارك الله فيك وجزاك الله كل خير وكل عام وانتم بخير

راجع من فضلك هذا الروابط https://www.officena.net/ib/topic/90218-حل-مشكله-run-time-error-1004/ https://www.officena.net/ib/topic/68596-مشكلة-فى-كود-الترحيل-خطأ-run-time-error-1004/ وأيضا هذه روابط اخرى خارجىة للإصلاح https://www.compuchenna.co.uk/runtime-error-1004/ https://appuals.com/run-time-error-1004-in-excel/ http://www.repairmsexcel.com/blog/how-to-fix-runtime-error-1004

بارك الله فيك استاذى الكريم

بارك الله فيك أستاذ وجيه وجعله في ميزان حسناتك

وعليكم السلام يمكنك استخدام هذا الكود Sub Copy_Paste_Below_Last_Cell() Dim wsCopy As Worksheet Dim wsDest As Worksheet Dim lCopyLastRow As Long Dim lDestLastRow As Long Set wsCopy = Workbooks("v1.xlsm").Worksheets("Sheet1") Set wsDest = Workbooks("v2.xlsm").Worksheets("Sheet1") lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "D").End(xlUp).Row lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "D").End(xlUp).Offset(1).Row wsCopy.Range("D6:G" & lCopyLastRow).Copy _ wsDest.Range("D" & lDestLastRow) End Sub ترحيل من ملف اكسل الى اخر.rar

شكرا لك استاذى مينا وجزاك الله كل خير

بارك الله فيك استاذى الكريم وجزاك الله كل خير

دائما مبدع استاذنا الكريم سليم ولكن عند تجربة الكود يأتى بالبيانات صحيحة فى حالة تتابع الأسماء المكررة ولكن اذا كانت الأسماء المكررة متباعدة ومتفرقة فيأتى ببيانات خاطئة

بارك الله فيك استاذ موسى وشكرا جدا على هذا البرنامج الرائع ,ولكى تعم الفائدة فبعد اذنك طبعا سأقوم برفعه داخل المنتدى البيان_للمحاسبة.xlsm