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

Katılım
20 Temmuz 2005
Mesajlar
270
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
 

Ekli dosyalar

Katılım
27 Temmuz 2004
Mesajlar
719
Excel Vers. ve Dili
Excel 2003 Tr
kodları böyle bir dener misiniz ?
Kod:
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
 
Katılım
20 Temmuz 2005
Mesajlar
270
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
 
Üst