نجوم المشاركات
Popular Content
Showing content with the highest reputation on 02/10/12 in مشاركات
-
السلام عليكم وبعد اذن الاستاذ احمد هذه محاولة على قد الحال Public Sub Abu_Ahmed() MySh = ActiveSheet.Name If Mid(MySh, 1, 8) <> "إجماليات" Then Exit Sub r = Mid(MySh, 9, Len(MySh) - 8) ActiveSheet.Copy Before:=Sheets(MySh) ActiveSheet.Name = r ActiveSheet.DrawingObjects.Delete End Sub شاهد المرفق ترحيل (4).rar1 point