پرسش سورت کردن بر اساس تاریخ

[ayoub.]

با سلام و احترام
فایلی رو خدمت دوستان می فرستم در صورت امکان ممنون می شم راهنمایی بفرمایید.این فایل از 3 شیت داده و صندوق و سورت شده تشکیل شده .می خوام در شیت صندوق با ثبت پرسنلی نام و نام خانوادگی فراخوانی بشه از داده ضمن اینکه با تایپ تاریخ در این شیت اطلاعات ثبت شده براساس تاریخ از کوچک به بزرگ در شیت سومی به نام سورت شده ذخیره بشه!ممنون می شم

[hadi1980]

سلام
براي سوال اول شما لازمه از فرمول lookup استفاده کنيد
مثلا تو سلول C2 بنويسيد

=LOOKUP(B2,داده!$A$2:$A$13,داده!$B$2:$B$13) 

و براي سوال دومتان اگه اصرار داريد اتوماتيک انجام بشه ميشه يه ماکروي اينجوري نوشت

Sheets("صندوق").SelectSheets("صندوق").Copy After:=Sheets(3)
Sheets("صندوق (2)").Select
Sheets("صندوق (2)").Name = "سورت شده"

که از شيت صندوق يه کپي برداري کنه و اسمش رو هم بزار سورتشده
و يه کد اينجوري

ActiveWorkbook.Worksheets("سورت شده").Sort.SortFields.ClearActiveWorkbook.Worksheets("سورت شده").Sort.SortFields.Add Key:=Range("D2:D6") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("سورت شده").Sort
    .SetRange Range("A1:D6")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

که دادههاي اين شيت رو براساس تاريخ سورت کنه البته اين کد الان به رديف ششم بسنده ميکنه