Dim d As Integer

Dim toplam As Long

For d = 0 To (liste45.ListCount) - 1

if isnumeric(liste45.Column(12, d))=true then

toplam = toplam +liste45.Column(12, d)

end if

Next d



metin61.value = toplam