Değere göre toplama

[Ergün GÖKER]

Herkese günaydın

çizelgemde A B C D E sutun isimleri mevcut
2 satırda girdiğim harf A ise A nın altına 1 b ise B nin altına 1 yazacak
böyle bir formül arıyorum. Şimdiden teşekkürler

 

[YUSUF44]

Küçük bir örnek dosya hazırlayıp dosya yükleme sitelerinden birinde paylaşırsanız daha iyi olur.

 

[Ergün GÖKER]

Küçük bir örnek dosya hazırlayıp dosya yükleme sitelerinden birinde paylaşırsanız daha iyi olur.

http://s6.dosya.tc/server5/a5f1ao/toplam.xls.html

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("J9:J1000")) Is Nothing Then Exit Sub
For i = 4 To 9
If Cells(8, i) = Target Then
Cells(Target.Row, i) = 1
End If
Next
End Sub

 

[Merhum İdris SERDAR]

.

D9 hücresine;

=IF((D$8=$J11)*1=0;"";(D$8=$J11)*1)

IF=EĞER

yeterince sağa ve aşağıya kopyalayın.


.