Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
İyi akşamlar arkadaşlar.
Aşagıdaki kod' ile grafik alanlarını belirliyorum
AA kolonu daha alttaki koddan count ile saydırıyorum ama kolonu bulamadım.Bir alt satırdaki kodu nasıl revize etmem lazım.
Aşagıdaki kod' ile grafik alanlarını belirliyorum
AA kolonu daha alttaki koddan count ile saydırıyorum ama kolonu bulamadım.Bir alt satırdaki kodu nasıl revize etmem lazım.
Kod:
ActiveChart.SetSourceData Source:=Sheets("GRID").Range("A" & kol & ":" & Range(veri & kols)
Kod:
Sub Macro222()
For x = 2 To 15
Sheets.Add After:=Sheets(Sheets.Count)
yeniisim = Len(Sheets(1).Cells(x, 1)) - 6
ekisim = Right(Sheets(1).Cells(x, 1), yeniisim)
ActiveSheet.Name = ekisim
Sheets("GRID").Select
kol = Sheets(1).Cells(x, 5) - 2
kols = Sheets(1).Cells(x, 6)
Sheets("GRID").Select
Cells(kol, 256).Select
bip = Range(Selection, Selection.End(xlToLeft)).Count - 1
veri = 256 - bip
[b]'yukarıdaki verideki kolon ismi örnek ( a , b , c ,d ) nasıl okutacagız[/b]
Range("a" & kol).Select
Sheets(ekisim).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xl3DBarClustered
[b]'Aşagıdaki satırdaki "aa" kolonun ismini veri index'inden gösterebilirmiyiz.Kısacası kodu nasıl revize etmem gerekir.[/b]
ActiveChart.SetSourceData Source:=Sheets("GRID").Range("A" & kol & ":aa" & kols)
ActiveChart.PlotBy = xlRows
Next
End Sub