حسام فوزى قام بنشر يوليو 2, 2017 مشاركة قام بنشر يوليو 2, 2017 ارجو افادتى للاهمية ولكم جزيل الشكر وضع البيانات الموجودة بشيت 1 و 2 و 3 فى شيت 4 بمجرد الضغط على زر بدون اى فواصل شكرا للاهمية المطلوب.zip رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 2, 2017 مشاركة قام بنشر يوليو 2, 2017 السلام عليكم أخي الكريم حسام جرب الكود التالي ... Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set sh = Sheet4 sh.Range("A5:F1000").ClearContents Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets If ws.Name <> sh.Name Then lr = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 ws.Range("A5:F" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Copy sh.Range("A" & lr).PasteSpecial xlPasteValues End If Next ws Application.CutCopyMode = False Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
حسام فوزى قام بنشر يوليو 2, 2017 الكاتب مشاركة قام بنشر يوليو 2, 2017 الف الف الف مليون شكر هو المطلوب 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 2, 2017 مشاركة قام بنشر يوليو 2, 2017 الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي رابط هذا التعليق شارك 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.