VBAでsheet(1)の値をsheet(2)に転記したい

Question

sheet(1)でボタンをクリックするとsheet(2)に値が入るマクロを作成中です。
sheet(1)のB3・B6・B9・B12の文字をsheet(2)のN8・N9・N10・N11にコピーしたいのですが、上手くいきません。
下記イメージのような動きを実現したいです。。。
※補足：sheet(1)のB3以下の数は変動します。

######シート①

######シート②

具体的には下記コードで上手く動作しません。

この書き方で詰まっています。

Bsh.Cells(8, 14).Value = Ash.Cells(3, i).Value

全体のコードです。

Sub 文字の転記()

'文字の転記

Dim Ash As Worksheet

Set Ash = Sheets(1)

Dim Bsh As Worksheet

Set Bsh = Sheets(2)


Dim i

For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row

Bsh.Cells(8, 14).Value = Ash.Cells(3, i).Value

   
Next i

End Sub

何分不慣れなため、どなたかご教授頂けますと幸いです

Answer 1

sheet(1)のB3・B6・B9・B12の文字をsheet(2)のN8・N9・N10・N11にコピーしたい

ということなら、下記でいいでしょう。

Dim Ash As Worksheet
Set Ash = Sheets(1)
Dim Bsh As Worksheet
Set Bsh = Sheets(2)

Bsh.Rnage("N8").Value = Ash.Rnage("B3").Value
Bsh.Rnage("N9").Value = Ash.Rnage("B6").Value
Bsh.Rnage("N10").Value = Ash.Rnage("B9").Value
Bsh.Rnage("N11").Value = Ash.Rnage("B12").Value

もしセルが４つとは限らないということなら、そう書いてください。

※補足：sheet(1)のB3以下の数は変動します。

書いてありましたね。
Ash の行は３ずつ増えていくので、Step 3 を追加すればOKです。
Bshの方は1ずつなので、3で割って、ずれてる分だけ加算すればOK。

あと元コードは、行と列の指定が逆ですね。

Dim i
For i = 3 To Ash.Cells(Rows.Count, 2).End(xlUp).Row Step 3
    Bsh.Cells(i \ 3 + 7, "N").Value = Ash.Cells(i, "B").Value
Next i

Comments

[radames1000]

全部Bshになってますよ。

[hatena19]

あら、しまった。
ご指摘ありがとうございます。
修正しておきました。

[yu-taro-]

hatena19さん、radames1000さん、早速のご回答感謝いたします。
解決致しました！誠にありがとうございました。

[hatena19]

回答に追記しました。