数値を入力、ボタンをクリックして行を挿入

質問

下記はA1に「5」を入力し、マクロを実行すると、A10行より5行分挿入するといったコードですが、シート1のA1に「5」を入力し、マクロを実行するとシート2のA10行より5行分挿入するといったコードを教えてくれませんか？
宜しくお願いします。
Sub Test()
Range("A10").Resize(Range("A1").Value).EntireRow.Insert
End Sub

回答No.4

watabe007 · ベストアンサー

>わかりやすくするために色をつけるように
こちらのテストでは色は着きましたよ
Sub Test()
　　Dim n As Long
　　n = Worksheets("Sheet1").Range("A1").Value
　　With Worksheets("Sheet2")
　　　　.Range("A10").Resize(n).EntireRow.Insert
　　　　.Range("A10").Resize(n).EntireRow.Interior.Color = vbYellow
　　　　.Activate
　　End With
End Sub

お礼

With Worksheets("Sheet2").Range("A10").Resize(n).EntireRow.Interior.Color = vbYellow
で色は付かなかったんでした。
With Worksheets("Sheet2")はいらなかったんですね。
ありがとうございました。

回答No.3

watabe007

>最後にシート2へ移動しないのですが…
Sub Test()
　　Dim n As Long
　　n = Worksheets("Sheet1").Range("A1").Value
　　With Worksheets("Sheet2")
　　　　.Range("A10").Resize(n).EntireRow.Insert
　　　　.Activate
　　End With
End Sub

補足

たびたびですみません。
動作できましたが、わかりやすくするために色をつけるように
Worksheets ("Sheet2")
.Range("A10").Resize(n).EntireRow.Interior.Color = vbYellow
と追記しましたが、動作できませんでした。
どこが違うのでしょうか？

回答No.2

watabe007

ちょっと見づらいので書き換えました。
Sub Test()
　　Dim n As Long
　　n = Worksheets("Sheet1").Range("A1").Value
　　Worksheets("Sheet2").Range("A10").Resize(n).EntireRow.Insert
End Sub

補足

ありがとうございます。
動作できましたが、最後にシート2へ移動しないのですが…

回答No.1

watabe007

どうぞ~
Sub Test2()
　　With Worksheets("Sheet1")
　　　　Worksheets("Sheet2").Range("A10").Resize(.Range("A1").Value).EntireRow.Insert
　　End With
End Sub

お礼

今回もありがとうございます。