كود اعجبنى

[قنديل الصياد]

أعجبنى هذا الكود

Sub Macro()
    Range("A6:C15").Select
    Selection.Copy
    ActiveCell.Range("f1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort _
    Key1:=Worksheets("Sheet1").Range("h6"), Order1:=xlAscending, _
    Key2:=Worksheets("Sheet1").Range("g6"), Order2:=xlAscending, _
    Key3:=Worksheets("Sheet1").Range("f6"), Order3:=xlAscending
End Sub
Sub Macro1()
    Range("F6:H15").Select
    Selection.ClearContents
Range("F6").Select
End Sub

مرفق ملف به التطبيق

 

[حمادة عمر]

جزاك الله خيرا

 

رمضـــان كـــريـــم

تم تعديل يوليو 14, 2013 بواسطه حمادة عمر