Dediğiniz düzeltmeyi yapınca oldu. Ben yapamayınca koddan gitmek istemiştim. Şöyle bir kod yazdım nihayetinde;
Kod:
Public Sub topla()
Dim a As Integer
Dim atoplam As Double
a = 0
atoplam = 0
For a = 1 To (lst_taslakliste.ListCount) - 1
atoplam = atoplam + lst_taslakliste.Column(7, a)
Next a
Me.mtn_maliyet = Nz(Format(atoplam, "Para Birimi", 0))
Me.mtn_maliyet = atoplam
End Sub
Atoz hocamın gösterdiği şekilde düzenlemeyi yapıp devam edeceğim bende.