マクロで住所録を抽出して、別シートにコピーするのに
マクロで住所録を抽出して、別シートに抽出したデータをバラバラに貼り付けたいです。
当方、マクロ初心者なので、分かりやすく教えてください。
シート1『入力シート』、シート2『印刷シート』、シート3に『客先住所録』とあって、今までは住所録のデータをセル1つずつをコピーしてシート1の入力シートに貼り付けて、シート1から2へは関数の=セル番号として飛ばして、シート2の印刷シートを印刷していました。
せっかく、住所録があるからなんとか簡単にならないかと言われて、初心者ながらマクロを作成しました。住所録のオートフィルタで抽出まではうまく出来たのですが、入力シートにコピー貼付が作成時に抽出した住所録は出来ますが、それ以外の住所で抽出すると出来ません。
どうすれば、いいのかご教授願います。
シート3『客先住所録』
A1
チェック
A2
1
A3 B3 C3 D4 E4 F4
1又は空白 会社名 〒 住所 FAX TEL
以下70件ほど住所録入力あり。
シート1『入力シート』
G4に〒 G5に住所 K6に電話番号 Y6にFAX G7に会社名
にコピーしたいです。
自分が作成したマクロは
Range("A3:F70").Select
Range("A3:F48").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:A2"), Unique:=False
Range("B7").Select
Selection.Copy
Sheets("入力シート").Select
Range("G7:AF7").Select
ActiveSheet.Paste
Sheets("客先住所録").Select
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("入力シート").Select
Range("I4:AH4").Select
ActiveSheet.Paste
Sheets("客先住所録").Select
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("入力シート").Select
Range("G5:AH5").Select
ActiveSheet.Paste
Sheets("客先住所録").Select
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("入力シート").Select
Range("K6:T6").Select
ActiveSheet.Paste
Sheets("客先住所録").Select
Range("F7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("入力シート").Select
Range("Y6:AH6").Select
ActiveSheet.Paste
End Sub
どう治せば良いのか、宜しくお願いします。
宜しくお願いします。
お礼
Wendy02様 連休明け早速試してみます。 またお伺いするかもしれませんが・・・。 ご回答ありがとうございます。