mohmed78 قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 السلام عليكم ورحمه الله السؤال ما هى طريقه دمج اكثر من ورقه عمل وليكن 20 ورقه عمل (شيت) فى ورقه عمل واحد وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 22, 2016 مشاركة قام بنشر أكتوبر 22, 2016 43 دقائق مضت, mohmed78 said: السلام عليكم ورحمه الله السؤال ما هى طريقه دمج اكثر من ورقه عمل وليكن 20 ورقه عمل (شيت) فى ورقه عمل واحد وجزاكم الله خيرا بهذا الكود Sub CopyAll() Dim sh As Worksheet, LR As Long, Last As Long Application.ScreenUpdating = False For Each sh In Sheets If Not sh.Name = ActiveSheet.Name Then Last = sh.Cells(Rows.Count, 1).End(xlUp).Row LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 sh.Range("A2:M" & Last).Copy ActiveSheet.Range("A" & LR).PasteSpecial xlPasteValues End If Next Application.ScreenUpdating = True End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان