Soru Sayfalar Arası Veri Aktarımı.

yesimgurol

Altın Üye
Katılım
8 Aralık 2011
Mesajlar
942
Excel Vers. ve Dili
Excel 2016,32bit
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 ;
Kod:
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
 

Ekli dosyalar

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,616
Excel Vers. ve Dili
Microsoft 365 Tr-64
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
 
Üst