Soru Sayfalar Arası Veri Aktarımı.

[yesimgurol]

Merhabalar,
Sayfalar arasından verilerimi aktarmaya yarayan kodlar aşağıda yer almakta, sorunum şu ki gelen değerler "Metin içinde saklanan sayı" olarak gelmekte. Hal böyle olunca gelen verileri dinamik grafiklerimde kullanamıyorum. :-( Bu sorunu nasıl aşabilirim.

Mevcut kodlar ;

Private Sub CommandButton1_Click()

Range("C3:G14").Select
    Selection.ClearContents
Dim s As Worksheet: Set s = Sheets("ÖZET BİLGİLER")

For i = 1 To Sheets.Count
a = Sheets(i).Name

For n = 3 To 14
b = s.Cells(n, "B").Value
If a = b Then

s.Cells(n, "C") = Format(Sheets(i).Range("AD6").Value, "#,##0.00")
s.Cells(n, "D") = Format(Sheets(i).Range("AD11").Value, "#,##0.00")
s.Cells(n, "F") = Format(Sheets(i).Range("AD4").Value, "#,##0.00")
s.Cells(n, "G") = Format(Sheets(i).Range("AD5").Value, "#,##0.00")
End If
Next n

Next i

End Sub

 

[ÖmerFaruk]

Her bir satırı 1 ile çarpın aşağıdaki gibi.
s.Cells(n, "C") = Format(Sheets(i).Range("AD6").Value, "#,##0.00")*1

 

[yesimgurol]

Her bir satırı 1 ile çarpın aşağıdaki gibi.
s.Cells(n, "C") = Format(Sheets(i).Range("AD6").Value, "#,##0.00")*1

Ömer bey merhabalar, çok teşekkür ederim. İstediğim şekilde oldu.