wissamkh قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 السلام عليكم عندي هذا الكود لترحيل بيانات الى عدة صفحات (كل صف يرحل الى صفحة معينة حسب بيانات الخلية(اسم الصفحة مرتبط بإسم الخلية) أريد إضافة عليه كود لترحيل كل البيانات أيضا الى صفحة واحدة. بحيث يصبح الترحيل كل صف الى الصفحة الخاصة به وايضا الى صفحة البيانات الكاملة هذا الكود اللي عندي Sheets(1).Activate For Each f In Range("b16:b65") If f <> "" Then x = f.Value Range(f.Offset(0, 0), f.Offset(0, 5)).Copy Range(f.Offset(0, 7), f.Offset(0, 0)).Copy lr = Sheets(x).Range("b" & Rows.Count).End(xlUp).Row Sheets(x).Activate Range("b" & lr + 1).Select Selection.PasteSpecial xlPasteValues End If Next f Sheets(1).Activate Application.CutCopyMode = False Range("b16:g65").ClearContents هذا هو الملف المرفق عند الضغط على ترحيل ينتقل كل صف الى الصفحة الخاصة به ولكن أريد أيضا أن تنتقل كل الصفوف الى صفحة all ترحيل.xlsm
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.