Сортировка дат

[vfv]

Нужно,чтобы сортировка была по убыванию числа,месяца,года.
Однако после исполнения макроса просто убывают числа.Пример во вложении:

[doober]

Записал макрорекодером

Sub Сортировать()
 Range("A1:F1000").Select
  ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("A1"), _
     SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ActiveSheet.Sort
        .SetRange Range("A1:F1000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Range("A1").Select
End Sub

[vfv]

Не работает!
Run-time error 438':
Object doesn't support this property or method

Кстати ,если в ручную сортировать,то всё получается,а макросом нет.

[doober]

В 2003 дает ошибку

[vfv]

Да у меня Excel 2003.
Должен же быть какой нибудь выход??
Может кто подскажет дедушке??

[Dophin]

а на что Вы рассчитывали сортируя текст?

вот примените макросик или как угодно преобразуйте свой текст в даты, и сортируйте. Ваш макрос сортировки нормально работает

Sub pp()
Dim i
For i = 1 To 13
Cells(i, 1) = CDate(Cells(i, 1))
Next i
End Sub

[vfv]

Спасибо вам Dophin за ответ.
Преобразовал и всё заработало.
Хотя я никак не могу понять-формат пробовал менять через меню формат ячеек, ставил на даты и всё равно не работало.
Значит это не одно и тоже.

[Dophin]

нет. текст "20.05.2010" это текст, и формат ячеек тут не при чем