Grafikte Kolon Değişkeni hakkında

[Kemal Demir]

İ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.

ActiveChart.SetSourceData Source:=Sheets("GRID").Range("A" & kol & ":" & Range(veri & kols)

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

 

[Ferhat Pazarçevirdi]

Kemal bey, konu bu şekliyle pek anlaşılmıyor ... Örnek dosya eklerseniz daha kolay anlaşılacaktır ...

 

[Kemal Demir]

Ferhat hocam,

Geri donusunuz için teşekkurler.Sorunuma uzun yoldan cozum sağladım.1-256 arasındaki kolon ıdlerıne gelen ( text idefaleri a- b - c- d ) kolonlarını once yazdırıp kod ile vlookup ıle cozdum.
Dosyayı paylaşamamın nedeni ni ise şu şekilde açıklamak isterim.IT uzmanlarınca hazırlanan bir programda şirketin kendi dosyaları Int.ortamında yüklememizi kısıtladı.

Tekrar teşekkurler.