parscon
01-26-2019, 07:51 AM
Hi , I need a VBA that check column P and if find any data on Column P , add CHECKED word on Column O .
Thanks for your time and effort
I wrote it no need Thanks
Sub ModelColB2()
Dim c As Range, r As Range
With Worksheets("Sheet1")
Set r = .Range("P1", .Range("P" & Rows.Count).End(xlUp))
End With
For Each c In r
If Not IsEmpty(c) Then c.Offset(0, -1).Value = "CHECKED"
Next c
End Sub
Thanks for your time and effort
I wrote it no need Thanks
Sub ModelColB2()
Dim c As Range, r As Range
With Worksheets("Sheet1")
Set r = .Range("P1", .Range("P" & Rows.Count).End(xlUp))
End With
For Each c In r
If Not IsEmpty(c) Then c.Offset(0, -1).Value = "CHECKED"
Next c
End Sub