Saydirma

[lapot]

Arkadaslar ekdeki dosyada Column C de fatura numaralri var hemen atllarinda sterling fiyatilari var ve ondan sonra bos cell ver, ben bos cellere "?" isreti koydum ama original dosyada bu celler bos.gercekte bu dosya cok daha buyuk. benim yapmak istedigim sadece kac fatura kesmisim her Case type icin onu bulmak. Macroyla fatura adetlerini nasil saydirabilirim yardimci olabilirmisiniz Colum C deki "?" cellerine?

saygilar

 

[hamitcan]

Sub FaturaSay()
    Dim arr()
    Columns("d").ClearContents
    son = [a65536].End(3).Row
    For i = 2 To [a65536].End(3).Row
        s = WorksheetFunction.CountIf([a:a], "Case type")
        ReDim Preserve arr(1 To s)
        If Cells(i, 1) = "Case type" Then
            c = c + 1
            arr(c) = i
        End If
    Next
    For jj = 1 To UBound(arr) - 1
       Cells(arr(jj+1), "d") = arr(jj + 1) - 2 - arr(jj)
    Next
End Sub

 

[lapot]

cevap icin cok sagol arkadasim , yazdigin formul isledi fakat toplamlari baslangicina yaziyor yani al kismina yazmiyor. bunu duzeltebilrmisin?
saygilar

 

[hamitcan]

Kodu düzelttim.

 

[lapot]

Harikasin arkadasim. Mukemmel. Saygilarimi sunuyorum