اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

 

  • Like 5
  • Thanks 2
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

باركك الله 

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

تم تعديل بواسطه hayyan alaa
رابط هذا التعليق
شارك

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

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

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

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

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

الموضوع 

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

باركك الله 

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

يا رائع

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information