VBA 別シート指定の行上書き

Question

Sheet2（記入）で編集しSheet1（一覧）に上書きをさせたいのです。
なかなかうまく行かずご指導お願い致します。

Sheet１（一覧）
![

Sheet2（記入）記入位置は、固定されています。

結果
Sheet１（一覧）

よろしくお願い致します。

Comments

[meg_]

１．「Sheet2（記入）記入位置は、固定されています。」の「記入位置は、固定されています。」とはどういう意味ですか？
２．「なかなかうまく行かず」出来てるところまでのコードを掲載してください。

[yuhei712]

すいません。
私自身が勉強不足の為形になっていません。すべてをお任せするような形で申し訳御座いません。
本Excelでは、Sheet2（記入）にSheet1（一覧）から検索させるVBAコードを組み上げてあります。
そこで編集が応じた場合Sheet2（記入）で編集し上書きさせたいのです。
よって、Sheet2（記入）では、列、行が固定されているという事です。

※例えば　鈴木さんの住所・苗字変更があってSheet1（一覧）から検索をします。Sheet2（記入）で編集し個人IDを変えたくないので元の行に戻す。
そんなイメージです。
（操作には、お年寄りが居まして昔のシートを変えれません。ですのでユーザーフォームが使えないのです・・・・）お手数おかけします。

説明が下手でしょうか？？（お答え出来てますでしょうか？？）
よろしくお願い致します。

[meg_]

うーん。質問の画像を見ると「カ・キ・ク・ケ・コ」が順不同で並んでいるよう見えますが、実際は違うということでしょうか？

[yuhei712]

質問画像（例）
カ（C3）キ（E3）ク（D4）ケ（D5）コ（F7）固定です。

本Excel書式Sheet2（記入）も不通りです。
実際は、違います。教えて頂いたものを参考にし作成したいと思っております。

Answer 1

Sub test()
    Dim rngFillIn As Range
    Dim rngList As Range
    Dim ixRow As Long
    Dim ixCol As Long
    
    '初期値の設定(前提条件定義）
    Set rngFillIn = Worksheets("Sheet2").Range("D1,C3,E3,D4,D5,F7")
    Set rngList = Worksheets("Sheet1").Range("B2").CurrentRegion
    ixRow = rngList.Rows.Count
    ixCol = 2
    
    '一覧表の位置検索
    On Error GoTo ErrHandler
    ixRow = WorksheetFunction.Match(rngFillIn.Areas(1).Cells, rngList.Columns(1).Cells, 0)
    On Error GoTo 0
    
    '各セルの値を転記
    For ixCol = ixCol To rngFillIn.Areas.Count
        rngList(ixRow, ixCol).Value = rngFillIn.Areas(i).Value
    Next
    
    Exit Sub

'IDが見つからなかった場合の例外処理(新規データの登録位置再定義)
ErrHandler:
    ixRow = ixRow + 1
    ixCol = 1
    Resume Next
End Sub

こんな感じかな。
わからないところがあれば聞いて下さい。

「丸投げ」と言われても仕方ないけど、どう聞いていいかも難しいところですよね＾＾；

飛び飛びのセル範囲はAreasプロパティで各セルを取得できます。
↓動作を確認してみるコード

Msgbox Range("D1,C3,E3,D4,D5,F7").Areas(4).Address(0,0)

Comments

[yuhei712]

お時間をさいて頂き本当にありがとうございます。
試してみましたが勉強不足が響いてわからないエラーが発生しました。
コンパイル　エラー（変数が定義されていません。）
とメッセージがでます。これは、何が問題でしょうか？？

[mattuwan]

＞コンパイル　エラー（変数が定義されていません。）
どこかにタイプミスがあります。
できれば、エラーが出た行も一緒にご提示ください。

＞rngList(ixRow, ixCol).Value = rngFillIn.Areas(i).Value

iという変数は宣言してないですね＾＾；
rngList(ixRow, ixCol).Value = rngFillIn.Areas(ixCol).Value
が意図していた文です。

[yuhei712]

本当に本当にありがとうございます。
VBAでの知識をもっとつけて行きたいと思っています。
今後ともよろしくお願い致します。

[yuhei712]

すいません・・・
ちなみに一覧がC~G通しではなくC,D,E,F,Kと列が飛んでいる場合どうすればいいですか？
度々すいません

[mattuwan]

rngList.Row(ixRow).range("A1,B1,C1,D1,E1,J1").Areas(ixCol).Value = rngFillIn.Areas(ixCol).Value

としてはどうでしょうか？
後で分かり難いかもしれませんが、
見つけたセルをA1セルとみなして数えて指定できます。
ん~セルの数が合ってない気がしますが、ちょっとやってみてください。

[yuhei712]

ありがとうございました。
本Excelに差し替え完了いたしました。

無事動いております。
度々本当にありがとうございました。