En son boş satıra Hücre toplamı almak

[ozmacig]

sevgili Hocalarım bir sorum olacak yaptığım form üzerinde Döküm işlemi yapıyorum döküm dediğimde Listview1 de süzdüğüm verileri aktar2 sayfasına alıyor ve en alt satırına K sütunun toplam aldırmak istiyorum bunu aşağıdaki kodlarla yaptım ancak alt toplam sıfır gösteriyor sebebi ne olabilir.

Sheets("AKTAR2").Cells.ClearContents
Application.ScreenUpdating = False
For ss = 1 To 11 'Başlık için dönüyor
Sheets("AKTAR2").Cells(1, ss).Value = Me.ListView1.ColumnHeaders(ss) 'başlık
For i = 1 To Me.ListView1.ListItems.Count 'Sıra numarası için dönüyor
Sheets("AKTAR2").Cells(i + 1, 1).Value = Me.ListView1.ListItems(i) 'Sıra no
Sheets("AKTAR2").Cells(i + 1, ss + 1).Value = Me.ListView1.ListItems(i).ListSubItems(ss) 'Sıra no
Next i, ss
Sheets("AKTAR2").Cells(1, 11).Value = Me.ListView1.ColumnHeaders(11) 'başlık
Application.ScreenUpdating = True
Sheets("AKTAR2").Cells(65536, 10).End(3).Offset(2, 0).Value = "TOPLAM"
Sheets("AKTAR2").Cells(65536, 11).End(3).Offset(2, 0).Value = WorksheetFunction.Sum(Worksheets("AKTAR2").Range(" K2:K" & i))
MsgBox "işlem tamam"

 

[halit3]

bunu denermisiniz.

Sub deneme()
Sheets("AKTAR2").Cells.ClearContents
Application.ScreenUpdating = False
For ss = 1 To 11 'Başlık için dönüyor
Sheets("AKTAR2").Cells(1, ss).Value = Me.ListView1.ColumnHeaders(ss) 'başlık
For i = 1 To Me.ListView1.ListItems.Count 'Sıra numarası için dönüyor
Sheets("AKTAR2").Cells(i + 1, 1).Value = Me.ListView1.ListItems(i) 'Sıra no
Sheets("AKTAR2").Cells(i + 1, ss + 1).Value = Me.ListView1.ListItems(i).ListSubItems(ss) 'Sıra no
Next i, ss
Sheets("AKTAR2").Cells(1, 11).Value = Me.ListView1.ColumnHeaders(11) 'başlık
Application.ScreenUpdating = True
Sheets("AKTAR2").Cells(i + 2, 10).Value = "TOPLAM"
Sheets("AKTAR2").Cells(i + 2, 11).Value = WorksheetFunction.Sum(Worksheets("AKTAR2").Range(" K2:K" & i + 1))
MsgBox "işlem tamam"
End Sub

 

[ozmacig]

Hocam gene 0 gösteriyor . dosyayı ekledim. bir bakarsanız sevinirim.

 

[halit3]

Hocam gene 0 gösteriyor . dosyayı ekledim. bir bakarsanız sevinirim.

sizin dosyanızdaki aktarma esasında aktarılan değerler sayı olarak gözükmüyor sorun bundan kaynaklanıyor

bu kodu deneyiniz

Sheets("AKTAR2").Cells.ClearContents
Application.ScreenUpdating = False
sat = 2
For n = 1 To Val(ListView1.ColumnHeaders.Count)
Sheets("AKTAR2").Cells(1, n).Value = ListView1.ColumnHeaders 'başlık
Next
For r = 1 To ListView1.ListItems.Count
x = ListView1.ListItems(r)
Sheets("AKTAR2").Cells(sat, 1).Value = x 'Sıra numarası için dönüyor
For i = 1 To ListView1.ColumnHeaders.Count - 1
Sheets("AKTAR2").Cells(sat, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text 'kayıt için
Next i
sat = sat + 1
Next r
Sheets("AKTAR2").Cells(sat, 10).Value = "TOPLAM"
Sheets("AKTAR2").Cells(sat, 11).Value = WorksheetFunction.Sum(Worksheets("AKTAR2").Range("K2:K" & sat))
Application.ScreenUpdating = True
MsgBox "işlem tamam"