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

[2saad]

السلام عليكم - من فضلكم

محتاج كود ترحيل للبيانات الملونة في هذا الشيت (1 ) الي شيت ( سعد ) مع الأحتفاظ بتنسيق الجدول والصفوف في شيت ( سعد ) وفيه قائمة منسدلة في خلية (   (f5 بالصفوف ( 1/1 2/1 3/1 4/1 ) عايز لما اضغط علي اسم الصف مثلا ( 1 / 1) يعملي فلترة علي كل بينات الصف  

 

 

ايمن.xlsb

[أ / محمد صالح]

يمكنك استعمال هذا الكود في حدث عند التغيير في شيت سعد

ولمن لا يعرف كيفية إضافة الكود في أحداث الصفحة

كلك يمين على اسم الشيت ونختار view code بالعربي عرض التعليمات البرمجية

ثم نلصق الكود

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$5" Then
Sheet24.Range("b10:i1000").ClearContents
For r = 3 To Sheet14.Cells(Rows.Count, 2).End(3).Row
If Sheet14.Range("n" & r) = Target Then
lr = Sheet24.Cells(Rows.Count, 2).End(3).Row + 1
cols = Array(3, 2, 9, 10, 11, 5, 14, 15)
For n = 2 To 9
Sheet24.Cells(lr, n) = Sheet14.Cells(r, cols(n - 2))
Next n: End If: Next r
MsgBox "Done by mr-mas.com"
End If
End Sub

بالتوفيق

[2saad]

السلام عليكم ورحمة الله وبركاته

بعد اذن حضراتكم

محتاح لكود يرحلي الاعمدة المحددة  من شيت ( 1 ) الي شيت ( 2 ) بناء علي القائمة المنسدلة الموجود في شيت ( 2 )  الخلية  ( ae1 )

ولكم جزيل الشكر ووافر الاحترام

https://www.mediafire.com/file/isu1t8zobgt1bqt/سيلا.xlsm/file

[أ / محمد صالح]

هذا نفس المطلوب في هذا الموضوع 

وتمت الاجابة عليه

ويفترض أن صاحب الاستفسار ليس هدفه نسخ الكود واستعماله فقط

وإنما مدارسته وفهمه وتطبيقه في الحالات المشابههة

بالتوفيق 

[2saad]

الف شكر وجعله الله في ميزان حسناتك

[أ / محمد صالح]

جميعا بإذن الله