Excel VBA ile Maksimum Değerin Satır Numarasını Bulma: Match ve Find Yöntemleri
1. Hemen Kullanılabilir 4 Adet VBA Maksimum Değer Satır Bulma Kodu
Bu bölümdeki kodlar: Dim ile değişken tanımlar, Application.WorksheetFunction.Max ile maksimum değeri bulur, Set ile bulunan hücreyi nesneye atar, MsgBox ile sonucu gösterir.
1. Match ile Maksimum Değerin Satırı
A sütunundaki en büyük değerin satır numarasını gösterir.
Sub MatchIleMaxSatir()
Dim maxDeger As Double
maxDeger = Application.WorksheetFunction.Max(Range("A:A"))
MsgBox Application.WorksheetFunction.Match(maxDeger, Range("A:A"), 0)
End Sub
3. Maksimum Değerin Adresini Bul
A sütunundaki en büyük değerin hücre adresini gösterir.
Sub MaxAdresBul()
Dim maxDeger As Double
Dim bulunan As Range
maxDeger = Application.WorksheetFunction.Max(Range("A:A"))
Set bulunan = Range("A:A").Find(maxDeger)
MsgBox bulunan.Address
End Sub
2. Find ile Maksimum Değerin Satırı
A sütunundaki en büyük değerin satır numarasını bulur.
Sub FindIleMaxSatir()
Dim maxDeger As Double
Dim bulunan As Range
maxDeger = Application.WorksheetFunction.Max(Range("A:A"))
Set bulunan = Range("A:A").Find(maxDeger)
MsgBox bulunan.Row
End Sub
4. Maksimum Değeri ve Satırını Göster
A sütunundaki en büyük değeri ve satır numarasını birlikte gösterir.
Sub MaxDegerVeSatir()
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ğerin satır numarası nasıl bulunur?
Application.WorksheetFunction.Max(Range("A:A")) ile maksimum değeri bulup, Match veya Find ile satır numarasını tespit edebilirsiniz.
02 Excel VBA'da Match ve Find arasındaki fark nedir?
Match sadece konum numarası (satır/sütun) döndürür. Find ise Range nesnesi döndürür, böylece hücre adresine de erişebilirsiniz.
03 Maksimum değer birden fazla kez tekrarlıyorsa ne olur?
Match ve Find ilk eşleşmeyi döndürür. Tüm tekrarları bulmak için FindNext ile döngü oluşturabilirsiniz.
04 Mac'te Excel VBA'da Match ve Find ç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 veya Match eşleşme bulamazsa hata alırsınız. On Error Resume Next ile hata yönetimi ekleyin.
06 Minimum değerin satır numarasını nasıl bulurum?
Application.WorksheetFunction.Min(Range("A:A")) kullanarak aynı yöntemleri uygulayabilirsiniz.