View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default check column -A- and fill out column -B- by vba

Sub surface()
n = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To n
If Cells(i, 1).Value = 123 Then
Cells(i, 2).Value = "active"
End If
Next
End Sub