| 
    
     |  | jaka&VBWASURETAさん返信有難うございます。 出張で今戻ってきました、返事が送れてすみません!
 説明が下手ですみません!今自分は下記の感じで作っています
 仮にチェンジイベントで
 sheet 1
 a  b  c  d  e
 1
 2
 3             ’登録シート
 4        7  月  ’d4に始まりの月(数字)を記入
 
 sheet 2
 a  b  c  d
 1       7
 2       8
 3       9
 .       12
 7       1   'シート1からc1に(7)が転記されたら、c2から下方向
 8       2     に月順番で12になったら1から順番に
 
 sheet 3
 
 ..e ..... q......ah.....az...
 1                  'シート2 c1をe1,q1,ah1,az1転記
 .
 .
 45                 'シート2 c2をe45,q45,ah45,az45転記
 .
 .
 89                 'シート2 c3をe89,q89,ah89,az89転記
 .
 .
 133                      同上
 
 この様な作業を作っています
 シート2の連番で12より大きくなったら1に戻り連番にしたいVBAがあればお教え下さい!
 これが、無駄な作業もあるかも知れませんが、本を見ながらしています
 良い方法が有れば(上記以外)よろしくお願いします
 
 |  |