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 ;
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
-
160.5 KB Görüntüleme: 7