Satirdaki Veriye Gore Uygun Yere Toplam AL

[baydeniro]

Merhaba arkadaşlar. Bir tabloda belirli bir ibarenin olduğu satıra toplam aldırmak gerektiğinde toplam alınacak alan aralığının eşit olmadığı durumlar için bir çözüm var mıdır !!!

Ekteki dosyada "Kullanıcı" ibaresi içeren satırların D ve E sütunlarına toplam alınacak. Ancak alınacak toplam bir üstteki toplamı içermeyecek yani bir üstteki toplamın 1 altındaki satırdan başlayabilir mi !!!

 

[Korhan Ayhan]

Selamlar,

İstediğiniz işlemin yerleşik fonksiyonlarla çözümü olduğunu zannetmiyorum. Ama isterseniz makro ile yapılabilir.

 

[baydeniro]

Sayın Korhan Ayhan ilginiz için çok teşekkür ederim. Eğer makro ile yardımıcı olaiblirseniz çok çok minnettar olacağım. İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza göre aşağıdaki kodu denermisiniz.

Sub TOPLAM_AL()
    For X = 1 To [A65536].End(3).Row
    If Left(Cells(X, 1), 5) = "Tarih" Then İLK = X + 1
    If Left(Cells(X, 1), 9) = "Kullanıcı" Then SON = X - 1
    If &#304;LK <> "" And SON <> "" Then
    Cells(X, 4) = "=SUM(D" & &#304;LK & ":D" & SON & ")"
    Cells(X, 5) = "=SUM(E" & &#304;LK & ":E" & SON & ")"
    &#304;LK = "": SON = ""
    End If
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[baydeniro]

Teş

Sayın Korhan Ayhan, Yüce Allah tüm işlerinizi rast getirsin; rızkınızı artırsın; sağlık, sıhhat, mutluluklarınızı daim kılsın. Yani böyle bir kod nasıl yazılır bilemiyorum. Çok çok teşekkür ederim. Sağlıcakla kalın.