Type mismatch hatası

liste45 de 12. satırda her satırda rakamsal değer yok bazı satırlarda - bazıları ise boş benim yapmam büyük ihtimal hatyı bundan veriyor başka bir sütunda denedim oldu yapmam gereken sadece rakamsal değerlerin olduğu satırları bulup toplaması diğerleini görmezlikten gelmesi lazım

Bu kod işini görecektir.

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

çok teşekürler bu kod işime yaradı