temerküz vaziyeti

[54526hande]

teminatına çek vererek kullandırdığımız kredilerde temerküz olup olmadığını incelemek amaçlı oluşturacağımız exelde şu işlevleri yerine getitecek bir koda ihtiyacımız var. Yardımlarınız için şimdiden teşekkürler,

1- her bir firmanın getirdiği çeklerin toplam tutarı
2 -her bir firmanın getirdiği çeklerin adeti
3- tüm firmaların getirdiği toplam çek tutarı içinde, her bir firmanın getirdiği çeklerin yüzdesel olarak oranı
4- toplam tutar içinde, yüzdesel olarak oranı en yüksekten düşüğe doğru sıralama
5- sonuç tabloda satırlar arası boşluk bulunmaması

Ekte verilerin işlenmeden önceki ve işlendikten sonra olması gerekn son hali bulunmaktadır.

 

[hamitcan]

Sub Tablo()
[a2:a1000].Clear
c = 1
s = [g65536].End(3).Row
For i = 2 To s
If WorksheetFunction.CountIf(Range("g2:g" & i), Cells(i, "g")) = 1 Then
c = c + 1
Cells(c, 1) = Cells(i, "g")
Cells(c, 2) = WorksheetFunction.SumIf(Range("g2:g" & s), Cells(i, "g"), Range("h2:h" & s))
Cells(c, 3) = WorksheetFunction.CountIf(Range("g2:g" & s), Cells(i, "g"))
Cells(c, 5) = WorksheetFunction.Sum(Range("h2:h" & s))
Cells(c, 4) = Format(Cells(c, 2) / Cells(c, 5) * 100, "0.00")
End If
Next
msgbox "Bitti."
End Sub

 

[Merhum İdris SERDAR]

teminatına çek vererek kullandırdığımız kredilerde temerküz olup olmadığını incelemek amaçlı oluşturacağımız exelde şu işlevleri yerine getitecek bir koda ihtiyacımız var. Yardımlarınız için şimdiden teşekkürler,

1- her bir firmanın getirdiği çeklerin toplam tutarı
2 -her bir firmanın getirdiği çeklerin adeti
3- tüm firmaların getirdiği toplam çek tutarı içinde, her bir firmanın getirdiği çeklerin yüzdesel olarak oranı
4- toplam tutar içinde, yüzdesel olarak oranı en yüksekten düşüğe doğru sıralama
5- sonuç tabloda satırlar arası boşluk bulunmaması

Ekte verilerin işlenmeden önceki ve işlendikten sonra olması gerekn son hali bulunmaktadır.

.

Dosyanız ekte.

Konu için bakınız:

ÖZET TABLOLAR (PİVOT TABLE)


.

 

[54526hande]

Merhabalar yanıtladığınız için teşekkürler. ancak kodu kullanmayı başaramıyorum. Ne şekilde yararlanabileceğimin yolunu göstermek konusunda da yardım lütfen.

Sub Tablo()
[a2:a1000].Clear
c = 1
s = [g65536].End(3).Row
For i = 2 To s
If WorksheetFunction.CountIf(Range("g2:g" & i), Cells(i, "g")) = 1 Then
c = c + 1
Cells(c, 1) = Cells(i, "g")
Cells(c, 2) = WorksheetFunction.SumIf(Range("g2:g" & s), Cells(i, "g"), Range("h2:h" & s))
Cells(c, 3) = WorksheetFunction.CountIf(Range("g2:g" & s), Cells(i, "g"))
Cells(c, 5) = WorksheetFunction.Sum(Range("h2:h" & s))
Cells(c, 4) = Format(Cells(c, 2) / Cells(c, 5) * 100, "0.00")
End If
Next
msgbox "Bitti."
End Sub

 

[baydeniro]

Çok teşekkürler sayın yurttas ve sayın hamitcan.

 

[hamitcan]

2 nolu mesaıımdaki eki inceleyin. Yalnız birleştirilmiş hücreleri çözmelisiniz, tablonuzda bir satır bu şekilde, bu yüzden kod çalışmayacaktır.