Soru 2 sayı arasını aratmak

Katılım
8 Nisan 2010
Mesajlar
107
Beğeniler
47
Excel Vers. ve Dili
Office 2007 -2016 TR
#2
C#:
Sub ikisayi80()
''Feyzullah / Metehan8001 / ExcelDestek.com
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, "ExcelDestek.com"
End Sub
 
Son düzenleme:

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
12,654
Beğeniler
121
Excel Vers. ve Dili
Ofis 2003 İngilizce
Ofis 2007 Türkçe
Ofis 2010 Türkçe
#3
Merhaba,

Kod:
=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.
 
Katılım
7 Ağustos 2019
Mesajlar
43
Beğeniler
3
Excel Vers. ve Dili
İngilizce
#4
C#:
Sub ikisayi80()
''Feyzullah / Metehan8001 / ExcelDestek.com
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, "ExcelDestek.com"
End Sub
Merhaba çok teşekür ederim peki en büyük ilk dört rakamı nasıl bulabilirim yardım eder misin
 
Katılım
7 Ağustos 2019
Mesajlar
43
Beğeniler
3
Excel Vers. ve Dili
İngilizce
#5
C#:
Sub ikisayi80()
''Feyzullah / Metehan8001 / ExcelDestek.com
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, "ExcelDestek.com"
End Sub
Bide koda açıklama yazarsan hatika olur gerçekten bir şeyler öğrene bilirim
 
Üst