اذهب الي المحتوي
أوفيسنا

مساعدة في كود ترحيل بيانات


wissamkh

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

السلام عليكم

عندي هذا الكود لترحيل بيانات الى عدة صفحات (كل صف يرحل الى صفحة معينة حسب بيانات الخلية(اسم الصفحة مرتبط بإسم الخلية)

أريد إضافة عليه كود لترحيل كل البيانات أيضا الى صفحة واحدة.

بحيث يصبح الترحيل كل صف الى الصفحة الخاصة به وايضا الى صفحة البيانات الكاملة

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

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.

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

×   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