Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

60544 / 76732

←次へ　｜　前へ→


	【20826】実行時エラー'1004'

ブラック - 04/12/21(火) 16:16 -


	引用なし

	パスワード

初めて投稿する初心者です。

下記の★部分に
「実行時エラー'1004'
　アプリケーション定義またはオブジェクト定義のエラーです」
というエラーが出ます。

どなたかエラーの原因がわかりましたらご教授ください。
よろしくお願いいたします。

Public Data2 As Worksheet
Public c As Integer
Public k As String
Public r_first, r_count As Long
Public c_first, c_count As Integer

Data2.Select
r_first = ActiveSheet.UsedRange.Row
r_count = r_first + ActiveSheet.UsedRange.Rows.Count - 1
c_first = ActiveSheet.UsedRange.Column
c_count = c_first + ActiveSheet.UsedRange.Columns.Count - 1

For c = c_first To c_count
　　k = ActiveSheet.Cells(1, c)
　　If k = "New" Then
　　　　ActiveSheet.Range(Cells(1, c), Cells(r_count, c)).Copy★
　　　　ActiveSheet.Range("C13").PasteSpecial Paste:=xlValues
　　　　Application.CutCopyMode = False
　　End If
Next

0 hits

▼

【20826】実行時エラー'1004' ブラック 04/12/21(火) 16:16

≪