Dolu hücrelerin toplamını almak

[kelkitli]

Selamlar,
Döngü ile E6:E57 Aralığında dolu hücreler aranacak. Dolu olan hücrelerin olduğu satırdaki G sütunundaki karşılıklarının toplamı G58 e yazılacak.
Ayrıca:
Döngü ile G6:G57 Aralığında bulunan tüm dolu hücreler H6:H57 aralığında aynı satıra denk gelen hücrelere %5 artırılıp kuruşları yuvarlatılarak (50 kuruş altı tabana. 50 kuruş üstü yukarıya) yazılacak. Örnek:510846420,84 510846421,00olacak.
Saygılar.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub toplamal()
For i = 6 To Range("f65536").End(3).Row - 1
If Cells(i, "e") <> "" Then
toplam = toplam + Cells(i, "g")
End If
Next
Cells(i, "g") = toplam
End Sub

Sub yüzde5artır()
For i = 6 To Range("f65536").End(3).Row - 1
If Cells(i, "g") <> "" Then
Cells(i, "h") = Round((Cells(i, "g") * 1.05), 0)
End If
Next
End Sub

%5 artırmak istediğiniz değerler; tüm dolu hücreler midir yoksa hücre dolgusu uygulanmış hücreler midir?

 

[kelkitli]

Sayın uzmanamele teşekkür ederim.
Bu şekil tamamdır.