エクセルの学校


[[20110623223934]] 『Excelマクロでオートフィルターからコピペできなax(しょう) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

|
| 全文検索 | 過去ログ | HOME ]

 

『Excelマクロでオートフィルターからコピペできない』(しょう)

ファイルのB列の値から0以外の値をオートフィルターで抽出し、値を、別のファイルのD列の一番下に貼りつけるマクロを作っていますがうまくいきません。

OS:Windows7
Excel2010

今作ったのは

  
Sub macro1()
 
If ActiveSheet.AutoFilterMode = False Then
Range("A:G").Select
Selection.AutoFilter
Else
Selection.AutoFilter
Range("A:G").Select
Selection.AutoFilter
End If
 
 
Selection.AutoFilter Field:=2, Criteria1:="<>0", Operator:=xlAnd
Range("A1").Select
Range("B2", Range("B2").End(xlDown)).Select
Selection.Copy
 
Windows("貼りつけるファイル名").Activate
Cells(Rows.Count, 4).End(xlUp).Offset(1).Select
ActiveSheet.Paste
 
 
End Sub

です。

フィルターで0以外の値を抽出しコピーまではできていますが、貼りつけるところでエラーがでます。

Microsoft Visual Basic

400

というエラーです。

何が悪いのか分かりません・・・。
分かる方いましたらご教授ください。よろしくお願いします。


 原因は貼り付けるシートがActivate/Select されていないからでしょう。
 Select/Activateしなくてもできますけど...
 (seiya)


解決しました

ありがとうございました


コメント:

[ 一覧(最新更新順) |

]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.