|
▼UO3 さん:
一つ質問です。
下記コードで
Set c = .Columns("L").Find(What:="Before opereation", LookAt:=xlWhole)
の部分、L列に"Before opereation"があればの条件を
2つにしたい場合、どのようにすれば良いでしょうか?
L列に"Before opereation" M列が空白の場合(2条件一致)
としたいです。
宜しくお願いします。
>
>Sub Sample()
> Dim c As Range
>
> If Sheets("INPUT").Range("B5").Value <> "✓" Then Exit Sub
>
> Application.ScreenUpdating = False
>
> With Sheets("Schedule")
>
> Set c = .Columns("L").Find(What:="Before opereation", LookAt:=xlWhole)
>
> Do While Not c Is Nothing
> c.EntireRow.Range("K1:AQ1").ClearContents
> Set c = .Columns("L").FindNext(After:=c)
> Loop
> End With
>
> Application.ScreenUpdating = True
>
>End Sub
|
|