check for errors VBA

[BunnyTracks]

I am using the code line below to select all cells that are blank in column "L", and fill them in based on the preceding cell. what code can i insert to handle the situation when no blank cells are found in column "L". In that case i would want to code to skip that section.

Columns("L:L").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"

 

[mvptomlinson]

Hi Bunny, you could use something like:

Sub doThis()
On Error GoTo noblanks
Range("L:L").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
On Error GoTo 0
Exit Sub

noblanks:
' Do nothing, just end.
End Sub

No need to select cells/columns, either.

 

[BunnyTracks]

Thank you, it worked very well