كيف أستخرج أكبر قيمة من قيم متغير معين بعد حلقة تكرارية مثل for و for each ?

[المتأمل الحسني]

سلام الله عليكم و رحمته أيها الكرام 

 

في المرفق كود يطبع أسماء ملفات الإكسل التي في مجلد الملف  ، و الملفات هي عبارة عن ارقام ، فكيف أستخرج أكبر  رقم من الأرقام ؟

 

* مع ملاحظة أنني لا أريد أن أعتمد على ما طبعه الكود في الورقة  بل أريد أن احتسب أكبر رقم قبل أن يكتب الكود أسماء الملفات ..

 

مع شكري للجميع 

 

 

Xlfiles.rar

[المتأمل الحسني]

للرفع .. لعلي اجد من يفيدني من الإخوة الأعضاء

[ياسر خليل أبو البراء]

جرب الكود التالي
 

Sub SHW_FILS()
    [a2:a9,c2:c9] = ""

    Dim strFile As String, StrFiles As String
    Dim counter As Double, strFileName As String
    MyFilePath$ = ActiveWorkbook.Path
    strFile = Dir(MyFilePath$ & "\" & "*.x*")

    Do While strFile <> ""
        If strFile <> "log.txt" Then StrFiles = StrFiles & vbCrLf & strFile

        strFileName = Split(strFile, ".")(0)

        If IsNumeric(strFileName) Then
            If counter < Val(strFileName) Then counter = Val(strFileName) Else counter = counter
        End If

'        For str_f = 1 To Len(strFile)
'            If Mid(strFile, str_f, 1) Like "*.*" Then
'                Num_file = Mid(strFile, 1, str_f - 1)
'                Range("a200").End(xlUp).Offset(1) = Num_file
'                Range("c200").End(xlUp).Offset(1) = strFile
'            End If
'        Next str_f
        strFile = Dir
    Loop
    Columns.AutoFit

    MsgBox counter
End Sub