|
UO3さま、
ご回答、本当にどうも、ありがとうございました。
出張続きで、あれ以来取り組めず、返信が遅くなりまして、本当に申し訳ございませんでした。
以下のように、記載しまして、無事に、動きましたが、MT_商品シートは、連続しているのですが、受注伝票シートの項目は、連続していない為、違う箇所に入力されてしましました。
MT_商品シートのA列を、受注伝票シートのB列に、MT_商品シートのB列を、受注伝票シートのF列に、というようにするには、どうしたらいいでしょうか?
また、選択をし直すと、新たに選択したものが、先に選択し入力したものの、下の行に入力され、どんどん、行が増えるのですが、これを、同じ行で入力訂正するには、どのようにしたらよろしいですか?
お手数をおかけしますが、何卒、ご教示をよろしくお願い致します。
Option Explicit
Private Sub cbo商品一覧_Change()
Dim ck
Dim Tbl As Range
Dim target As Range
Dim lastrow As Long
Dim selnum As Long
selnum = cbo商品一覧.ListIndex + 2
With Worksheets("受注伝票")
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
Set target = .Cells(lastrow + 1, 1)
End With
With Worksheets("MT_商品")
Set Tbl = .Range("A2").Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1)
target = .Cells(selnum, 1).Value
End With
ck = Application.Match(target.Value, Tbl, 0)
If VarType(ck) <> vbError Then
target.Offset(0, 1).Resize(1, 16).Value = _
Worksheets("MT_商品").Cells(ck + 1, 2).Resize(1, 16).Value
Else
target.Offset(0, 1).Resize(1, 16).Value = ""
End If
End Sub
|
|