Ba bs ile ilgigi formül

[esyonel]

Öncelikle böyle bir site hazırladığınız için sonsuz teşekkürler. Biz luca muhasebe programı kullanıyoruz. ba bs excele aktardık ama bir formül gerekli tabi aklımız ermedi bu işe büyük üstadlarımızdan yardım talep ediyorum.
Formül : ekte gönderdiğim excel dossında görüleceği üzere firma çok bu firmaların toplamları ve kaç satır olduğu. şimdiden teşekkürler

 

[iibfli]

Tam olarak anlayamadım. Ufak bir örnek gösterim koyabilirseniz iyi olur.

A Firması Toplam : 300 Kayıt Sayısı :3 gibi mi olacak? Yoksa tüm listede mükerrer firma adları haricindeki toplam sayı mı olacak? Daha açıklayıcı bir bilgi verebilir misiniz?

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub nn()
c = 1
With Sheet1
son = .[a65536].End(3).Row
    For i = 6 To son
        If WorksheetFunction.CountIf(.Range("i" & i & ":" & "i" & son), .Cells(i, "i")) = 1 Then
            c = c + 1
            Sayfa1.Cells(c, 1) = .Cells(i, "i")
            Sayfa1.Cells(c, 2) = WorksheetFunction.SumIf(.Range("i6:" & "i" & son), .Cells(i, "i"), .Range("j6:" & "j" & son))
            Sayfa1.Cells(c, 3) = WorksheetFunction.CountIf(.Range("i6:" & "i" & son), .Cells(i, "i"))
        End If
    Next
End With
End Sub

Not: Noktalama ayarlarımız farklı olduğundan toplamları aldırıp deneyemedim.Ama muhtemelen sizde doğru çalışacaktır.

 

[Ömer]

Merhaba,

Örnek dosyayı incelermisiniz. İstediğiniz bu mu?