|
んー分かりません・・・・・・。
>コード全体を見てみないとなんとも。
以下、コードです。分かりにくくて申し訳ないです。
'納品管理台帳の番号がなくなるまで
Y = I_START_Y
'出力開始設定
Dim Kaishi As Range
Set Kaishi = Worksheets("出力").Range("A65536").End(xlUp).Offset(1)
Do Until IRAIws.Cells(Y, I_KEY_x).Value = ""
If Trim(IRAIws.Cells(Y, I_TANTODAY_x).Value) = "" And _
Trim(IRAIws.Cells(Y, I_UNOHINJISEKI_x).Value) <> "" Then
If IRAIws.Cells(Y, I_UNOHINJISEKI_x).Value < Date - 6 Then
'出力に出す
Kaishi = Trim(IRAIws.Cells(Y, I_HYOKIKBN_x).Value)
Kaishi.Offset(, 1) = Trim(IRAIws.Cells(Y, I_NO_x).Value) & "-" & Trim(IRAIws.Cells(Y, I_EDA_x).Value)
Kaishi.Offset(, 2) = Trim(IRAIws.Cells(Y, I_ANKEN_x).Value)
Kaishi.Offset(, 3) = Trim(IRAIws.Cells(Y, I_TYUSYUTUTANTO_x).Value)
Kaishi.Offset(, 4) = Trim(IRAIws.Cells(Y, I_KANRYOU_x).Value)
End If
End If
Y = Y + 1
DoEvents
Loop
|
|