2017-06-28 14 views
1

私はいくつかの値を変更したコードを持っています。今私は次のエラーがあります:エラー13、タイプが一致しません。エラーはこの方向です:エラー13型不一致コピ​​ー貼り付け

ThisWorkbook.Sheets("AS").Range("A10:M19").Copy 
ThisWorkbook.Sheets("InvoerIO").Range("A1:M10").Offset(z, 0).PasteSpecial xlPasteFormats 

何が問題なのですか?

答えて

1

私は問題がzという値にあると思います。 私は次のことを試みました。それは動作します:

Option Explicit 

Public Sub TestMe() 

    Worksheets(1).Range("A10:M19").Copy 
    Worksheets(2).Range("A1:M10").Offset(1, 0).PasteSpecial xlPasteFormats 
    Application.CutCopyMode = False 

End Sub 
+1

いいえ動作しません。 (忘れてしまった** ** ** somewhere ** s **:D –

+0

@ASH後でWorksheet(1)を追加しました。最初はExcelの元の名前でした:D – Vityata

+1

ありがとうございました! zは整数ではなく文字列だった – Johan

関連する問題