Toplam Aralığını Koşul ile Seçtirme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Excel dosyasının A sütununda şöyle bir yapı olsun:
Üstteki makro kodu, kullanıcıdan bir değer alır ve bu değerden büyük olan tüm sayıları A sütunundan toplar. Toplam, bir mesaj kutusunda gösterilir.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub ToplamıKoşullaHesapla()
Dim toplam As Long
Dim i As Long
Dim maxDeger As Long
' Kullanıcıdan maksimum değer al
maxDeger = InputBox("Lütfen toplama eklenecek minimum değeri girin", "Minimum Değer")
' Toplamı hesapla
toplam = 0
With Sheet1 ' Çalışma sayfasının adını uygun şekilde değiştirin
For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1).Value > maxDeger Then
toplam = toplam + .Cells(i, 1).Value
End If
Next i
End With
' Toplamı göster
MsgBox "Belirtilen değerden büyük sayıların toplamı: " & toplam
End SubAçıklama
Öncelikle, basit bir Excel dosyası düşünelim. Diyelim ki A sütununda çeşitli sayılar var ve kullanıcı, bu sayılardan belirli bir değerden büyük olanları toplamak istiyor.Excel dosyasının A sütununda şöyle bir yapı olsun:
| 10 |
| 20 |
| 30 |
| 40 |
| 50 |
Üstteki makro kodu, kullanıcıdan bir değer alır ve bu değerden büyük olan tüm sayıları A sütunundan toplar. Toplam, bir mesaj kutusunda gösterilir.
Faydalanılması temennisiyle
