|
てゆーか、同一人物でしょうね。あちらはマルチポストは禁止されてますが、
こちらはOKで「後から書き込むのだから大丈夫」とみなしたわけですね。
ま、殆ど変更するところもないので、あちらのコードをコピぺ&一部書き直し、
ということで・・
Sub Data_Check()
Dim MyR As Range, C As Range
Dim St As String
Dim Ck As Variant
On Error GoTo ELine
With Sheets("Sheet1")
With .Range("A1", .Range("A65536").End(xlUp)).Offset(, 26)
.Formula = "=IF($B1=""OK"",$A1,1)"
Set MyR = .SpecialCells(3, 2)
End With
End With
St = Format(Date, "yyyy/mm/dd") & " 完了"
With Sheets("Sheet2")
For Each C In MyR
Ck = Application.Match(C.Value, .Range("B:B"), 0)
If IsError(Ck) Then
C.Offset(, -26).Resize(, 2).Font.ColorIndex = 3
Else
.Cells(Ck, 11).Value = St
'↑ここを3から11にするだけ
End If
Next
.Columns(3).AutoFit
End With
Sheets("Sheet1").Range("AA:AA").ClearContents
Set MyR = Nothing: Exit Sub
ELine:
MsgBox "「OK」のチェックがついたデータがありません", 48
End Sub
*あちらは解決マーク付けておいて下さい。
|
|