Çözüldü Döngü ile sayı formatında kaydetme (userform)

[ruhadam26]

Çalıştığım dosyaya textboxa sayı giriyorum doğal oalrak excele genel biçiminde aktarıyor. Excellde formül kullnadığım zaman doğal olarak #değer hatası alıyorum. Bunların tamamını kontrol edip sayıya çevirecek bir makro var mı ya da yazılabilir mi yardımlarınızı bekliyorum. Kaydet ve değiştir adında iki butonum var bunlara tıklayınca aktarım yapıyor. kayıt kodlarım şu sekilde

sonsat2 = Sheets("Bina").[a65536].End(3).Row + 1
Call Main 'Progress Bar
s = 2: a = 1
For i = 17 To 69
Cells(sonsat2, s) = Controls("TextBox" & i)
If s >= 10 Then a = 2
s = s + a
Next i

 

[Orion1]

İlgili satırı değiştiriniz.

Cells(sonsat2, s) = cdbl(Controls("TextBox" & i))