ＶＢＡ関数

質問

ＰＣ　ほぼ素人です。ネットで調べて、下記のコードを作成できました。

バージョンは2007

Sub 抽出()
Worksheets("Sheet5").Activate
Worksheets("Sheet5").Range(Cells(1, 1), Cells(328, 18)).Clear

With Worksheets("Sheet3").Range("A8")
.AutoFilter Field:=1, Criteria1:=Worksheets("Sheet3").Range("a2") ''(1)

.AutoFilter Field:=2, Criteria1:=Worksheets("Sheet3").Range("b2") ''(1)
.CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("Sheet5").Range("A1") ''(2)
.AutoFilter ''(3)
End With
Worksheets("Sheet5").Activate
End Sub

Ｓｈｅｅｔ5に抽出後、そのデータを書き換え　Ｓｈｅｅｔ3へ戻したいのですが可能なのでしょうか？

　　　　　Ａ　　Ｂ　　　　　　Ｃ　　　　　Ｄ　　　　　　Ｅ　　　　　　Ｆ　　　　　　Ｇ
　　1　　月　　日　　　得意先　　　前回　　　　数量　　　　今回　　　　数量
　　2　　3　　　5　　　　Ａ商事　　　1月15日　　　2　　　　　2月5日　　　3

抽出後、Ｓｈｅｅｔ3には、ABDEFGを戻したいのです。

説明不足かもしれませんが、どうか宜しくお願い致します。

回答No.3

CC_T · ベストアンサー

失礼。検索行の末尾の.rowが括弧の中に入ってしまってました。
外に出してください。
.Row)　ではなく　).Row　です。

line3 = Worksheets("Sheet3").Range("H:H").Find(what:=Worksheets("Sheet5").Cells(line5, 8)).Row

お礼

本当に、素晴らしい回答を　ありがとうございました。
これで、コピー貼り付けの手間が省けます。
また、何かの際にはどうぞお助け頂ければ幸いです。

ＰＳ

プロフィールを拝見しました。
京都府在住なのですね。私は、北海道です　4月に京都旅行に行きます。
修学旅行以来なので、楽しみです。

回答No.2

CC_T

>Ｈ列に通しＮoを追加しました。
では、例えばsheet５の上から順に、
・H列の通しNo.を見て同じ通し番号をsheet３で探し
・Sheet5の該当行のABDEF列の内容をsheet３の該当行列に代入

例えば、こんなの。

Sub　Macro1()
'
Dim　line3　As　Integer
Dim　line5　As　Integer

line5　=　2　　'初期値を２行目に設定してます

Do　While　Worksheets("Sheet5").Cells(line5,　1).Value　>　0

'sheet5の通し番号をsheet3のH列から検索して、その行数をline3に代入する。
　　line3　=　Worksheets("Sheet3").Range("H:H").Find(what:=Worksheets("Sheet5").Cells(line5,　8).Row)

'A,B列内容のコピー
　　Worksheets("Sheet5").Range("A"　&　line5,　"B"　&　line5).Copy　Worksheets("Sheet3").Cells(line3,　1)
'D～G列内容のコピー
　　Worksheets("Sheet5").Range("D"　&　line5,　"G"　&　line5).Copy　Worksheets("Sheet3").Cells(line3,　4)
　　line5　=　line5　+　1　　　　'次の行へ

Loop

お礼

早速、コピー実行してみました。
ＡＢＤＥＦＧ　転記成功です。

しかし、Ｈ列の検索が出来ませんでした。
シート3の2行目から順に貼り付けられました。

説明してませんでしたが、シート3は8行目からデータが入力されており
シート5は1行目に抽出してます。このへんが問題なのでしょうか？

シート3このようになってます。

　　　Ａ　　Ｂ　　Ｃ・・・Ｈ
1　　月　　日　　名　　　
2　　3　　5　　　　　　　
3　　　　　　　　　抽出ボタン
4
・
・
8　　月　　日　　名
9　　2　　13　　Ｚさん・・1
10　2　　　5　　Ｎさん・・2
11　3　　　5　　Ａ商事・・3

抽出ボタン　クリックで　Ａ商事　がシート5に抽出されます。

シート3のデータは200件です。

ご面倒をかけますがどうか宜しくお願い致します。

回答No.1

CC_T

sheet５に書きだした時点で、sheet３の元データとの関連性はなくなります。
従ってsheet５で「書き換えた」内容でsheet３の「元データ」を書き換える事はできません。
VBAが「元データ」がどこにあるのかを判断できないためです。

Sheet3からデータを引っ張って来る際、同時にその行No.なりを取得してsheet５に書きだしておけば、何行目を書き換えに行けばいいのかを指示できます。
例えば、sheet3のデータ列に通しNo.の列を追加しておけば、フィルターでその列もsheet5に取り込まれますよね（もちろん通しNo.に重複があってはダメですよ）。それを手がかりにして元データをsheet５の内容で書き換えることが可能になります。

補足

ご回答有難うございます。
早速、検索してみましたが、これと言う式を探せませんでした。(素人ゆえに）
理解不足なのでしょう。

Ｈ列に通しＮoを追加しました。

非常に厚かましいお願いですが、式、もしくは、参考になるようなものを教えていただければ幸いです。