バージョン：WindowsXP Excel2003
はじめまして。エクセルのマクロに関する質問です。
納品書をエクセルで作成しました。
シート１に納品書、シート３に売上帳があり、シート名も”納品書”、”売上帳”
としています。
納品書に入力した際に、自動的に売上帳に入るよう、コードを作成しました。
その際、納品書をオートフィルターをかけて、空白以外をコピーできるよう作成しております。
下記のコードの補足としまして、納品書の伝票入力欄の表の行に”商品No.”や”商品名”などの名前をつけております。
納品書の”商品名”や”入数”はＶＬＯＯＫＵＰ関数を用いてるので、
下記のコードだと売上帳にもそのままの関数が入ってしまいます。
納品の品数によって、貼り付けたい行数が変わりセルが固定ではないので、インターネットで色々調べてみたのですが、うまくいきませんでした。
そこで質問なんですが、下記のコードをアレンジして、売上帳のシートの指定の列の空白欄に、値として貼り付ける方法を教えていただきたいです。
よろしくお願い致します。
Sub オートフィルター2()
'
' オートフィルター2 Macro
'
'
ActiveSheet.Range("$A$12:$I$25").AutoFilter Field:=2, Criteria1:="<>"
Range("商品No.").Copy Destination:=Worksheets("売上帳").Range("E" & Rows.Count).End(xlUp).Offset(1)
Range("商品名").Copy Destination:=Worksheets("売上帳").Range("F" & Rows.Count).End(xlUp).Offset(1)
Range("入数").Copy Destination:=Worksheets("売上帳").Range("G" & Rows.Count).End(xlUp).Offset(1)
Range("個数").Copy Destination:=Worksheets("売上帳").Range("H" & Rows.Count).End(xlUp).Offset(1)
Range("総数量").Copy Destination:=Worksheets("売上帳").Range("I" & Rows.Count).End(xlUp).Offset(1)
Range("単価").Copy Destination:=Worksheets("売上帳").Range("J" & Rows.Count).End(xlUp).Offset(1)
Range("金額").Copy Destination:=Worksheets("売上帳").Range("K" & Rows.Count).End(xlUp).Offset(1)
End Sub
はじめまして。エクセルのマクロに関する質問です。
納品書をエクセルで作成しました。
シート１に納品書、シート３に売上帳があり、シート名も”納品書”、”売上帳”
としています。
納品書に入力した際に、自動的に売上帳に入るよう、コードを作成しました。
その際、納品書をオートフィルターをかけて、空白以外をコピーできるよう作成しております。
下記のコードの補足としまして、納品書の伝票入力欄の表の行に”商品No.”や”商品名”などの名前をつけております。
納品書の”商品名”や”入数”はＶＬＯＯＫＵＰ関数を用いてるので、
下記のコードだと売上帳にもそのままの関数が入ってしまいます。
納品の品数によって、貼り付けたい行数が変わりセルが固定ではないので、インターネットで色々調べてみたのですが、うまくいきませんでした。
そこで質問なんですが、下記のコードをアレンジして、売上帳のシートの指定の列の空白欄に、値として貼り付ける方法を教えていただきたいです。
よろしくお願い致します。
Sub オートフィルター2()
'
' オートフィルター2 Macro
'
'
ActiveSheet.Range("$A$12:$I$25").AutoFilter Field:=2, Criteria1:="<>"
Range("商品No.").Copy Destination:=Worksheets("売上帳").Range("E" & Rows.Count).End(xlUp).Offset(1)
Range("商品名").Copy Destination:=Worksheets("売上帳").Range("F" & Rows.Count).End(xlUp).Offset(1)
Range("入数").Copy Destination:=Worksheets("売上帳").Range("G" & Rows.Count).End(xlUp).Offset(1)
Range("個数").Copy Destination:=Worksheets("売上帳").Range("H" & Rows.Count).End(xlUp).Offset(1)
Range("総数量").Copy Destination:=Worksheets("売上帳").Range("I" & Rows.Count).End(xlUp).Offset(1)
Range("単価").Copy Destination:=Worksheets("売上帳").Range("J" & Rows.Count).End(xlUp).Offset(1)
Range("金額").Copy Destination:=Worksheets("売上帳").Range("K" & Rows.Count).End(xlUp).Offset(1)
End Sub
|
|
|
|
|
|
|
|
