Sütunda toplamayı otomatik olarak nasıl yapılır?

[ERKAN1974]

G sütunundaki her satırın Kendi bulunduğu satırdaki A-B-C-D-E-F Sütunlarındaki değerleri toplayıp 100 den küçük 200 den büyükse satırın silinmesini nasıl sağlarım.

Satırdaki veriler gün içinde değişmekte 100 den aşağı satır toplamı 100 den aşağı düşerse veya 200 den yukarı çıkarsa hükmünü yitirmektedir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TOPLASIL()
Dim SUT, SAT As Integer
[G1:G1000].Clear
For SUT = 1 To Cells(65536, "A").End(3).Row
For SAT = 1 To 6
Cells(SUT, "G") = Cells(SUT, "G") + Cells(SUT, SAT)
Next
Next
For SUT = Cells(65536, "G").End(3).Row To 1 Step -1
If Cells(SUT, "G") < 100 Or Cells(SUT, "G") > 200 Then
Cells(SUT, "G").EntireRow.Delete SHIFT:=xlUp
End If
Next
End Sub

 

[ERKAN1974]

Cevabınız için teşekkürler.

Bu kodun sürekli olarak sayfada aktif olmasını nasıl sağlarım.

Yani diyelimki a2 hücreti değişti ve haliyle toplamda değişti.
macroyu çalıştır demeden sayfada aktif olmasını nasıl sağlarım .

Emeğinize sağlık.

 

[bayfaba]

exel değil ama vb den bildiğim kadarıyla...

Cevabınız için teşekkürler.

Bu kodun sürekli olarak sayfada aktif olmasını nasıl sağlarım.

Yani diyelimki a2 hücreti değişti ve haliyle toplamda değişti.
macroyu çalıştır demeden sayfada aktif olmasını nasıl sağlarım .

Emeğinize sağlık.

Siteye yeni girmeye başladım iş yoğunluğundan çok ilgi gösteremeyeceğim ama arkadaşın sorusuna vb den bildiğim kadarıyla cevap verecek olursam (exel de nasıl oluyor işin uzmanları yanıtlarsa iyi olur);

aktif sayfada hangi hücreler değişiyorsa makroda o hücrelere change komutu yükleyebilirsin yani kısacası hücre değiştiğinde tekrar hesap yapmasını sağlarsın duruma göre de işlem yapacaktır. (detayı bilen arkadaşlar eklerse daha anlamlı olacaktır.)