2saad قام بنشر يونيو 10, 2023 مشاركة قام بنشر يونيو 10, 2023 لو سمحتم أعضاء المنتدي الكرام عايز ارحل البيانات الموجودة في شيت 1 وشيت2 وشيت3 من( k5 الي x) الي شيت saad من (c5) ولكم جزيل الشكرalla.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر يونيو 10, 2023 أفضل إجابة مشاركة قام بنشر يونيو 10, 2023 Here's the code and please try to learn from the solutions as it is a bad attitude to wait the help all the time from other people Sub Test() Dim a, e, sh As Worksheet, f As Boolean, lr As Long, r As Long Application.ScreenUpdating = False Set sh = ThisWorkbook.Worksheets("Saad") f = True: sh.Cells.ClearContents For Each e In Array("Sheet1", "Sheet2", "Sheet3") With ThisWorkbook.Worksheets(e) lr = .Cells(Rows.Count, "M").End(xlUp).Row a = .Range("K5:X" & lr).Value If f Then r = 5: f = False Else r = sh.Cells(Rows.Count, "C").End(xlUp).Row + 1 sh.Cells(r, "C").Resize(UBound(a, 1), UBound(a, 2)).Value = a End With Next e Application.ScreenUpdating = True End Sub 3 رابط هذا التعليق شارك More sharing options...
2saad قام بنشر يونيو 10, 2023 الكاتب مشاركة قام بنشر يونيو 10, 2023 شكرا جزيلا استاذنا الفاضل 1 رابط هذا التعليق شارك 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.