| |
こんにちは。かみちゃん です。
>そちらを一つのファイルにまとめシート別で管理しようと考えているのですが、
>現状は下記の様な状態で納品書・請求書の数量を別に打ち込んでいる状態です。
>納品書のみの打ち込みで請求書に加算する方法
納品書と請求書が１つのブックに別シートでまとめてあることが前提ですが、
以下のような感じでできると思います。
納品書の入力が終わったら、Macro1を実行してください。
請求書に商品をあらかじめ設定しておく必要はありません。
なければ、勝手に追加しますから。。。
Sub Macro1()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim c As Range
Dim c2 As Range
Dim LastCell As Range
Set ws1 = Sheets("Sheet1") '納品書シート
Set ws2 = Sheets("Sheet2") '請求書シート
ws1.Activate
Set LastCell = Range("A65536").End(xlUp)
If LastCell.Row > 1 Then
For Each c In Range("A2", LastCell)
With ws2.Columns("A").Cells
Set c2 = .Find(c.Value, LookIn:=xlValues, LookAt:=xlWhole)
'前日まで納品したものがあれば
If Not c2 Is Nothing Then
c2.Offset(, 1).Resize(, 2) = _
Array(c2.Offset(, 1).Value + c.Offset(, 1).Value, _
c2.Offset(, 2).Value + c.Offset(, 2).Value)
'前日まで納品したものがなければ、追加
Else
ws2.Range("A65536").End(xlUp).Offset(1).Resize(, 3).Value = _
c.Resize(, 3).Value
End If
End With
Next
End If
MsgBox "納品書を請求書に加算しました。"
End Sub
|
|
かみちゃん
- 06/6/26(月) 17:24 -
