شرح كود

[وليد ذكي]

ممكن شرح للكود ده بعد اذنكم .

 

 RR = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A" & RR & ":" & "s" & RR).AutoFill Destination:= _
.Range("A" & RR & ":" & "s" & RR + 1), Type:=xlFillDefault
.Range("A" & RR + 1 & ":" & "k" & RR + 1) = ""

 RowIndex = .Cells(Rows.Count, "A").End(xlUp).Row
If RowIndex < 11 Then
RowIndex = 11
 

[أبوعيد]

لا يمكن شرحه بالدقة لأنه موضوع في ورقة أكسل فعندما ينفذ على الورقة يتم شرحة بالتفصيل

لكن عموما

السطر الأول RR  يتم فيه إيجاد آخر سطر فيه كتابة في الورقة

ثم يتم نسخ المحتويات في الخلية A إلى الخلية S 

يتم النسخ إلى السطر رقم 11 فما بعده

 

تحياتي

[وليد ذكي]

بارك الله فيك أخي أبو عيد وشكرا جزيلا علي مساعدتك