Ali Mohamed Ali

تفضل اخى الكريم شهادات سادس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

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

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

أحسنت استاذنا الكريم وزادك الله من فضله-عمل رائع

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

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

بارك الله فيكم جميعا وجزاكم الله جميعا كل خير وكل عام وانتم بخير وشكرا على ثقتكم بى

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

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

الف مبروك للأستاذ وجيه ترقية مستحقة ان شاء الله

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

تفضل رصد الدرجات1.xlsm