VBAでデータを別シートへ転記、途中から1行目へ戻り上書きしたい

Question

初学者なため思いつかず…　もしかしたら簡単なことかもしれないのですが…
ぜひ知識を与えていただきたいです…！

■やりたいこと
元データC2～4は都度内容が異なり、それを前回Saveした次の位置に転記したい。
１００行分使い切ったら元に戻って先頭から上書きさせたい。

(追記)※やりたいことの流れです※
C2,C3,C4に入力→登録→別シートA2,B2,C2へ転記→
C2,C3,C4に入力→登録→別シートA3,B3,C3列へ転記→
C2,C3,C4に入力→登録→別シートA4,B4,C4列へ転記→
・・・
C2,C3,C4に入力→登録→別シートA101,B101,C101列へ転記→
C2,C3,C4に入力→登録→別シートA2,B2,C2列へ転記→

■シートについて
シート"表"とシート"入力"の二枚が存在します。

シート"表"：C2,C3,C4に値を入力する欄と登録ボタンがある
シート"入力"：セルA2~A101までの転記先となる一覧表がある

Comments

[DreamTheater]

空欄チェックとは何者でしょうか？
それが条件なら「やりたいこと」に明記しましょう。

[mako1972]

最近の質問者は、転記シートに転記すればいいだけなのに
空欄がどうのこうの記述する方が多いように気がします。
なにか書籍の影響なのでしょうか・・。

[neko_coffee]

空欄チェックはやり方が思いつかず至った結果で、やりたいことではないので全く無視して頂いて大丈夫です…！転記されているかどうかチェックしてされていなければ転記、されていれば次の行へ転記、という思考でこうなりました。
どういった方法があるかぜひご教示頂きたいです…

[yureighost]

空欄チェックは多分
If Sheets("表").Range("A" & i).Value = "" Then
のことを言ってるんだと思いますけど。

値がない状態でないと転記にいかないので、
上からやり直した時に上書きできないと言ってるんでしょうね。
ただ今のところは正に説明とソースそのままで、そうなりますよとしか答えようがない。
どういう条件で上書きしたいのかはちゃんと考えをまとめてきてください。

[mako1972]

サンプルだと思うのでどうでもいいことだと思いますが、例えば、最終行から始めるとかなら
わかるのですが、空白だったら転記するみたいな適当なサンプルにこれ以上
何を回答すればいいのか・・・という。。。

はじめに戻る意味は？上書きの意味は？

[neko_coffee]

質問にも追記したのですが、伝わりますでしょうか…

C2,C3,C4に入力→登録→別シートA2,B2,C2へ転記→
C2,C3,C4に入力→登録→別シートA3,B3,C3列へ転記→
C2,C3,C4に入力→登録→別シートA4,B4,C4列へ転記→
・・・
C2,C3,C4に入力→登録→別シートA101,B101,C101列へ転記→
C2,C3,C4に入力→登録→別シートA2,B2,C2列へ転記→

[DreamTheater]

同じデータをループで何度も転記する意味がさっぱりわかりません。
元データのC2～4は都度内容が異なり、それを前回Saveした次の位置に転記したいのでは？
それで１００行分使い切ったら元に戻って先頭から上書きするのなら、現在のSave位置を保持しておいて、１００未満なら＋１の行に転記、１００ならSave位置をリセットすれば良いです。

条件の書き方が曖昧過ぎです。

[yureighost]

ゲームのセーブ情報ですか。
思い付いたこととしては最後に上書きした行数を別途どこかのセルに保存しておいて、
転記毎にその行数を１増やし、101を超えたら1に戻すとかでいいのではないでしょうか。

[mdj]

For i = 2 To 101の「101」はコピー元の最大行値で、("A" & i)が("A" & Fix(i/100)*100+i)で、("C2")が("C" & i)で、どうでしょう。
追記：("C3")が("C" & i+1)、("C4")が("C" & i+2)。これらが固定ならばですけど
追記２：完全に読み違えてました。すいません。コピー元が100越えたら1に戻すものだと。

[neko_coffee]

元データのC2～4は都度内容が異なり、それを前回Saveした次の位置に転記したい
１００行分使い切ったら元に戻って先頭から上書き
まさにその通りです；；

[DreamTheater]

それならForループが無用の長物であることは自明ですよね？

[neko_coffee]

質問がわかりにくいなか皆さまアドバイスやヒントをありがとうございます。
全くの初学者ゆえ見様見真似で作成している状況です。色々調べてみてはいるのですが、調べ方も悪いのかもしれません…
最後に上書きした行数を別途セルに保存＆転記毎に行数を１増やし101を超えたら1に戻す、という考え方はわかるのですが、どう記述したらよいかわからず…

Answer 1

Option Explicit

Sub 登録()
    Dim rngFrom As Range
    Dim rngTo As Range
    Dim rngLog As Range
    Dim ixRow As Long
    Dim i As Long
    
    'セル範囲の指定
    Set rngFrom = Worksheets("シート").Range("C2:C4")
    Set rngTo = Worksheets("表").Range("A2:C101")
    Set rngLog = rngTo.Columns(4).Cells   '作業列
    ixRow = 1
    
    '前回登録時の目印を探す
    With WorksheetFunction
        i = .Max(rngLog)
        On Error Resume Next
        ixRow = .Match(i, rngLog, 0) + 1
        On Error GoTo 0
    End With
    '行が100行を超えたら、初期値1に戻す
    If ixRow > 100 Then ixRow = 1
    
    rngFrom.Copy
    rngTo(ixRow, 1).PasteSpecial Transpose:=True
    rngLog(ixRow, 1).Value = i + 1  '登録回数を記録(次回の登録時の目印に使う）
End Sub

登録毎に回数をカウントして記録してはいかがでしょうか？
そうすると、最大値を探すと前回登録された位置が
Match関数で探せます。
エクセルでは、作業用の列や作業用のシートを使用すると
考え方が簡単になることが多いです。
あと、セル範囲を変数に代入することを覚えると、
書き方が簡単になります。（セルを基準のセルからの相対位置で示します。）

フォームコントロールのボタンに登録してみてくだざい。

Answer 2

DreamTheaterさんのソースを流用させてもらって、
初めから行数をセルに保持しておくところだけ変えたやり方です。
保持セルを仮でA1にしてありますが、必要によって変えて下さい。

Sub addSaveData
    Dim counter As Long
    Dim saveCell As Range: Set saveCell = Range("A1")
    
    counter = saveCell
    
    If counter >= 99 Then
        counter = 0
    End If
    
    Sheets("表").Range("A2").Offset(counter, 0).Value = Sheets("入力").Range("C2").Value
    Sheets("表").Range("A2").Offset(counter, 1).Value = Sheets("入力").Range("C3").Value
    Sheets("表").Range("A2").Offset(counter, 2).Value = Sheets("入力").Range("C4").Value
    counter = counter + 1
    
    saveCell = counter
End Sub

Comments

[mattuwan]

値を保持する必要はなく、シートの状態を見ればよいことなので、マイナス評価にしました。

Answer 3

###補足（追記）
このVBAが書かれたブックを一旦閉じて、再度開いたときもセーブ位置を保持したいのなら、
ブックを閉じるときに現在のセーブ位置を任意のシートのセルに代入しておいて、次回開くときに
そのセルから値を戻す必要があります。

###サンプルコード

Private nowSavePoint As Integer     '現在のセーブ位置

' 以下はセーブ位置をリセットするときに呼び出す
Sub initializeSavePoint
    nowSavePoint = 0
End Sub

' 新たにセーブするときに呼び出す
Sub addSaveData
    If nowSavePoint >= 99 Then
        Call initializeSavePoint
    End If
    Sheets("表").Range("A2").Offset(nowSavePoint, 0).Value = Sheets("入力").Range("C2").Value
    Sheets("表").Range("A2").Offset(nowSavePoint, 1).Value = Sheets("入力").Range("C3").Value
    Sheets("表").Range("A2").Offset(nowSavePoint, 2).Value = Sheets("入力").Range("C4").Value
    nowSavePoint = nowSavePoint + 1
End Sub

以上！

Comments

[radames1000]

「Call nowSavePoint」は「Call initializeSavePoint」でしょうか。

[DreamTheater]

ご指摘ありがとうございます。
訂正しましたm(_ _)m

[neko_coffee]

回答ありがとうございます。
重ねてすみません、登録ボタンを押すと反映されるようにしたく、Sub　登録() ～ End Sub　内に組み込みたいと思っています。しかし、ご教示頂いた回答を記述したところ、If nowSavePoint >= 99 Thenの箇所のnowSavePointが未定義エラーになってしまいました。ステートメントの理解が浅く申し訳ないのですが、教えていただければ幸いです。

[DreamTheater]

サブルーチンと同じモジュールに1行目（Private nowSavePoint As Integer)を記述してますか？

[neko_coffee]

サブルーチンとSub addSaveDataのことでしょうか…？頂いた回答そのままの順番で記述してみたのですが、1行目に関しては他の箇所に記述するものなのでしょうか？

[mattuwan]

う～ん。
質問者の意図をくみ取れてないということでマイナス評価にしました。