satır saydırma hk

[sırakaya]

Arkadaşlar merhabalar;
Örnekte de açıklamasını yaptım. B sütununda müşteri numaraları var a sütununda bu müşteri numaralarına karşılık gelen satır sayısı adedini d sütununda müşteri numaralarının karşılarına yazdırmak istiyorum. Yardımlarınızı bekliyorum.

 

[Ziynettin]

Merhaba,

Aşağıdaki kodu deneyiniz.

Option Explicit
Sub sayir()
Dim a(), b(), d As Object
Dim i As Long, Say As Long
Set d = CreateObject("scripting.dictionary")
a = Range("A2:B" & Cells(Rows.Count, 2).End(3).Row).Value
    For i = 1 To UBound(a)
        If a(i, 1) <> "" Then
            d(a(i, 2)) = d(a(i, 2)) + 1
        End If
    Next i
ReDim b(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a)
        say = say + 1
        If a(i, 1) <> "" Then
            b(say, 1) = d(a(i, 2))
        End If
    Next i
Application.ScreenUpdating = False
Range("D2:D" & Rows.Count).ClearContents
If say > 0 Then [D2].Resize(say) = b
Application.ScreenUpdating = True
MsgBox "İşlem tamam. . . .", vbInformation
End Sub

 

[sırakaya]

Teşekkür ederim kod için,formül yazarak nasıl sonuç alabilirim peki ??

 

[hasankardas]

d sutununa
=EĞERSAY(B:B;B2)

şeklinde yazıp aşağıya formülü çoğaltın.

 

[sırakaya]

d sutununa
=EĞERSAY(B:B;B2)

şeklinde yazıp aşağıya formülü çoğaltın.

Çok teşekkür ederim. İyi akşamlar..

 

[hasankardas]

Çok teşekkür ederim. İyi akşamlar..

rica ederim hayırlı geceler