ترحيل البيانات الى صفحة جديدة

[hayyan alaa]

هل يمكن في اكسل ان اقوم بترحيل البيانات الى صفحة جديدة بعد امتلاء الصفحة القديمه؟؟؟؟

 كيف اقوم بذلك؟؟؟

[سليم حاصبيا]

كل صفحة من اكسل  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

 

[مهند محسن]

كود رائع استاذ سليم بارك الله فيك

[hayyan alaa]

عذرا والخطأ مني

ولكن اقصد جدول محدد في تلك الصفحة واريد ان انتقل الى جدول جديد في صفحة جديد يتم إنشاؤه اليا

تم تعديل مايو 31, 2019 بواسطه hayyan alaa

[أحمد يوسف]

عليك برفع ملف وشرح المطلوب عليه بكل دقة واعطاء شكل للنتائج المطلوبة -فلا يمكن العمل على التخمين !!!!!

[hayyan alaa]

 

ارجو ان اكون قد اوضحت المطلوب في هذا المرفق

 

 

من جديد اقول اعذروا جهلي

وبارك الله بكم

33.xlsm

[سليم حاصبيا]

جرب هذا الماكرو (تم تغيير اسماء الصفحات لحسن عمل الكود بالنسبة لنسخه (حتى لا تظهر احرف غريبة)

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

[Ali Mohamed Ali]

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

[hayyan alaa]

استاذ سليم

انت رااااااااائع

شكرا جزيلا لك ولكل الاساتذة و المتابعين

[وجيه شرف الدين]

الله عليك استاذ سليم انت رايق فى هذا الكود جزاكم الله خير

[hayyan alaa]

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

[hayyan alaa]

يا اساتذتنا الافاضل

اسعد الله اوقاتكم

الاستاذ سليم كفى و وفى بهاد الموضوع

ولكن عندي طمع بالعلم و الاحاطة بهادا الموضوع اكتر

فهل يوجد لدى احدكم طريقة أخرى لحل هذا

الموضوع 

ولكم جزيل الشكر

[سليم حاصبيا]

2 ساعات مضت, hayyan alaa said:

لقد اذهلتني فعلا

سؤالي لك يا استاذ

اين ذهب الماكرو الذي قمت انا بانشائه مسبقا و الذي مهمته ترحيل البيانات

هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة

و اخيرا اذا كان لديك من و قت

هل بالامكان شرح الماكرو خاصتك خطوه بخطوه 

باركك الله 

فضلك كبيرر علي و على امثالي

اين ذهب الماكرو الذي قمت انا بانشائه ===> لا لزوم له   تم مسحه

هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة  ===> بالطبع هذه مهمته

1-   اذا كان عدد الصفوف المملوءة في الشيت الاخير اقل من 11 يتم اضافة ما تريد الى اول صف  فارغ في نفس الصفجة حتى يصل عدد            الصفوف الى 11

2-  و اذا  كان عدد الصفوف المملوءة في الشبت الاخير يساوي  11 يتم ادراج شيت جديد الذي يأخد اسم الشيت الذي قبله زائد واحد

    ويذلك يكون هذا الشيت قد اصبح بدوره اخر شيت و تتم اضافة ما تريد اليه  ابتداء من الصف الثاني حتى الرقم 11

ووهكذا دواليك

[hayyan alaa]

22 minutes ago, سليم حاصبيا said:

اين ذهب الماكرو الذي قمت انا بانشائه ===> لا لزوم له   تم مسحه

هل الماكرو الذي احدثته انت يتولى هذه المهمه اضافة الى مهمة انشاء صفحة جديدة  ===> بالطبع هذه مهمته

1-   اذا كان عدد الصفوف المملوءة في الشيت الاخير اقل من 11 يتم اضافة ما تريد الى اول صف  فارغ في نفس الصفجة حتى يصل عدد            الصفوف الى 11

2-  و اذا  كان عدد الصفوف المملوءة في الشبت الاخير يساوي  11 يتم ادراج شيت جديد الذي يأخد اسم الشيت الذي قبله زائد واحد

    ويذلك يكون هذا الشيت قد اصبح بدوره اخر شيت و تتم اضافة ما تريد اليه  ابتداء من الصف الثاني حتى الرقم 11

ووهكذا دواليك

اعجز بالكلام عن وصفك

يا رائع

انا مبتدئ في هذا المجال و 

هل من نصائح لديك تفيدني في التدرج في مجالvba