VBA For-Nextを使ったグラフのデータ取得

Question

前提・実現したいこと

指定したグラフに対して、データを選択したいです
グラフは計６個あります
For j = 1 To 6
ActiveSheet.ChartObjects(j).Activate

それぞれぞグラフで取得したい値は、
For k = 4 To 189 Step 37
ActiveChart.SetSourceData Source:=Range("$AB$" & k & ":$AC$" & k + 11)
です。

発生している問題

jが1から2に行くまでに、kが189まで処理してしまいます。
これを、jが1の時→k＝４
jが2の時→k＝40
jが3の時→k＝77
・・・
みたいにしたいのですが、、
Next k
Next j
の位置を
Next j
Next k
にするとエラーが発生します。

これをうまく処理する方法はありますでしょうか？
どうかご教授お願いいたします。

該当のソースコード

    Dim j As Integer
    Dim k As Long
    For j = 1 To 6
    For k = 4 To 189 Step 37
    ActiveSheet.ChartObjects(j).Activate
    ActiveChart.SetSourceData Source:=Range("$AB$" & k & ":$AC$" & k + 11)
    Next k
    Next j

Comments

[meg_]

> jが1の時→k＝４
jが2の時→k＝40
上記ですと差は｢36｣になりますが、Step 37 は正しいですか？

[GytaAmies]

すいません。
Jが2の時、K＝41
Jが3の時、K＝78
ですm(_ _)m

Answer 1

j,kの値はこうなればいいのでしょうか。
すみません、勘違いでした。

    Dim j, k, kfrom
    kfrom = 4
    For j = 1 To 6
        For k = kfrom To kfrom + 36
            Debug.Print j, k
        Next k
        kfrom = k
    Next j

Comments

[GytaAmies]

いつも回答ありがとうございます！
今回はベストアンサーでいけそうです！！

Answer 2

For k = 4 To 189 Step 37 を不要とし、

k＝ ( j - 1 ) * 37 + 3

みたいにすればよいと思います。

Comments

[GytaAmies]

回答ありがとうございます。
それだと、J＝１の時、K=3になってしまいます。。。

[tatsu99]

j=1 で k=4
j=2 で k=41
j=3 で k=78
なら
k=(j-1)*37 + 4
でOKかと。

[GytaAmies]

確かにそうですね！
2つ変数あるときは、方程式でいけばいいんですね！
ありがとうございます！