マクロ Value=Valueで複写できない

質問

いつも回答して頂きありがとうございます。
たぶん基本的な質問だと思うのですが、どうしたら上手くいくのか分かりません。御指導の程よろしくお願いします。以下の記述でエラーがかかります。

『コンパイルエラー：SubまたはFunctionが定義されていません』
Worksheets("一覧").Cells(d, 5).Value = Wokrsheets("編集用一覧").Cells(e, 5).Value

記述全体
Sub TEST()
Dim d As Integer
Dim e As Integer
Worksheets("一覧").Activate
d = 3
e = 6
Do While Worksheets("一覧").Cells(d, 2).Value <> ""
Worksheets("一覧").Cells(d, 5).Value = Wokrsheets("編集用一覧").Cells(e, 5).Value
d = d + 1
e = e + 4
Loop
End Sub

回答No.3

K Kazz（@JazzCorp） · ベストアンサー

直接打ち込むスタイルを堅持するためには字数減らすことが大事では？？

Sub TEST()
Dim d As Long
Dim e As Long
d = 3
e = 6
Sheets("一覧").Activate
With Sheets("編集用一覧")
Do While Cells(d, 2).Value <> ""
Cells(d, 5).Value = .Cells(e, 5).Value
d = d + 1
e = e + 4
Loop
End With
End Sub

お礼

回答ありがとうございました。
ぜんぜん気付きませんでした。やっぱり初歩的なミスでしたね。これからはスペルの入力が間違っていないかも確認するようにします。あと、字数を減らすのもスペル間違いを少なくする一つの対策ですね。

回答No.2

KURUMITO

Worksheets("一覧").Cells(d, 5).Value = Wokrsheets("編集用一覧").Cells(e, 5).Value
上の式で
Wokrsheets("編集用一覧")のスペルが間違っていますね。
Worksheets("編集用一覧").

お礼

回答ありがとうございました。
ぜんぜん気付きませんでした。やっぱり初歩的なミスでしたね。これからはスペルの入力が間違っていないかも確認するようにします。

回答No.1

mu2011

スペルミスです。
Wokrsheets("編集用一覧")～　⇒　Worksheets("編集用一覧")～

お礼

回答ありがとうございました。
ぜんぜん気付きませんでした。やっぱり初歩的なミスでしたね。これからはスペルの入力が間違っていないかも確認するようにします。