Eger Topla içerisine Belli kritere göre Toplam Aldırma..
For sut = 7 To SAY + 6
If Not WorksheetFunction.CountIf(Range("b7:b" & sut), Cells(sut, "b")) > 1 Then
S = S + 1
c = Cells(sut, "b")
d = WorksheetFunction.SumIf(Range("b7:b65536"), c, Range("h7:h65536"))
Cells(SAY + 8 + S, "A") = c & " = " & d & "m2"
Cells(SAY + 8 + S, "B") =d
End If
Next
Yukarıdaki kodlarla b sutunundaki benzersizleri listenin en altına yazdırıp yanındaki hüreye ("B" sutunu)bu benzersizlerin "H" sutunundaki toplamlarını aldırabiliyorum...
Bu kodlara bir de şöyle bir ekleme yapabilirmiyiz...
benzersiz olan kayıtların "H" sutununda bulunan değerlerin "0 ile 45" ayrı "45 ile 70" ayrı "70 ile 100" arasını toplattırabilirmiyiz...
örnek olarak
A1=VELİ H1=15
A2=ALİ H2=50
A3=VELİ H3=60
A4=RIZA H4=20
A5=ALİ H5=80
BU DEĞERLENDİRMENİN SONUCU ŞU ŞEKİLDE OLMASI GEREKİYOR
HERHANGİ BİR HÜCRE NERESİ OLDUĞU FARKETMEZ..
M1=VELİ N1=75
M2=ALİ N2=130
M3=RIZA N3=20
BU KISIM BENZERSİZLERİ TOPLUYOR...VE YUKARIDAKİ KODLARLA OLUYOR.. İstediğim asağıda belirttiğim olayı yapmak..
'******************************
O1=VELİ P1=0-45 ARASI=15
O2=VELİ P2=45-70 ARASI=60
O3=ALİ P3=45-100 ARASI =130
O4=RIZA P4=0-45 ARASI =20
For sut = 7 To SAY + 6
If Not WorksheetFunction.CountIf(Range("b7:b" & sut), Cells(sut, "b")) > 1 Then
S = S + 1
c = Cells(sut, "b")
d = WorksheetFunction.SumIf(Range("b7:b65536"), c, Range("h7:h65536"))
Cells(SAY + 8 + S, "A") = c & " = " & d & "m2"
Cells(SAY + 8 + S, "B") =d
End If
Next
Yukarıdaki kodlarla b sutunundaki benzersizleri listenin en altına yazdırıp yanındaki hüreye ("B" sutunu)bu benzersizlerin "H" sutunundaki toplamlarını aldırabiliyorum...
Bu kodlara bir de şöyle bir ekleme yapabilirmiyiz...
benzersiz olan kayıtların "H" sutununda bulunan değerlerin "0 ile 45" ayrı "45 ile 70" ayrı "70 ile 100" arasını toplattırabilirmiyiz...
örnek olarak
A1=VELİ H1=15
A2=ALİ H2=50
A3=VELİ H3=60
A4=RIZA H4=20
A5=ALİ H5=80
BU DEĞERLENDİRMENİN SONUCU ŞU ŞEKİLDE OLMASI GEREKİYOR
HERHANGİ BİR HÜCRE NERESİ OLDUĞU FARKETMEZ..
M1=VELİ N1=75
M2=ALİ N2=130
M3=RIZA N3=20
BU KISIM BENZERSİZLERİ TOPLUYOR...VE YUKARIDAKİ KODLARLA OLUYOR.. İstediğim asağıda belirttiğim olayı yapmak..
'******************************
O1=VELİ P1=0-45 ARASI=15
O2=VELİ P2=45-70 ARASI=60
O3=ALİ P3=45-100 ARASI =130
O4=RIZA P4=0-45 ARASI =20
Son düzenleme: