تعديل كود ترحيل

[علي عبد المنعم]

نتيجة الدور الثاني.rar

[سليم حاصبيا]

اضف هذه الفقرة الى الكود مباشرة بعد كلمة Next r

Laste_Row = sh.Cells(Rows.Count, "AN").End(3).Row
     For i = 11 To Laste_Row + 1 Step 2
     sh.Range("AN" & i).Resize(, 10).ClearContents
     Next

 

[علي عبد المنعم]

شكرا للاستاذ سليم ولكل القائمين على المنتدى

[محمود أبوالدهب]

شكرا استاذ سليم بس ممكن شرح للكود لى لكى اتعلم من سيادتكم 

وحتى تزيد المعرفة ايضا

[سليم حاصبيا]

1 ساعه مضت, محمود أبوالدهب said:

شكرا استاذ سليم بس ممكن شرح للكود لى لكى اتعلم من سيادتكم 

وحتى تزيد المعرفة ايضا

شرح الكود

 

explain_code.rar