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