arkadaşlar selam. örnekteki excel kitabında yapmak istediğim prim hesaplaması gibi birşey. C sutunundaki isimlerin solunda, yani B sutununda yaptığı işler var. ben c sutunundaki kişilerin nekadar is yaptığını başka bir hücrede ayrı ayrı toplamasını istiyorum. listeye ekleme yaptığımda bu sayının artmasını istiyorum. yani c sutununda ali ismini bulup solundaki b stunundaki sayıları toplamasını istiyorum.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
c sutunu analiz edip b sutunu toplama
- Konbuyu başlatan umit2222
- Başlangıç tarihi
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,094
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
.
Toplama Ve Sayma
Sumproduct-Topla.Çarpım Fonksiyonu ve Uygulamaları
Buradaki konuları inceleyin.
.
Toplama Ve Sayma
Sumproduct-Topla.Çarpım Fonksiyonu ve Uygulamaları
Buradaki konuları inceleyin.
.
İ
İhsan Tank
Misafir
Merhaba
Boş bir module kopyalayın ve deneyin.
Kod:
Option Explicit
Sub tekli_topla_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
trabzonspor = MsgBox("Sayıma Başlıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
Range("E:F").ClearContents
kaplan = 1
For ts = 1 To Cells(Rows.Count, "C").End(xlUp).Row
If WorksheetFunction.CountIf(Range("C1:C" & ts), Cells(ts, "C")) = 1 Then
Cells(kaplan, "E") = Cells(ts, "C")
kaplan = kaplan + 1
End If
Next
For ts = 1 To Cells(Rows.Count, "E").End(xlUp).Row
For kaplan = 1 To Cells(Rows.Count, "C").End(xlUp).Row
If Cells(kaplan, "C") = Cells(ts, "E") Then
Cells(ts, "F") = Cells(ts, "F") + Cells(kaplan, "B")
End If
Next
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Sayım Tamamlandı", , "Bitiş"
End Sub
İ