Soru 2 sayı arasını aratmak

[Sezerkaratas]

Merhaba sayfa 2 de c kolonunda 1000 ile 2000
İnin arasındaki en büyük sayıyı sayfa 1 c1 e yaz diye bir komutu nasıl yazmam lazım

 

[metehan8001]

Sub ikisayi80()
''Feyzullah / Metehan8001 / ***************
Dim veri() As Variant
With Worksheets("Sayfa2")
For a = 1 To .Cells(.Rows.Count, 3).End(xlUp).Row
    If .Cells(a, 3) > 1000 And .Cells(a, 3) < 2000 Then
        ReDim Preserve veri(1 To a)
        veri(a) = (.Cells(a, 3))
    End If
Next
Worksheets("Sayfa1").Range("C1") = WorksheetFunction.Max(Array(veri))
End With
MsgBox "..:İşlem Tamam:..", vbInformation + vbMsgBoxRtlReading, "***************"
End Sub

 

[Necdet]

Merhaba,

=MAK(EĞER(Sayfa2!C1:C20>=1000;EĞER(Sayfa2!C1:C20<=2000;Sayfa2!C1:C20)))

Formül Dizi Formüldür. Formülü yazdıktan sonra Ctrl+Shift+Enter ile bitirilmelidir.

Formülü kendinize uyarlayınız.

 

[Sezerkaratas]

Sub ikisayi80()
''Feyzullah / Metehan8001 / ***************
Dim veri() As Variant
With Worksheets("Sayfa2")
For a = 1 To .Cells(.Rows.Count, 3).End(xlUp).Row
    If .Cells(a, 3) > 1000 And .Cells(a, 3) < 2000 Then
        ReDim Preserve veri(1 To a)
        veri(a) = (.Cells(a, 3))
    End If
Next
Worksheets("Sayfa1").Range("C1") = WorksheetFunction.Max(Array(veri))
End With

End Sub

Merhaba çok teşekür ederim peki en büyük ilk dört rakamı nasıl bulabilirim yardım eder misin

 

[Sezerkaratas]

Sub ikisayi80()
''Feyzullah / Metehan8001 / ***************
Dim veri() As Variant
With Worksheets("Sayfa2")
For a = 1 To .Cells(.Rows.Count, 3).End(xlUp).Row
    If .Cells(a, 3) > 1000 And .Cells(a, 3) < 2000 Then
        ReDim Preserve veri(1 To a)
        veri(a) = (.Cells(a, 3))
    End If
Next
Worksheets("Sayfa1").Range("C1") = WorksheetFunction.Max(Array(veri))
End With
End Sub

Bide koda açıklama yazarsan hatika olur gerçekten bir şeyler öğrene bilirim