[[20161227150430]]　『印刷履歴』（ひよっこ）　ページの最後に飛ぶ

『印刷履歴』（ひよっこ）

マクロ初心者です。sheet1に入力した下記のsheet1のような作業指示書を都度印刷しています。
印刷した数百枚の紙を月毎に集計していますが、マクロを使って印刷履歴の様なものを作成したいです。sheet2に転記する方法がありましたら教えてほしいです。

※B1の製品コードを入力するとVLOOKUP関数で製品名が表示されるようになっています。
※sheet1に「集計ボタン」を作成したのでできればそこにマクロを設定したいです。
※「集計ボタン」を押すとsheet2の2行目以降に追加される形がいいです。

 A   　　B　　　　　C　　　　　D
1日付　　製品コード　
2　　　　製品名　　仕込み回数　合計量
3

  A           B        　　C          D 　　　　　E
1日付　　　　製品コード　　製品名　　仕込み回数　 合計量
2
3

Sub ボタン1_Click()

 '製品コードの転記
 Worksheets("sheet2").Range("B1").Value = Worksheets("sheet1").Range("B1").Value

 'ロットの転記
 Worksheets("sheet2").Range("A1").Value = Worksheets("sheet1").Range("A1").Value

 '仕込み回数の転記
 Worksheets("sheet2").Range("D1").Value = Worksheets("sheet1").Range("C2").Value

 '回数の転記
 Worksheets("sheet2").Range("E1").Value = Worksheets("sheet1").Range("D2").Value

  'ループ処理
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim myRow As Long
     Set sh1 = Worksheets("sheet1")
     Set sh2 = Worksheets("sheet2")
       With sh2
      myRow = Range("B" & Rows.Count).End(xlUp).Row + 1

    End With

End Sub

試行錯誤しながら上記のように作成してみましたが、うまく行きません。
どなたかご教授お願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 Sub ボタン1_Click()
  'ループ処理
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim myRow As Long
    Set sh1 = Worksheets("sheet1")
    Set sh2 = Worksheets("sheet2")

    With sh2
         myRow = .Range("B" & Rows.Count).End(xlUp).Row + 1
        '製品コードの転記
        .Range("B" & myRow).Value = sh1.Range("B1").Value
        'ロットの転記
        .Range("A" & myRow).Value = sh1.Range("A1").Value
        '仕込み回数の転記
        .Range("D" & myRow).Value = sh1.Range("C2").Value
        '回数の転記
        .Range("E" & myRow).Value = sh1.Range("D2").Value
    End With
 End Sub

（mm） 2016/12/27(火) 16:40

 記述方法が違うだけですが。

 Sub Sample()
    Dim shD As Worksheet
    Dim shH As Worksheet

    Set shD = Sheets("Sheet1")
    Set shH = Sheets("Sheet2")

    shH.Range("A" & Rows.Count).End(xlUp).Offset(1).Range("A1:E1").Value = _
        Array(shD.Range("A1").Value, shD.Range("B1").Value, shD.Range("B2").Value, shD.Range("C2").Value, shD.Range("D2").Value)

 End Sub

（β） 2016/12/28(水) 00:05

コメント返信：

[ 一覧(最新更新順) ]

[[20161227150430]] 『印刷履歴』（ひよっこ） ページの最後に飛ぶ

[[20161227150430]]　『印刷履歴』（ひよっこ）　ページの最後に飛ぶ