| |
もう見て居ないかな？
ゴメン、Listの指定位置が間違っていました
'"対象マスター"データのA1を基準とします（列見出しのセル位置）
Set rngList1 = Worksheets("対象マスター").Cells(1, "C")
が
'"対象マスター"データのA1を基準とします（列見出しのセル位置）
Set rngList1 = Worksheets("対象マスター").Cells(1, "A")
とします、詰まり.Cells(1, "C")が.Cells(1, "A")と成ります
また、削除するシートの指定の部分も、シートを指定する変更部分がたりませんでした
'もし、逆に、"対象マスター"の其の行を削除すると言う事なら以下の様に修正してください
'"発注商品"のデータ列数（A列〜C列の3列）
Const clngColumns1 As Long = 3
'"発注商品"の比較Key列位置（基準からのA列「Ｊコード」の列Offset値）
Const clngKeys1 As Long = 0
'"対象マスター"のデータ列数（A列〜J列の10列）
Const clngColumns2 As Long = 10
'"対象マスター"の比較Key列位置（基準からのA列「Ｊコード」列Offset値）
Const clngKeys2 As Long = 0
'"対象マスター"の最終整列Key列(C列)
Const clngSort As Long = 2
'"対象マスター"データのA1を基準とします（列見出しのセル位置）
Set rngList1 = Worksheets("発注商品").Cells(1, "A")
'"発注商品"データのA1を基準とする（列見出しのセル位置）
Set rngList2 = Worksheets("対象マスター").Cells(1, "A")
|
|
Hirofumi
- 06/6/24(土) 18:59 -
