Text Sayı Formatı

[hook1974]

çok sık kullandığım aynı tipte yüzlerce dosyam var.
ihtiyacım olan, herhangi bir dosyada (örneğin ek'te gönderdiğim dosya) D kolonundan itibaren tüm text olan hücrelerin sayıya gönüşmesi, ayrıca satır numarası değişken olan "Alt limit" satırının hemen altına "Ortalama" satırı açıp" A kolonunda "hesap" yazan tüm satırların ortalamalarını almak istiyorum. Umarım yardımcı olursunuz.
Saygılarımla

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu bir modül sayfasına kopyalayıp çalıştırınız

Sub sayiyacevir()
Set sh = Sheets("Sheet1")
satir = sh.Cells(65536, 1).End(xlUp).Row
Set rg = sh.Range("D3:G" & satir)
For Each hucre In rg.Cells
   hucre.Value = Val(Application.WorksheetFunction.Substitute(hucre, ",", "."))
Next
rg.HorizontalAlignment = xlRight
sh.Cells(satir + 1, 1) = "Ortalama"
For i = 3 To satir + 1
  If sh.Cells(i, 1) = "Hesap" Then
     toplamD = toplamD + sh.Cells(i, 4)
     toplamE = toplamE + sh.Cells(i, 5)
     toplamF = toplamF + sh.Cells(i, 6)
     toplamG = toplamG + sh.Cells(i, 7)
     sayi = sayi + 1
  End If
Next i
sh.Cells(satir + 1, 4) = toplamD / sayi
sh.Cells(satir + 1, 5) = toplamE / sayi
sh.Cells(satir + 1, 6) = toplamF / sayi
sh.Cells(satir + 1, 7) = toplamG / sayi
sh.Range(Cells(satir + 1, 4), Cells(satir + 1, 7)).NumberFormat = "0.00"
Set rg = Nothing
Set sh = Nothing
End Sub