bir sütunda alfabetik ve numerik sahalar var ve nümerik sahaların toplamını almak

[bulentcigali]

iyi çalışmalar sorunum ektede örneklediğim gibi bir sütunda bulunan karekter ve rakamlar var ve ben bu sütundaki sayıların toplamını almak istiyorum.teşekkürler

 

[janveljan]

kodları böyle bir dener misiniz ?

Private Sub CommandButton1_Click()

Dim sayma, toplam, top As Double
Set Sh = Sheets("kes")
sayma = 0
say = Sheets("kes").Range("a2").CurrentRegion.Rows.Count
For i = 5 To 13
   For j = 1 To say ''

         If IsNumeric(Sh.Cells(j, i)) And Not IsEmpty(Sh.Cells(j, i)) Then
            sayma = sayma + 1
            toplam = Format(Sh.Cells(j, i), "#,##0.00")
            MsgBox toplam
            top = top + toplam
            MsgBox Sh.Cells(j, i)
            MsgBox top
           End If
  Next
  Exit Sub
  Next
End Sub

 

[bulentcigali]

sayın janveljan teşekkür ederim bende şöyle çözdüm

If IsNumeric(tutar) = True Then
toplam = Format(tutar, "#,##0.00")
top = top + toplam

End If