- Katılım
- 29 Ekim 2004
- Mesajlar
- 31
Ektede görüldüğü üzre 20 satırlık bir diziden 0'lar atlanacak. Diğerleri formülasyonla toplanıp yazılacak. :arkadas:
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayın LeventmMakrolu çö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