رجاء شرح هذا الكود

[lody]

السلام عليكم ورحمه الله وبركاته
 
اخوتى الاعزاء يارب تكونوا بخير دائما وابدا ان شاء الله
 
طامع انا فى كرم حضراتكم واتمنى شرح كود الترحيل المرفق

Sub Button7_Click()
Dim o As String
ActiveSheet.Range("$C$11:$W$42").AutoFilter Field:=21, Criteria1:="1"
o = Range("l6").Text
Sheet5.Name = o
Sheet5.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Range("$C$11:$W$43").AutoFilter Field:=21
ActiveWindow.SmallScroll Down:=-15
ActiveSheet.Range("$C$11:$W$43").AutoFilter Field:=21, Criteria1:="1"
Sheet5.Name = ("PIRENT")
Sheet5.Select
ActiveSheet.Range("$C$11:$W$42").AutoFilter Field:=21
yt = Range("l6")
Range("l6").Value = yt
Range("l6").Select
ActiveCell.Value = (ActiveCell.Value + 1)
Range("d6") = ""
Range("A12:A41") = ""
Range("E12:E41") = ""
Range("I45") = ""
MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه"
End Sub

تم تعديل مايو 18, 2014 بواسطه lody