Şartlı toplama

[umutozkans]

Ekteki dosyada belirttiğim gibi, yapmak istediğim, "İsim" sütüna bir isim yazılınca aynı sütüna bir daha isim yazılıncaya kadar olan satırlardaki hataların sayısı "toplam hata adedi" sütününa ismin karşısına yazılsın.Teşekkürler

 

[Orion1]

Anlayan varsa banada anlatsın.

 

[umutozkans]

DAha nasıl anlatayım bilmiyorum ama sormak istediğiniz bişi varsa açıklayabilirim.ekte dosyayı güncelledim.

 

[karadami]

Anlayan varsa banada anlatsın.

anladim ama nasil yapabileceğimi bilmiyorum onun için size anlatıyım dilim döndüğünce.

A sütünuna isimler yazılı b sütununda ise hata sayılarının yazdırılması isteniyor. C D E sütünlarında ise hatalar mevcut. A sütunuda iki isim arasında kalan satırlar arasındaki hata sütunlarında kaç tane veri olduğunu saymak istiyor. verilen dosyada A4 te Ali yazıyor A sütunundaki diğer isme kadar olan hataları saydırmak istiyor. örnekte A8 e kadar olanları (A8 in satırı hariç) saydırmak istiyor. anlatırken aklımda bir şablon oluştu ama bakalım yapabilecekmiyim

 

[umutozkans]

Karadami çok teşekkürler ama bişey daha ekleyeyim. Veli'den sonra Umut gelecek ondan sonra başkası, yani kişiler hataları yazdıkça otomatik ne kadar hata yazdığı B sütununda ismin karşısına yazılsın.

 

[Merhum İdris SERDAR]

Dosyanıza göre:

B4 hücresine:
=COUNTA(C4:E7)

B8 hücresine:
=COUNTA(C8:E12)

formüllerini yazın.

COUNTA=BAĞ_DEĞ_DOLU_SAY

.

 

[umutozkans]

Evet oluyor ama ben B sütununa bu formülü girmem elle toplamamdan pek farklı olmadı, yani her seferinde yeni isim yazıldığında toplama otomatik olmalı.Yapılması gereken bi kere formül girilecek ve isim yazıldığında otomatik hata toplamı ismin yanında çıkmalı.

 

[Orion1]

Ekli dosyayı inceleyin bir bakalım.İstediğiniz gibi olmuşmu?
Makroyo çalıştırınız.
Dosya ve kodlar 11nci mesajdadır.

 

[umutozkans]

Harika olmuş teşekkürler.

 

[karadami]

bence olmuş ama gozüme ufak bir sorun takıldı. en son isimde tek bir hata yapmışsa ve bu hata ismin karşısında belirtilmişse sayım yapmıyor ama bu kadar kusur kadı kızındada olur değil mi

 

[Orion1]

bence olmuş ama gozüme ufak bir sorun takıldı. en son isimde tek bir hata yapmışsa ve bu hata ismin karşısında belirtilmişse sayım yapmıyor ama bu kadar kusur kadı kızındada olur değil mi

Sayın karadamı hata giderildi ekli dosyayı inceleyiniz.

Sub hata_topla()
Range("B4:B65536").ClearContents
For i = 3 To 5
    son = Cells(65536, i).End(xlUp).Row
    If son > sonsat Then sonsat = son
Next
sat = 4
basla:
[B][COLOR="Red"]If sat > sonsat Then[/COLOR][/B]
    MsgBox "İşlem Tamam", vbOKOnly + vbInformation, "İŞLEM"
    Exit Sub
End If
yazsat = sat
toplam = WorksheetFunction.CountA(Range(Cells(sat, 3), Cells(sat, 5)))
sat = sat + 1
Do While sat <= sonsat And Cells(sat, "A").Value = ""
    toplam = toplam + WorksheetFunction.CountA(Range(Cells(sat, 3), Cells(sat, 5)))
    sat = sat + 1
Loop
Cells(yazsat, "B").Value = toplam
toplam = 0
yazsat = sat
GoTo basla

End Sub