trying to populate the first blank cell in a row with a specific text value

**Rob69mfj** · 05-28-2014, 12:50 PM

I am trying to use VBA to populate the first blank cell in row 6 with the word "Short"

I keep getting sub or function not defined and I am sure its because I am trying to Frankenstein some code together to get it to work. So far everything works as I need but this last step.

Any help would be appreciated.

Thanks

**stnkynts** · 05-28-2014, 01:01 PM

Try this:

Sub RunMe()
Dim rCell As Range

On Error GoTo End1
For Each rCell In Range(Cells(6, 1), Cells(6, Cells(6, Columns.Count).End(xlToLeft).Column)).SpecialCells(xlCellTypeBlanks)
    rCell.Value = "Short"
    Exit For
Next rCell
End1:

End Sub

trying to populate the first blank cell in a row with a specific text value

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

trying to populate the first blank cell in a row with a specific text value

Re: trying to populate the first blank cell in a row with a specific text value

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] How to insert blank row above a cell containing specific text

Deleting rows if specific cell is blank or have specific text

Function to populate cell with specific text from an external txt file

How to insert blank row below a cell containing specific text

Bookmarks

Bookmarks

Posting Permissions