- Katılım
- 28 Ocak 2009
- Mesajlar
- 160
- Excel Vers. ve Dili
- Excel 20003
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Aynı dosyaya fiyat eklesek onların toplamını öğrenebilirmiyiz
dosyanız ektedir.Aynı dosyaya fiyat eklesek onların toplamını öğrenebilirmiyiz
Sub topla59()
Dim i As Long, sat As Long
Sheets("Sayfa1").Select
sat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("C:D").ClearContents
For i = 1 To sat
Cells(i, "C").Value = WorksheetFunction.CountIf(Range("A1:A" & sat), Range("A" & i).Value)
Cells(i, "D").Value = WorksheetFunction.SumIf(Range("A1:A" & sat), _
Cells(i, "A").Value, Range("B1:B" & sat))
Next i
Application.ScreenUpdating = True
MsgBox "işlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, Application.UserName
End Sub