[[20101014105924]]　『オブジェクトはクライアントから切断されました』（okamoto）　ページの最後に飛ぶ

『オブジェクトはクライアントから切断されました』（okamoto）

 実行時エラー '-2147417848 (80010108)':
 オートメーション エラー
 起動されたオブジェクトはクライアントから切断されました。

 シート振替、２行目にAutoFilterを設置１５列の1133に一致する行をシート
 複写にコピーするコードですが、上記エラーが表示されます
 Selection.AutoFilter Field:=15, Criteria1:="1133"
 ここの部分です
 ご指導お願いします

 Sub 完成工事複写貸方() '527
 Sheets("振替").Select
 Range("a2").Select
 Selection.AutoFilter
 Selection.AutoFilter Field:=15, Criteria1:="1133"
 With Sheets("振替")
 .Range(.Range("a3:ad3"), .Range("a50000").End(xlUp)).SpecialCells _
 (xlCellTypeVisible).Select
 Selection.Copy
 Sheets("複写").Select
 Range("a65000").End(xlUp).Offset(1).Select
 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,  
 SkipBlanks:=False,   Transpose:=False
 End With
 Sheets("振替").Select
 Range("A2").Select
 Application.CutCopyMode = False
 Selection.AutoFilter
 Sheets("複写").Select
 Range("a2").Select
 End Sub

 こちらではエラーが発生しません。
 Excelのバージョンが判りませんが該当しますか。
http://support.microsoft.com/kb/956834/ja

 （川野鮎太郎）

 川野鮎太郎様
 ありがとうございます
 故障でしょうか、全然つながらなくてです。
 返事遅くなりすいません
 おっしゃるように、どうも私のＢＯＯＫが異常のようです。
 検討させてください。

コメント返信：

[ 一覧(最新更新順) ]

[[20101014105924]] 『オブジェクトはクライアントから切断されました』（okamoto） ページの最後に飛ぶ

[[20101014105924]]　『オブジェクトはクライアントから切断されました』（okamoto）　ページの最後に飛ぶ