hayyan alaa قام بنشر مايو 30, 2019 مشاركة قام بنشر مايو 30, 2019 هل يمكن في اكسل ان اقوم بترحيل البيانات الى صفحة جديدة بعد امتلاء الصفحة القديمه؟؟؟؟ كيف اقوم بذلك؟؟؟ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 30, 2019 مشاركة قام بنشر مايو 30, 2019 كل صفحة من اكسل 2010 تحتوي على: 1,048,576 صف (اكثر من مليون صف ) 16,384 عامود (اكثر من 16000 عامود) اي 1048576 × 16384=17,179,869,184 خلية (اكثر من 17 مليار خلية ) اكثر بثلاث مرات عدد سكان الارض هل تستطيع أن تملأها بيانات للتأكيد هذا الماكرو Option Explicit Sub Cells_numbe() Dim x, y, z x = ActiveSheet.Rows.Count y = ActiveSheet.Columns.Count z = x * y Cells(1, 1) = "Rows Count" Cells(1, 2) = "Columns Count" Cells(1, 3) = "Cells Count" Cells(2, 1) = x Cells(2, 2) = y Cells(2, 3) = z End Sub 5 2 رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر مايو 30, 2019 مشاركة قام بنشر مايو 30, 2019 كود رائع استاذ سليم بارك الله فيك رابط هذا التعليق شارك More sharing options...
hayyan alaa قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 (معدل) عذرا والخطأ مني ولكن اقصد جدول محدد في تلك الصفحة واريد ان انتقل الى جدول جديد في صفحة جديد يتم إنشاؤه اليا تم تعديل مايو 31, 2019 بواسطه hayyan alaa رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر مايو 31, 2019 مشاركة قام بنشر مايو 31, 2019 عليك برفع ملف وشرح المطلوب عليه بكل دقة واعطاء شكل للنتائج المطلوبة -فلا يمكن العمل على التخمين !!!!! 1 رابط هذا التعليق شارك More sharing options...
hayyan alaa قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 ارجو ان اكون قد اوضحت المطلوب في هذا المرفق من جديد اقول اعذروا جهلي وبارك الله بكم 33.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 31, 2019 أفضل إجابة مشاركة قام بنشر مايو 31, 2019 جرب هذا الماكرو (تم تغيير اسماء الصفحات لحسن عمل الكود بالنسبة لنسخه (حتى لا تظهر احرف غريبة) Sub Salim_Macro() Rem Created On 31/5/2019 By Salim Hasbaya Application.ScreenUpdating = False Dim New_ro% Dim t%: t = Sheets(Sheets.Count).Index Dim target_sh As Worksheet Dim M_sh As Worksheet Set M_sh = Sheets("main") Dim last_ro% laste_ro = Sheets(t).Cells(Rows.Count, 1).End(3).Row Select Case laste_ro Case 11 Set target_sh = Sheets.Add(after:=Sheets(t)) ActiveSheet.Name = "MY_sh" & t - 1 M_sh.Range("a1:c1").Copy ActiveSheet.Range("a1") End Select Set target_sh = Sheets(Sheets.Count) New_ro = target_sh.Cells(Rows.Count, 1).End(3).Row + 1 M_sh.Range("a2:c2").Copy _ target_sh.Cells(New_ro, 1) M_sh.Select Application.ScreenUpdating = True End Sub 33_salim.xlsm 3 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر مايو 31, 2019 مشاركة قام بنشر مايو 31, 2019 أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك وزادك الله من فضله 2 رابط هذا التعليق شارك More sharing options...
hayyan alaa قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 استاذ سليم انت رااااااااائع شكرا جزيلا لك ولكل الاساتذة و المتابعين 1 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مايو 31, 2019 مشاركة قام بنشر مايو 31, 2019 الله عليك استاذ سليم انت رايق فى هذا الكود جزاكم الله خير 1 رابط هذا التعليق شارك More sharing options...
hayyan alaa قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 (معدل) 3 hours ago, سليم حاصبيا said: جرب هذا الماكرو (تم تغيير اسماء الصفحات لحسن عمل الكود بالنسبة لنسخه (حتى لا تظهر احرف غريبة) Sub Salim_Macro() Rem Created On 31/5/2019 By Salim Hasbaya Application.ScreenUpdating = False Dim New_ro% Dim t%: t = Sheets(Sheets.Count).Index Dim target_sh As Worksheet Dim M_sh As Worksheet Set M_sh = Sheets("main") Dim last_ro% laste_ro = Sheets(t).Cells(Rows.Count, 1).End(3).Row Select Case laste_ro Case 11 Set target_sh = Sheets.Add(after:=Sheets(t)) ActiveSheet.Name = "MY_sh" & t - 1 M_sh.Range("a1:c1").Copy ActiveSheet.Range("a1") End Select Set target_sh = Sheets(Sheets.Count) New_ro = target_sh.Cells(Rows.Count, 1).End(3).Row + 1 M_sh.Range("a2:c2").Copy _ target_sh.Cells(New_ro, 1) M_sh.Select Application.ScreenUpdating = True End Sub 33_salim.xlsm 23.72 kB · 3 downloads لقد اذهلتني فعلا سؤالي لك يا استاذ اين ذهب الماكرو الذي قمت انا بانشائه مسبقا و الذي مهمته ترحيل البيانات هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة و اخيرا اذا كان لديك من و قت هل بالامكان شرح الماكرو خاصتك خطوه بخطوه باركك الله فضلك كبيرر علي و على امثالي تم تعديل مايو 31, 2019 بواسطه hayyan alaa رابط هذا التعليق شارك More sharing options...
hayyan alaa قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 يا اساتذتنا الافاضل اسعد الله اوقاتكم الاستاذ سليم كفى و وفى بهاد الموضوع ولكن عندي طمع بالعلم و الاحاطة بهادا الموضوع اكتر فهل يوجد لدى احدكم طريقة أخرى لحل هذا الموضوع ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 31, 2019 مشاركة قام بنشر مايو 31, 2019 2 ساعات مضت, hayyan alaa said: لقد اذهلتني فعلا سؤالي لك يا استاذ اين ذهب الماكرو الذي قمت انا بانشائه مسبقا و الذي مهمته ترحيل البيانات هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة و اخيرا اذا كان لديك من و قت هل بالامكان شرح الماكرو خاصتك خطوه بخطوه باركك الله فضلك كبيرر علي و على امثالي اين ذهب الماكرو الذي قمت انا بانشائه ===> لا لزوم له تم مسحه هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة ===> بالطبع هذه مهمته 1- اذا كان عدد الصفوف المملوءة في الشيت الاخير اقل من 11 يتم اضافة ما تريد الى اول صف فارغ في نفس الصفجة حتى يصل عدد الصفوف الى 11 2- و اذا كان عدد الصفوف المملوءة في الشبت الاخير يساوي 11 يتم ادراج شيت جديد الذي يأخد اسم الشيت الذي قبله زائد واحد ويذلك يكون هذا الشيت قد اصبح بدوره اخر شيت و تتم اضافة ما تريد اليه ابتداء من الصف الثاني حتى الرقم 11 ووهكذا دواليك 1 رابط هذا التعليق شارك More sharing options...
hayyan alaa قام بنشر مايو 31, 2019 الكاتب مشاركة قام بنشر مايو 31, 2019 22 minutes ago, سليم حاصبيا said: اين ذهب الماكرو الذي قمت انا بانشائه ===> لا لزوم له تم مسحه هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة ===> بالطبع هذه مهمته 1- اذا كان عدد الصفوف المملوءة في الشيت الاخير اقل من 11 يتم اضافة ما تريد الى اول صف فارغ في نفس الصفجة حتى يصل عدد الصفوف الى 11 2- و اذا كان عدد الصفوف المملوءة في الشبت الاخير يساوي 11 يتم ادراج شيت جديد الذي يأخد اسم الشيت الذي قبله زائد واحد ويذلك يكون هذا الشيت قد اصبح بدوره اخر شيت و تتم اضافة ما تريد اليه ابتداء من الصف الثاني حتى الرقم 11 ووهكذا دواليك اعجز بالكلام عن وصفك يا رائع انا مبتدئ في هذا المجال و هل من نصائح لديك تفيدني في التدرج في مجالvba رابط هذا التعليق شارك 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.