PDA

View Full Version : [SOLVED] If find any data on column P add CHECKED word on Column O



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