[[20160209110448]]　『VBAマクロで、セルにコピー「別シート」に貼り付ａx（リンゴ）　ページの最後に飛ぶ

『VBAマクロで、セルにコピー「別シート」に貼り付けをしたい』（リンゴ）

ＶＢＡ初心者です

シート（日別勤務表）鈴木
　　　　　　　　　　森
　　　　　　　　　　南

別シート（印刷）に（日別勤務表）の　鈴木　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　森
　　　　　　　　　　　　　　　　　　南
　　　　　
　　　　　貼り付けする

　　ＶＢＡで、記録すると

ＳＵＢ　人員3人（）
Ｗｏｒｋｓｈｅｅｔｓ（”日別勤務表”）.Ｒａｎｇｅ（”Ｃ3：Ｃ5”）.ｃｏｐｙ

Ｗｏｒｋｓｈｅｅｔｓ（印刷）.Ｒａｎｇｅ（”Ｆ5：Ｆ7”）.ＰａｓｔｅＳｐｅｉａＩ　Ｐａｓｔｅ；＝ｘＩｐａｓｔｅＶａＩｕｅｓ

Ｅｎｄ　Ｓｕｂ

マクロ登録すると

実行エラー　　438が出てしまい、貼り付けが、できません

どこが、間違っているか、分かりません。

宜しくご伝授お願いします。

＜使用 Excel：unknown、使用 OS：WindowsVista ＞

 釣り？でないことを願いつつ

 リンゴさんは目が悪かったりされますか？
 提示されたコードで良くないところを指摘します。

 Ｗｏｒｋｓｈｅｅｔｓ（印刷）
                      ~~~~~~
 「印刷」というシート名であれば、""（ダブルクォーテーション）で文字を挟む必要が有ります。
 Worksheets("印刷")

 .ＰａｓｔｅＳｐｅｉａＩ　Ｐａｓｔｅ；＝ｘＩｐａｓｔｅＶａＩｕｅｓ 
                 ~~   ~~            ~~    ~~              ~~
 SpeialではなくSpe「c」ialです
 IではなくLです
 ;（セミコロン）ではなく、:（コロン）です
    Sub 人員3人()
        Worksheets("日別勤務表").Range("C3:C5").Copy
        Worksheets("印刷").Range("F5:F7").PasteSpecial Paste:=xlPasteValues
    End Sub
（稲葉） 2016/02/09(火) 12:35

稲葉さん

ご指摘のとうり、目がよくありません。

指摘があった、コードを直した所、出来ました。

本当に、ありがとうございました。

（リンゴ） 2016/02/09(火) 12:55

コメント返信：

[ 一覧(最新更新順) ]

[[20160209110448]] 『VBAマクロで、セルにコピー「別シート」に貼り付ａx（リンゴ） ページの最後に飛ぶ

[[20160209110448]]　『VBAマクロで、セルにコピー「別シート」に貼り付ａx（リンゴ）　ページの最後に飛ぶ