Toplama Makrosu - Excel VBA

Excel VBA ile toplama makrosu oluşturun. Veri aralıklarını toplayarak otomatik hesaplama yapın ve zaman kazanın. Kolay adımlarla verimli iş süreçleri.

VBA ile Toplama Makrosu Oluşturma

Excel VBA ile Toplama makrosu yazımı, çalışma sayfasındaki sayıların hızlı ve verimli bir şekilde toplanmasına olanak tanır. Bu makalede, VBA kullanarak toplama makrosunun nasıl uygulanacağını ve işlemlerinizi nasıl otomatikleştirerek daha profesyonel hale getirebileceğinizi öğreneceksiniz.

Excel Toplama Fonksiyonu Nedir

Toplama fonksiyonu, bir dizi sayıyı toplayarak toplam sonucu elde etmenizi sağlar. Veri analizi ve raporlama gibi işlemler için temel bir araç olan bu fonksiyon, Excel'de genellikle SUM (TOPLA) fonksiyonu ile gerçekleştirilir. Excel VBA'da ise bu işlem WorksheetFunction.Sum fonksiyonu kullanılarak yapılmaktadır.

Topla Fonksiyonu ile toplama işlemi için bağlantıya tıklayınız.

Excel VBA ile Toplama Makrosu Nasıl Yazılır?

Makro yazmak için öncelikli olarak üst menüden geliştirici sekmesinin aktif olduğundan emin olunuz. Eğer değilse, İlk olarak, Excel’de Geliştirici sekmesini etkinleştirmek için "Dosya" > "Seçenekler" > "Şeridi Özelleştir" menüsünden "Geliştirici"yi işaretleyin. Detaylı bilgi için linke tıklayabilirsiniz. Ardından, "Geliştirici" sekmesinden "Visual Basic" butonuna tıklayarak VBA Düzenleyicisini açabilir ve "Ekle" > "Modül" ile yeni bir modül ekleyebilirsiniz. Daha fazla bilgi için linke tıklayabilirsiniz.

Bu adımlar tamamlandıktan sonra, toplama makrosu yazımına geçebilirsiniz.

VBA ile Toplama Makrosu Örneği - Belirli Bir Aralığı Toplama

VBA ile Toplama Makrosu Örneği

Kopyalandı

Sub Toplama_Ornegi()
      Dim x As Integer
      x = WorksheetFunction.Sum(Sheets("Sayfa 1").Range("B1:B10"))
      Sheets("Sayfa 1").Range("A1").Value = x
    End Sub

Belirli Bir Aralığı Toplama Makrosu Kod Açıklamaları

• Sub Toplama_Ornegi(): "Toplama_Ornegi" adlı alt program başlatılır ve toplama işlemi yapılır.
• Dim x As Integer: `x` adında bir değişken tanımlanır, veri türü Integer olarak belirlenir.
• x = WorksheetFunction.Sum(Sheets("Sayfa 1").Range("B1:B10")): B1 ile B10 arasındaki sayılar toplanır ve sonuç `x`'e atanır.
• Sheets("Sayfa 1").Range("A1").Value = x: Hesaplanan toplam A1 hücresine yazılır.
• End Sub: Alt program sona erer ve işlem tamamlanır.

VBA ile Toplama Makrosu Örneği - Bir Tabloda Son Satıra Kadar Toplama

VBA ile Toplama Örneği

Kopyalandı

    Sub DinamikToplama()
    Dim total As Double
    Dim lastRow As Long
    
    ' Sayfa 1'de B sütunundaki son satırı bul
    lastRow = Sheets("Sayfa 1").Cells(Sheets("Sayfa 1").Rows.Count, "B").End(xlUp).Row
    
    ' B1'dan son satıra kadar olan hücreleri topla
    For Each cell In Sheets("Sayfa 1").Range("B1:B" & lastRow)
        If IsNumeric(cell.Value) Then
            total = total + cell.Value
        End If
    Next cell
    
    ' Sonucu A1 hücresine yaz
    Sheets("Sayfa 1").Range("A1").Value = total
End Sub
    

Son Satıra Kadar Toplama Makrosu Kod Açıklamaları

• Sub DinamikToplama(): "DinamikToplama" adlı alt program başlatılır ve hücrelerdeki sayılar toplanır.
• Dim total As Double: `total` değişkeni tanımlanır ve sayıları toplamak için kullanılır.
• Dim lastRow As Long: `lastRow` değişkeni, B sütunundaki son satırı tutar.
• lastRow = Sheets("Sayfa 1").Cells(Sheets("Sayfa 1").Rows.Count, "B").End(xlUp).Row: B sütunundaki son satır bulunur.

Excel VBA ile veri içeren son satır ve sütunun bulunması hakkında daha detaylı bilgi almak için bağlantıya tıklayabilirsiniz.

• For Each cell In Sheets("Sayfa 1").Range("B1:B" & lastRow): B1'den son satıra kadar her hücre kontrol edilir.
• If IsNumeric(cell.Value) Then: Hücrede sayısal veri varsa, toplama işlemine devam edilir.
• total = total + cell.Value: Hücredeki sayıyı `total` değişkenine ekler.
• Next cell: Döngü bir sonraki hücreye geçer.
• Sheets("Sayfa 1").Range("A1").Value = total: Hesaplanan toplam A1 hücresine yazılır.
• End Sub: Alt program sona erer ve toplama işlemi tamamlanır.

Excel VBA ile Toplama Makrosu - Hata Önleme

VBA ile Toplama Örneği

Kopyalandı

    On Error Resume Next ' Hata olduğunda geç
    Dim total As Double
    total = WorksheetFunction.Sum(Sheets("Sayfa 1").Range("B1:B10"))
    If Err.Number <> 0 Then
        MsgBox "Toplama hatası oluştu", vbCritical
    End If
    On Error GoTo 0 ' Hata kontrolünü sıfırla
    

Kodun Açıklaması

• On Error Resume Next: Hata oluşursa programın durmasını engeller.
• Dim total As Double: Ondalıklı sayı için "total" değişkeni tanımlanır.
• total = WorksheetFunction.Sum(Sheets("Sayfa 1").Range("B1:B10")): B1-B10 arasındaki sayıları toplar.
• If Err.Number <> 0 Then: Hata varsa, işlem devam eder.
• MsgBox "Toplama hatası oluştu", vbCritical: Hata mesajı gösterir.
• End If: Hata kontrolü sona erer.
• On Error GoTo 0: Hata kontrolünü sıfırlar.

Toplama Makrosu - Sonuç

Excel VBA ile toplama makrosu oluşturma, kullanıcıların veri analizi ve raporlama süreçlerini hızlandırmalarına ve otomatikleştirmelerine olanak tanır. Bu makalede, VBA kullanarak basit bir toplama makrosu yazımının nasıl uygulanacağını ve işlemlerinizi nasıl daha profesyonel hale getirebileceği gösterilmiştir.

Bunun yanında VBA ile koşullu toplama makrosu ya da çok koşullu toplama makrosu oluşturmak da mümkündür. Daha fazla bilgi için lütfen bağlantıya tıklayınız.

Alakalı Makaleler