|
すみません。動作はしたのですが
背番号を入力する筈だったのですが何故か品番が入力されました
結果としてはデータ取込のシートに品番が二つ入力されている状態になってしまったのですが・・・・。
多少、項目が増えたのでコードのセル位置を変えたためでしょうか?
Dim SBAN As String
Dim HBAN As String
Dim SAIKA As Integer
Dim i As Integer
Dim KENSAKU As Variant
Windows("発注データ取込フォーマット変換.XLS").Activate
SAIKA = Range("F1").End(xlDown).Row
For i = 2 To SAIKA
HBAN = Range("F" & i).Value
Windows("背番号表.XLS").Activate
Set KENSAKU = Cells.Find(what:=HBAN, after:=Range("C1"))
If Not KENSAKU Is Nothing Then
SBAN = KENSAKU.Value
End If
Windows("発注データ取込フォーマット変換.XLS").Activate
Range("H" & i).Value = SBAN
Next
という形にしたのですが、
背番号表のフォーマットはこうなりました。
A B C D E
A 連番 背番号 品番 品名
B
C
|
|