| |
▼雪だるま さん：
>▼Uta さん：
>
>>TG = Sheet1.Range("A1").Value
>>Worksheets("B").Range("A1:Z100").Copy_
>> Destination:=Worksheets("Sheet" & TG).Range("A1")
>
>構文エラーになっちゃいました
>シート１のA1の値を参照してBのA1からZ100をコピーしい
>シート１−２０はTGになるんですか
返事が遅くなってしまって申し訳ありません。
スペースの位置がおかしかったようです。
TG = Sheet1.Range("A1").Value
Worksheets("B").Range("A1:Z100").Copy _
Destination:=Worksheets("Sheet" & TG).Range("A1")
これでもう一度試してみてください。
だめなようでしたらもう一度連絡ください。
動作は確認済みです。
また上の構文はあくまでもシートネームが
Sheet1 sheet2 となっている場合に限ります。
もしシートネームを任意の名前に書き直して
あるとすると作動しません。
その場合は以下を試してみてください。
Private Sub Test_Copy2()
cnt = 1
For Each d In Worksheets
TG = Sheet1.Range("A1").Value
If TG = cnt Then
sheetname = d.Name
End If
cnt = cnt + 1
Next
Worksheets("B").Range("A1:Z100").Copy _
Destination:=Worksheets(sheetname).Range("A1")
End Sub
|
|
