en büyük sayıyıyı bulma

[acar6783]

15032016214910F1
15032016214913F2
15032016214918F3
15032016214922F4
15032016215359F5
15032016215359F5
15032016215405F6
15032016215405F6
15032016215405F6
15032016215417F9
15032016215417F10
15032016222051F8
15032016215359F5
15032016222143F6

Bu listede ilk 2 sayısı 15 e eşit olan ve F den sonraki en büyük sayıyı nasıl bulabiliirim?

 

[savas_145]

verilerinizin a1:a14 aralığında olduğunu varsaydım f den sonraki en büyük sayıyı bulmak için

=MAK(SAYIYAÇEVİR(PARÇAAL(A1:A14;MBUL("F";A1:A14;1)+1;UZUNLUK(A1:A14)-MBUL("F";A1:A14;1))))

formülünü yazıp CTRL+SHİFT+ENTER tuşlarına aynı anda basarak dizi formülü haline getirin

 

[acar6783]

Konuyu bilerek makro-vba bölümününe açtım

Birkaç kod denedim ama sonuçta sıkıntılar cıktı o sebepten açmak zorunda kaldımm

 

[Ziynettin]

Deneyiniz..

Option Explicit
Sub F_Buyuk_Bul()
Dim a(), b(), zz
Dim i As Long, Say As Long
a = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
    If Left(a(i, 1), 2) = "15" Then
        Say = Say + 1
        zz = Split(a(i, 1), "F")(1)
        b(Say, 1) = Val(zz)
    End If
Next i
MsgBox Application.Max(Application.Index(b, , 1))
End Sub

 

[acar6783]

Sub fis()

buyuk = 0
For i = 2 To Cells(Rows.Count, "P").End(3).Row
If Day(Date) * 1 = (Left(Cells(i, "P"), 2) + 1) * 1 Then
deg = Cells(i, "P")
say = Right(deg, Len(deg) - 15) * 1

If say > buyuk Then buyuk = say
End If
Next

Range("T2") = buyuk + 1
End Sub

Bu yöntemle bulmuştum şşmdi
Teşekkür ederim
Bu şekilde dneeyeceğim dizi kodları daha hızlı çalışıyor sanıırm