範囲を別のワークシートにコピー入力ボックスを使用して範囲を選択

Question

私はInputBoxを持っているVBAマクロを作成しています。ユーザーはフルカラーの範囲を選択し、その範囲に別のワークシート上の特定の場所。私はこのコードを動作させようとしていますが、私が修正しようとするものによって異なるエラーが発生するので、誰かが私を助けてくれるのだろうかと思っていました。私はコードの関連部分貼り付けられています

Sub Create_CONV_Files() 

Dim NewCode As Range 
Set NewCode = Application.InputBox(Prompt:="Select the column with the code numbers", Title:="New Event Selector", Type:=8) 

Dim RawData As Worksheet 
Set RawData = ActiveSheet 

Dim OffSht As Worksheet 
Set OffSht = Sheets.Add(After:=Sheets(Sheets.Count)) 
OffSht.Name = "offset.sac" 

Worksheets(RawData).Range(NewCode).Copy _ 
    Destination:=OffSht.Range("A:A") 

End Sub 

を私の代わりに入力を行う文字列を試してみましたが、私もそこにエラーが発生して、それを修正するかどうかはわからないのです。私はフルコードが複数の宛先シートと範囲を持っているので、私が概説した方法をおおよそ使用することを望んでいました。

ご協力いただきありがとうございます。

Answer 1

あなたは天才だそのワークシート

Sub Create_CONV_Files() 

    Dim NewCode As Range 
    Set NewCode = Application.InputBox(prompt:="Select the column with the code numbers", title:="New Event Selector", Type:=8) 

    Dim OffSht As Worksheet 
    Set OffSht = Sheets.Add(After:=Sheets(Sheets.count)) 
    OffSht.Name = "offset.sac" 

    NewCode.Copy _ 
    Destination:=OffSht.Range("A1") 

End Sub