Düşeyara Formülü Hakkında

[yilmazarslan]

Ektede görüldüğü üzre 20 satırlık bir diziden 0'lar atlanacak. Diğerleri formülasyonla toplanıp yazılacak. :arkadas:

[Levent Menteşoğlu]

Aşağıdaki linkte tamamen fonksiyonlarla yapılmış Sn muygun'nun ekli dosyası sizin sorunuza bir çözüm getiriyor. İnceleyiniz.

http://www.excel.web.tr/viewtopic.php?p=5517&highlight=#5517

[Levent Menteşoğlu]

Makrolu çözüm için eki inceleyiniz.

[vb:1:f947365eb7]Sub listele()
Columns("E:F").ClearContents
a = WorksheetFunction.CountA(Sheets("1").Range("A1:A65530"))
sıra = 0
For say = 1 To a
If Cells(say, 1) = 0 Then GoTo 10
b = WorksheetFunction.CountIf(Sheets("1").Range("A1:A" & say), Cells(say, 1))
If b = 1 Then
sıra = sıra + 1
Cells(sıra, 5) = Cells(say, 1)
Cells(sıra, 6) = WorksheetFunction.SumIf(Sheets("1").Range("A1:A65530"), Cells(sıra, 5), Sheets("1").Range("B1:B65530"))
End If
10 Next say
End Sub
[/vb:1:f947365eb7]

[hasan.doru]

arkadaşlar
sorunuma çözüm bulduğunuz için hepinize ayrı ayrı teşekkkür ediyorum.sizler oldukça sanırım herşeyin üstesinden geleceğiz. cevabı geç yazdığım için özür dilerim

[Hüseyin]

Sayın hasan.doru,
sorunun sahibi farklı ama siz teşekkür etmişsiniz.
Foruma farklı isimlerlemi giriyorsunuz?

[Levent Menteşoğlu]

Hüseyin bey sorun aynı başlıkla açılmış iki sorudan kaynaklanıyor aşağıdaki linke bakınız.

http://www.excel.web.tr/viewtopic.php?t=2194

[erdalo]

Makrolu çözüm için eki inceleyiniz.


visual basic kodu:

Sub listele()
Columns("E:F").ClearContents
a = WorksheetFunction.CountA(Sheets("1").Range("A1:A65530"))
sıra = 0
For say = 1 To a
If Cells(say, 1) = 0 Then GoTo 10
b = WorksheetFunction.CountIf(Sheets("1").Range("A1:A" & say), Cells(say, 1))
If b = 1 Then
sıra = sıra + 1
Cells(sıra, 5) = Cells(say, 1)
Cells(sıra, 6) = WorksheetFunction.SumIf(Sheets("1").Range("A1:A65530"), Cells(sıra, 5), Sheets("1").Range("B1:B65530"))
End If
10 Next say
End Sub


Sayın Leventm

Yukarıdaki makro A Sütununda aynı isimdeki Metinlere göre karşısında B sütunuda rakam var ise özet olarak E ve F sütunlarına listeliyor.


Benim sormak istediğim ise C,D,E,F ve G ...AA'ya kadar devam eden Sütunlarında A sütunudaki metinlere karşılık gelen rakamlarınıda yazması istesem

Ã?rneğin

A ocak şubat Mart
Elma 1 2 3
Elma 1 1 2
ARMUT 2 4 8
dataları aylara göre listelese benim için çok güzel ve faydalı olacak
yardımlarınız için şimdiden teşekkürler

[Levent Menteşoğlu]

Sn erdalo

Tam olarak ne istediğinizi anlayamadım. Bir örnek dosya eklerseniz üzerinde çalışabiliriz.