みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

オブジェクトが必要です

またまた困ってます、、
このコードを実行したとき

.Range("H" & i).Copy.wsDetail.Range ("D24")

ここでエラーが起きて
「オブジェクトが必要です」
と言われてしまいます(・・;)

だれかよろしくお願いします<m(__)m>

※シートの宣言は上でやってます

Private Sub 社会保険()

Dim i
Dim endrow As Long
Dim kihon As Long


Set wshoken = Worksheets("各種保険料表")
Set wsDetail = Worksheets("給与明細")
Set wsData = Worksheets("データ入力")

kihon = WorksheetFunction.Round(wsData.Range("C5"), -4)
endrow = Cells(Rows.Count, 3).End(xlUp).Row

With wshoken

For i = 2 To endrow
If kihon = .Range("C" & i) Then
.Range("H" & i).Copy.wsDetail.Range ("D24")
.Range("L" & i).Copy.wsDetail.Range ("H24")
.Range("N" & i).Copy.wsDetail.Range ("L24")
Application.CutCopyMode = False
End If
Next i

End With
End Sub

投稿日時 - 2014-05-20 14:21:33

QNo.8603138

すぐに回答ほしいです

質問者が選んだベストアンサー

> .Range("H" & i).Copy.wsDetail.Range ("D24")
> .Range("L" & i).Copy.wsDetail.Range ("H24")
> .Range("N" & i).Copy.wsDetail.Range ("L24")
この3行の"Copy"と"wsDetail"の間にあるピリオドを半角スペースに直してください。

投稿日時 - 2014-05-20 17:37:48

お礼

大変遅くなりました(・・;)
ありがとうございました<m(__)m>

投稿日時 - 2014-05-27 09:55:06

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

> .Range("H" & i).Copy.wsDetail.Range ("D24")
 .Range("H" & i).Copy wsDetail.Range("D24")
では?

投稿日時 - 2014-05-20 16:07:38

補足

すいません(・・;)
どういう意味でしょうか??

投稿日時 - 2014-05-20 17:29:47

あなたにオススメの質問