المساعده في تعديل علي كود

[sabry fahmy]

هذا كود من عمل استاذنا المبدع عبد الله بقشير  اريد فقط تعدل علي الكود بحيث يزيد جدول     ( adta ) اعمدة (مظلله باللون الاصفر ) وكذلك البحث (مظلل باللون الاصفر ايضا)

Search++ - Copy.xlsm

[lionheart]

After this line

Cells(R + 6, "F").Value = .Cells(i, "H").Value

Add this line

Cells(R + 6, "G").Resize(1, 4).Value = .Cells(i, "I").Resize(1, 4).Value

 

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

تفضل

تم إجراء تعديلين

المدى الذي يتم مسحه

والعمود F وما بعده

بالتوفيق 

Search++ - Copy.xlsm

[sabry fahmy]

شكرا جزيلا استاذ محمد صالح 

lionheart  شكرا جزيلا لحضرتك

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

الشكر لله الذي بنعمته تتم الصالحات