• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Mükerrer Kayıtların Kaç Kez kullanıldığını Öğrenme

Eğersay ile
Dosyanız ektedir.:cool:
=EĞERSAY($A$1:$A$33;$A1)
 

Ekli dosyalar

Aynı dosyaya fiyat eklesek onların toplamını öğrenebilirmiyiz

Aynı dosyaya fiyat eklesek onların toplamını öğrenebilirmiyiz
 

Ekli dosyalar

Aynı dosyaya fiyat eklesek onların toplamını öğrenebilirmiyiz
dosyanız ektedir.:cool:
Kod:
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
 

Ekli dosyalar

Geri
Üst