hücredeki değeri sayı formatına çevirme prb

[zamenya]

Sayın Hocalarım merhabalar . Çalışma kitabımda dolu hücreye göre formulleri aşağıdaki kodla çoğaltıyorum ama formulle bulunan değerler text oluyor galiba blunan değerleri toplatamıyorum bu hücreleri sayı formatına nasıl çevirebilirim


Sheets("satıs").Select
Dim son As Long
son = [A65536].End(3).Row
Cells(son, "b").Select

X = Cells(65536, 2).End(xlUp).Row


Range("c1").AutoFill Destination:=Range("c1:c" & X)

Range("d1").AutoFill Destination:=Range("d1:d" & X)
Range("e1").AutoFill Destination:=Range("e1:e" & X)
Range("f1").AutoFill Destination:=Range("f1:f" & X)
Application.Calculate

End Sub

 

[Ayhan Ercan]

Sorun nedir anlamadım.
Bende kodlar gayet normal sonuç veriyor...

 

[zamenya]

ayhan hocam çok teşekkürler ilginiz için sorunu çözdüm gözden kaçan ufak bir hata hücreye verileri textboxla kaydediyorum formul ona göre çalışıyor textbox kodlarına .text yerine .value ekledim düzeldi

 

[Orion1]

Sayısal değerler için Aşağıdaki örenekteki gibi kullanın textboxları.Sonra başınız ağrımasın.

Range("A1").value = cdbl(textbox1.text)