|
(ご質問)
If A and B and C then, 〜 end ifの条件文でデータ抽出試みていますが、エラーメッセージ"型が合いません"が表示されます。下記に構文を記載しておりますのでなにか間違いがありましたらご教示頂けますと大変助かります。
よろしくお願い致します。
====================================================================
Sub PCOのDESデータ抽出()
Dim i As Variant ' PCO海外資材発注書のデータ検索行の変数
Dim cnt As Variant ' PCO-ESTワークシート表の先頭行(3行目)
cnt = 4
For i = 4 To 100
If Sheets(5).Cells(i, 18).Value = Sheets(5).Cells(1, 13).Value _
And Sheets(5).Cells(i, 20).Value = Sheets(5).Cells(1, 14).Value _
And Sheets(5).Cells(i, 6).Value = "○" Then
Worksheets(7).Cells(cnt, 1).Value = Worksheets(5).Cells(i, 1).Value ' PO NO
Worksheets(7).Cells(cnt, 2).Value = Worksheets(5).Cells(i, 2).Value ' Goods
Worksheets(7).Cells(cnt, 3).Value = Worksheets(5).Cells(i, 6).Value ' Term
Worksheets(7).Cells(cnt, 4).Value = Worksheets(5).Cells(i, 8).Value ' KG
Worksheets(7).Cells(cnt, 5).Value = Worksheets(5).Cells(i, 15).Value 'ETD
Worksheets(7).Cells(cnt, 6).Value = Worksheets(5).Cells(i, 18).Value 'ETA
Worksheets(7).Cells(cnt, 7).Value = Worksheets(5).Cells(i, 20).Value 'NGT
Worksheets(7).Cells(cnt, 8).Value = Worksheets(5).Cells(i,26).Value 'Unit Price
cnt = cnt + 1 '「明細書」ワークシート表のコピー先の行を一つ進める
End If
Next i
MsgBox ("データ抽出完了")
END SUB
========================================================================
|
|