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

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

解決済みの質問

PasteSpecialメソッドの失敗

会社でVBAの勉強をしているのですが、
自分でコードを書いてみたところエラーが出て困っております
初心者なのでエラーの意味もわからずここにきました
みなさまよろしくお願いします(・・;)


Sub nigate()
Const SH_NAME As String = "おはようございます"
Dim i
Dim ws As Worksheet
Dim writerow As Integer
Dim endrow As Long

Set ws = ThisWorkbook.Worksheets(SH_NAME)
writerow = 2
With ws
endrow = .Cells(Rows.Count, 2).End(xlUp).Row
.Columns("M:N").Clear
For i = 2 To endrow
If Range("D" & i).Font.ColorIndex = 3 Then
Range("C" & i).Copy Range("L" & writerow)
.PasteSpecial xlPasteAllExceptBorders
writerow = writerow + 1
Application.CutCopyMode = False
ElseIf Range("D" & i).Interior.ColorIndex = 36 Then
Range("C" & i).Copy Range("K" & writerow)
.PasteSpecial xlPasteAllExceptBorders
writerow = writerow + 1
Application.CutCopyMode = False
End If
Next i
End With
End Sub


これを実行すると、

PasteSpecialメソッドは失敗しました`Worksheet`オブジェクト

と表示され止まってしまいます
コードで言うと

.PasteSpecial xlPasteAllExceptBorders

のところが黄色くなります
よろしくお願いしますm(__)m

投稿日時 - 2014-05-12 14:16:42

QNo.8591939

すぐに回答ほしいです

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

Range("C" & i).Copy Range("K" & writerow)
.PasteSpecial xlPasteAllExceptBorders

を以下のように。

Range("C" & i).Copy
Range("K" & writerow).PasteSpecial xlPasteAllExceptBorders

投稿日時 - 2014-05-12 15:04:49

お礼

ありがとうございます!
この通りにしたらうまくいきました!!
大変お世話になりました_(_^_)_

投稿日時 - 2014-05-12 15:11:19

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

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

回答(1)

あなたにオススメの質問