DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function toplamBul(bul As String, rng As Range) As String
Dim toplam As Long
Dim hucre As Range, str As String
toplam = 0
For Each hucre In rng
If hucre.Value = bul Then
If hucre.Offset(0, 2).Value > 0 Then
toplam = toplam + hucre.Offset(0, 2).Value
ElseIf hucre.Offset(0, 3).Value > 0 Then
toplam = toplam + hucre.Offset(0, 3).Value
End If
End If
Next
toplamBul = toplam
End Function
verileriniz aralık olarak geçmekte. bu şekilde formül yazsılsa dahi tablo boyutu değişince formül çalışmaz. onun için verilerinizi tablo formatına dönüştürmek gerek. tablo formatına dönüştürsek sizin için sıkıntı olur mubiraz önce ofisimde sorumun son halini oluşturup yeninde ekledim