エクセルマクロでオートフィルタを貼り付け。VBA

質問

お世話になっております。
エクセルのマクロを作成したのですが、上手く機能いたしません。

オートフィルタで条件に一致するものが現在表示されている
「CSV元データをここに貼り付ける」という名前のシートが
ございます。

これをシートを全選択し、そのまま
「加工1」という名前のシートに貼り付ける。

といったマクロを作成したのですが、加工1には何も貼り付けられていないようです。

下記にマクロのプログラムを記載しますので、どこを訂正すればいいのかをお教えいただければ
ありがたいです。
無知で申し訳ございませんが、何卒よろしく御願いいたします。
当方が今したいのは、マクロ2なのですが、マクロ2を見ようとするとマクロ1も表示されます。
なぜ、マクロ1もでてくるのかわかりませんが、よろしく御願いいたします。

Sub マクロ1()
'
' マクロ1 Macro
' マクロ記録日 : 2011/10/31 ユーザー名 :
'

'
Columns("A:D").Select
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Sheets("読込データ(加工1)").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("読込データ(ORG)").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
Sheets("csv元データをここに貼り付ける").Select
Columns("B:D").Select
Selection.Delete Shift:=xlToLeft
Columns("I:P").Select
Selection.Delete Shift:=xlToLeft
Range("I19").Select
Sheets("csv元データをここに貼り付ける").Select
Rows("2:2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=9, Criteria1:="=2", Operator:=xlAnd
End Sub
Sub マクロ2()
'
' マクロ2 Macro
' マクロ記録日 : 2011/10/31 ユーザー名 :
'

'
Cells.Select
Selection.Copy
Sheets("加工1").Select
Range("G12").Select
End Sub

回答No.3

keithin · ベストアンサー

＞加工1シートにに貼り付ける事ができたのですが、
＞「実行時エラー’1004’：　RangeクラスのCOPYメソッドが失敗しました」
＞となります。

仰有っていることの，状況のご説明が間違っていると考えられます。
貼り付けが出来たのなら，その時はエラーは出なかったハズです。
それとも貼り付けが出来たのにエラーも出たのなら，エラーは回答したマクロとは違う部分で起こっていると考えられます。

すんなりと貼り付けられる場合もあるし，エラーが出て止まる場合もありました，と言いたかったのだと想定して回答します。

＞「実行時エラー’1004’：　RangeクラスのCOPYメソッドが失敗しました」

これは回答で注意しておいた
再掲：
＞言わずもがなですが，マクロ１を実行してＣＳＶを貼り付けを整形，オートフィルタが出来た後に，使います。

という条件を満たしていないと推定されます。
回答のマクロと他のマクロとの組み合わせを考える内に，全体の作業の流れの把握が出来なくなっているのではありませんか？

いずれにしてもまず最初のステップとして，ご質問で掲示されていたMacro1(先の回答でもお話しした「CSVから貼り付けて列を整理し，必要な列にオートフィルタを取り付ける」）と，今回ご質問に回答したマクロのこの２つをまずは一緒にして，その部分の作業が自動でつるつるっと進むように，ご自分で検討を重ねてください。
その部分の合成が出来たら，更に次のステップとして他のマクロとの合体を一つずつ順を追って（それぞれのマクロが行う作業の段取りや前提条件，引き継ぎをよく考えながら）進めてみてください。

お礼

再度流れを意識して、作業しなおしましたら上手くいきました。
ありがとうございました。

回答No.2

imogasi

質問やコードが判りにくい。
例データでもあげて質問すること。
＞CSV元データをここに貼り付ける」という名前のシート
こんなのも早稲ぶり名シート名を例に挙げス、下記のように質問すればわかりらすいのだ。
ー－
例データ
Ｓｈｅｅｔ１のＡ列にデータがあるとする。
氏名
山田
太田
木村
加藤
山田
佐藤
山田
データーフィルターオートフィルター山田を選ぶ
Ｓｈｅｅｔ１の全セル選択（データ範囲でもよかろう）をコピー
Ｓｈｅｅｔ２のＡ１などを選択して貼り付け。
結果
Ｓｈｅｅｔ２
氏名
山田
山田
山田
となった。
ーー
マクロの記録を取ると
Sub Macro4()

Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="山田"
Selection.Copy
Sheets("Sheet2").Select
Range("B1").Select
ActiveSheet.Paste
Range("C7").Select
End Sub
質問と形は是全違う。
以上の私の操作で間違いはあるのか？
ーー
マクロの記録を取ったようだが、本質に関係のない操作を挟んでいないか。それをすると、質問異出すようなコードで無くなる。
よく考えて論点（質問点を絞って）を整理して、再質問したら。
ここはコードのエラーを見つけてもらうところではない。ヒントによって自分でみつける方便。

お礼

ありがとうございます。
自分自身、例を挙げて説明すべきだとは思いましたが、何が原因かさっぱり
わかりませんでしたので、そのままのデータを載せました。
質問がきちんとできるレベルに、知識を深める次第であります。

回答No.1

keithin

マクロ２には肝心の「貼り付ける」の操作を記録できていないため，貼り付けを出来ていません。
(マクロを記録する操作をしたときに，貼り付けようとしたらエクセルがエラーを出して実行できなかったので，記録も出来なかったと推測されます)

マクロ２を削除し，下記をコピー貼り付けて使います

sub macro2r1()
　activesheet.autofilter.range.copy worksheets("加工1").range("G12")
　application.cutcopymode = false
end sub

言わずもがなですが，マクロ１を実行してＣＳＶを貼り付けを整形，オートフィルタが出来た後に，使います。

お礼

丁寧なご解答、誠にありがとうございます。
上記内容のマクロを実行したら、加工1に貼り付ける事ができました。
G
12の部分だけ、A2に変更いたしました。
貼り付け先をA2にしたかったので。
ただ、加工1シートにに貼り付ける事ができたのですが、

「実行時エラー’1004’：　RangeクラスのCOPYメソッドが失敗しました」
となります。
マクロは下記の内容になっております。

Sub 雑勘定管理業務2()

ActiveSheet.AutoFilter.Range.Copy Worksheets("加工1").Range("A2")
Application.CutCopyMode = False
End Sub

原因がわかりかねますので、ご指導のほど、よろしく御願い申し上げます。
私としては、マクロ1からマクロ7までの作業を一つのマクロにまとめたいのですが、
上記のような実行時エラーが出てしまうと、一つのマクロにまとめれるのか分かり
かねますので。