Excel VBA ile Bir Sütundaki Maksimum Değeri Bulma
1. Hemen Kullanılabilir 4 Adet VBA Maksimum Değer Bulma Kodu
📌 Bu bölümdeki kodlar: Dim ile değişken tanımlar, Application.WorksheetFunction.Max ile maksimum değeri bulur, Application.WorksheetFunction.Large ile sıralı en büyük değerleri bulur, Set ile aralığı nesneye atar, MsgBox ile sonucu gösterir.
1. Max ile En Büyük Değer
A sütunundaki en büyük değeri bulur ve gösterir.
Sub MaxDegerBul()
Dim maxDeger As Double
maxDeger = Application.WorksheetFunction.Max(Range("A:A"))
MsgBox "En Büyük: " & maxDeger
End Sub
3. 3. En Büyük Değer
A sütunundaki 3. en büyük değeri bulur.
Sub UcuncuEnBuyuk()
Dim deger As Double
deger = Application.WorksheetFunction.Large(Range("A:A"), 3)
MsgBox "3. En Büyük: " & deger
End Sub
2. Large ile 2. En Büyük Değer
A sütunundaki 2. en büyük değeri bulur.
Sub IkinciEnBuyuk()
Dim deger As Double
deger = Application.WorksheetFunction.Large(Range("A:A"), 2)
MsgBox "2. En Büyük: " & deger
End Sub
4. Max ile Satır Numarası
En büyük değerin satır numarasını bulur.
Sub MaxSatirBul()
Dim maxDeger As Double
Dim bulunan As Range
maxDeger = Application.WorksheetFunction.Max(Range("A:A"))
Set bulunan = Range("A:A").Find(maxDeger)
MsgBox "Max: " & maxDeger & " | Satır: " & bulunan.Row
End Sub
2. VBA Makroları için Ön Hazırlık
1. Geliştirici Sekmesini Aktifleştirin
Excel'de VBA kodlarını yazabilmek için önce Geliştirici sekmesini aktif etmelisiniz. Detaylı bilgi için tıklayın.
3. Modül Ekleyin
Kodlarınızı yazmak için bir Modül eklemelisiniz. Makro yazma rehberi için tıklayın.
2. Visual Basic Düzenleyici'yi Açın
Alt + F11 (Windows) veya Option + F11 (Mac) ile hızlıca açabilirsiniz.
4. Kodu Çalıştırın
Yazdığınız kodu çalıştırmak için F5 tuşuna basın veya Çalıştır butonuna tıklayın. VBA makro nedir? öğrenmek için tıklayın.
F5
▶️ Makroyu çalıştır
3. Sıkça Sorulan Sorular
01 Excel VBA ile maksimum değer nasıl bulunur?
Application.WorksheetFunction.Max(Range("A:A")) kodu ile A sütunundaki en büyük değeri bulabilirsiniz.
02 Max ve Large arasındaki fark nedir?
Max en büyük değeri döndürür. Large ise ikinci, üçüncü vb. en büyük değerleri bulmak için kullanılır.
03 Boş hücreler Max fonksiyonunu etkiler mi?
Hayır, Max fonksiyonu boş hücreleri ve metin içeren hücreleri otomatik yok sayar.
04 Mac'te Excel VBA'da Max çalışır mı?
Evet, Mac'te de aynı kodlar çalışır. Option+F11 ile VBA'ya erişin.
05 Hata alıyorum, ne yapmalıyım?
Aralıkta sayısal değer yoksa hata alırsınız. On Error Resume Next ile hata yönetimi ekleyin.
06 Minimum değeri nasıl bulurum?
Application.WorksheetFunction.Min(Range("A:A")) kullanarak minimum değeri bulabilirsiniz.