الاستاذ العزيز القدير احمد عبد الناصر
من اعماق قلبى اشكرك ومن اجمل البساتين ارسل لك اجمل الباقات تحية لشخصكم الكريم على مشاركاتكم العظيمه النبيلة كل منى كل دعاء فيه صلاح لك فى دينك ودنياك
الاستاذ الكبير بن عليه حاجى
مشاركاتكم وسام على صدرى تقبل منى كل الحب والتقدير
بخصوص الشرح
هل من الممكن شرح هذا السطر ماذا يعنى
arr = Range("e3:" & Cells.SpecialCells(xlCellTypeLastCell).Address)
وماذا تعنى هذه الاسطر
Cells(r + 3, 2) = i
r = r + 1
Else
Cells(rr + 3, 3) = i