0 votes
ago in VBA by Beginner (2 points)
 For Each cell In ws.Range("D25:E25")
            Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select
            If cell.Value = "" Then
            cell.Value = ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-26]C[-1],'Libor Rate'!C[-4]:C[-3],2,0)"
            Else
            'do nothing

The Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select appears to be error and my macro stops from working. Just need to skip worksheet if no blank cell is detected within selection criteria

    Range("D25:E25").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeBlanks).Select

Thanks in advance for the aswer

Please log in or register to answer this question.

Welcome to wellsr Q&A
Ask any questions you have about VBA and Python and our community will help answer them. wellsr Q&A is the standalone question and answer platform for wellsr.com. If you have a question about one of our specific tutorials, please include a link back to the tutorial.

Getting Started
Register
VBA Cheat Sheets (On Sale Now)

Looking for something else? Hire our team directly through ourVBA Help page, instead.

For more programming tips visit the VBA Tutorials Blog and the Python Tutorials Blog.

...