mid и max функции

[Olegk]

Здравствуйте коллеги нужна Ваша помощь,
Описываю задачу:
есть лист эксель, в столбце F
есть значения
вида
карта:45824
карта:45820
карта:45823
и тд.
необходимо выяснить в ячейках начишающиеся на слово "Карта:" MAX и MIN значение чисел следующие после слова "Карта:"

Вот код помогите мне с ним:
Sub RenameSheet()
Dim list As Worksheet
For Each list In ActiveWorkbook.Worksheets
list.Activate
maxval = Application.WorksheetFunction.Max(Range("F:F"))
minval = Application.WorksheetFunction.Min(Range("F:F"))
For Row = 1 To 65536
'On Error Resume Next
Set thecell = Range("F1").Offset(Row - 1, 0)
a = Mid(thecell, 1, 6)
If a = "Êàðòà:" And Mid(thecell, 6, 5) = maxval Then
thecell.Activate
MsgBox "Íàéäåíî Ìàõ çíà÷åíèå" & thecell.Value
ActiveSheet.Name = maxval '& "-" & minval
End If
Next Row
Next list
End Sub

[GSerg]

Макрос не нужен. Это делается одной формулой...

Допустим, рассматриваем диапазон F1:F10. Тогда вводи формулу =макс(значен(правсимв(f1:f10;5))), только при вводе нажимай не Enter, а Ctrl+Shift+Enter.

[Olegk]

так мне макросом и надо,
чтобы он в общей куче макросов валялся

[GSerg]

И чё люди не хотят юзать формулы...

dim i as long, maxval as long, minval as long, t as long
minval=3e+10
for i=1 to to usedrange.rows.count
t=clng(right$(cells(i,6).value))
if t<minval then minval=t
it t>maxval then maxval=t
next
activesheet.name=cstr(minval) & ":" & cstr(maxval)

[Olegk]

Cэнкс,
только можно получить пояснения насчет этого
minval=3e+10
usedrange.rows.count

[alibek]

Это максимально возможное число.
Я предпочитаю другой способ:

Код: Выделить всё

Dim I As Long, Count As Long, Min, Max
Count = UBound(Data)
Min = Data(1)
Max = Data(2)
For I = 2 To Count
  If Data(I) < Min Then Min = Data(I)
  If Data(I) > Max Then Max = Data(I)
Next I


[Olegk]

но как сделать поиск МИн/Макс
в ячейках только со словом Карта: