SulhiSaygili
oldukça uzun bir liste düşünün, aşağıdaki basitleştirilmiş hali olsun.ahmet 6ali 10ahmet 5ali 4ali 5mehmet 3mehmet 5şimdi ben bu ali ahmet değerlerini toplanmış ve tek şekilde istiyorum. yani:ahmet 11ali 19mehmet 8desin bana. nasıl olacak bu iş?
oldukça uzun bir liste düşünün, aşağıdaki basitleştirilmiş hali olsun.
ahmet 6
ali 10
ahmet 5
ali 4
ali 5
mehmet 3
mehmet 5
şimdi ben bu ali ahmet değerlerini toplanmış ve tek şekilde istiyorum. yani:
ahmet 11
ali 19
mehmet 8
desin bana. nasıl olacak bu iş?
ahmet 6
ali 10
ahmet 5
ali 4
ali 5
mehmet 3
mehmet 5
şimdi ben bu ali ahmet değerlerini toplanmış ve tek şekilde istiyorum. yani:
ahmet 11
ali 19
mehmet 8
desin bana. nasıl olacak bu iş?
0
isimler ve sayılar ayrı hücrelerde yer alıyorsa bunların en tepesine bir satıra "isim" ve "sayı" diye başlık atıyorsun; ardından da data - filter - autofilter yapıyorsun; böylece isim kısmına tıklayıp doğrudan ahmeti istediğinde sana ahmete ait tüm kayıtları veriyor, oradan da rakamlara ulaşabilirsin
0
Biraz karışık olabilir. A sütununda isimler, B sütununda ise sayılar olmalı.
Aşağıdaki kodu kullanman gerekiyor. Burada ben 50 sayısını kullandım, kaç tane isim olacaksa o kadar sayı kullanabilirsin. Yani mesela 100 isim varsa 50 gördüğün tüm sayıları 100 ile değiştireceksin. Bir de 6 gördüğün yere toplam satır sayısının bir eksiğini, 7 gördüğün yere de toplam satır sayısını yazıyorsun. Renklendirmeye kafayı takma; sonra hepsinin rengini Excel'de silebilirsin.
Bu kodu ne yapacağım dersen; şöyle; ALT+F11 - Gelen ekranın sol tarafında "Thisworkbook" veya "bu çalışma kitabı" gördüğün yeri iki kez tıkla, gelen boş ekrana yapıştır. F5'e bas.
Dim x(50) As Integer
Dim s(50) As String
Sub asd()
a = 1
Erase x
Erase s
For i = 1 To 6
If Cells(i, 1).Interior.ColorIndex = 4 Or Cells(i, 1).Interior.ColorIndex = 3 Then GoTo xx
For j = i + 1 To 7
If Cells(i, 1) = Cells(j, 1) And Cells(j, 1).Interior.ColorIndex <> 4 Then
s(a) = Cells(i, 1)
x(a) = x(a) + Cells(j, 2)
Cells(j, 1).Interior.ColorIndex = 4
End If
Next j
If x(a) <> 0 Then x(a) = x(a) + Cells(i, 2)
Cells(i, 1).Interior.ColorIndex = 3
a = a + 1
xx:
Next i
For a = 1 To 50
Cells(a, 5) = s(a)
Cells(a, 6) = x(a)
Next a
End Sub
Aşağıdaki kodu kullanman gerekiyor. Burada ben 50 sayısını kullandım, kaç tane isim olacaksa o kadar sayı kullanabilirsin. Yani mesela 100 isim varsa 50 gördüğün tüm sayıları 100 ile değiştireceksin. Bir de 6 gördüğün yere toplam satır sayısının bir eksiğini, 7 gördüğün yere de toplam satır sayısını yazıyorsun. Renklendirmeye kafayı takma; sonra hepsinin rengini Excel'de silebilirsin.
Bu kodu ne yapacağım dersen; şöyle; ALT+F11 - Gelen ekranın sol tarafında "Thisworkbook" veya "bu çalışma kitabı" gördüğün yeri iki kez tıkla, gelen boş ekrana yapıştır. F5'e bas.
Dim x(50) As Integer
Dim s(50) As String
Sub asd()
a = 1
Erase x
Erase s
For i = 1 To 6
If Cells(i, 1).Interior.ColorIndex = 4 Or Cells(i, 1).Interior.ColorIndex = 3 Then GoTo xx
For j = i + 1 To 7
If Cells(i, 1) = Cells(j, 1) And Cells(j, 1).Interior.ColorIndex <> 4 Then
s(a) = Cells(i, 1)
x(a) = x(a) + Cells(j, 2)
Cells(j, 1).Interior.ColorIndex = 4
End If
Next j
If x(a) <> 0 Then x(a) = x(a) + Cells(i, 2)
Cells(i, 1).Interior.ColorIndex = 3
a = a + 1
xx:
Next i
For a = 1 To 50
Cells(a, 5) = s(a)
Cells(a, 6) = x(a)
Next a
End Sub
0
önce isimleri başka yere kopyala ve tekrarlanan verileri formülle sil. diyelim ki isimleri seçtin ve a12 hücresinden itibaren aşağıya doğu kopyaladın. son veri misal a28 hücresine denk geldi. şimdi (a12:a28) aralığını seçeceksin veri veri sekmesinden yinelenenleri kaldır ya da ingilizce kullanıyorsan remove dublicates diyerek her isimden sadece bir tane bırakacaksın. burada dikkat etmen gereken tekrarlanan isimlerinin yazılışlarının aynı olması.
bu işlemi yaptıktan sonra b12 sekmesine gelerek verinin ilk halindeki rakamları toplatmak olacak o da şu şekilde olur. etopla (subtotal)
=etopla($a$1:$a$9;a12;$b$1:$b$9)
yazdığın ilk isimlerin a1:a9 ve rakmlarında b1:b9 aralığında olduğunu varsaydım.
biraz uzun yazdım ama işlem 30 saniyeni almaz.
bu işlemi yaptıktan sonra b12 sekmesine gelerek verinin ilk halindeki rakamları toplatmak olacak o da şu şekilde olur. etopla (subtotal)
=etopla($a$1:$a$9;a12;$b$1:$b$9)
yazdığın ilk isimlerin a1:a9 ve rakmlarında b1:b9 aralığında olduğunu varsaydım.
biraz uzun yazdım ama işlem 30 saniyeni almaz.
0
