Select first empty cell in column F starting from row 1. (without using offset )

by

If all you’re trying to do is select the first blank cell in a given column, you can give this a try:

Code:

Public Sub SelectFirstBlankCell()
    Dim sourceCol As Integer, rowCount As Integer, currentRow As Integer
    Dim currentRowValue As String

    sourceCol = 6   'column F has a value of 6
    rowCount = Cells(Rows.Count, sourceCol).End(xlUp).Row

    'for every row, find the first blank cell and select it
    For currentRow = 1 To rowCount
        currentRowValue = Cells(currentRow, sourceCol).Value
        If IsEmpty(currentRowValue) Or currentRowValue = "" Then
            Cells(currentRow, sourceCol).Select
        End If
    Next
End Sub

Before Selection – first blank cell to select:

enter image description here

After Selection:

enter image description here

More Related Contents:

  1. Loop through files in a folder using VBA?
  2. How to error handle 1004 Error with WorksheetFunction.VLookup?
  3. How can Excel VBA open file using default application
  4. How to compare two entire rows in a sheet
  5. Run same excel macro on multiple excel files
  6. Use of symbol # (hash) in VBA Macro
  7. Excel VBA: Can’t get a match, error “Unable to get the Match property of the WorksheetFunction class”
  8. Excel VBA looping through multiple worksheets
  9. When one should use Set [e.g for SpecialCells return value]?
  10. Excel: macro to export worksheet as CSV file without leaving my current Excel sheet
  11. Is there a faster CountIF
  12. Excel VBA How to detect if something was pasted in a Worksheet
  13. Getting error Procedure too large in VBA Macros (Excel)
  14. How to add data validation to a cell using VBA
  15. How to do late binding in VBA?
  16. How to break long string to multiple lines
  17. How to copy a chart from Excel to PowerPoint?
  18. vba paste not working
  19. mac excel vba loop : from list & then export as pdf
  20. Can Advanced Filter criteria be in the VBA rather than a range?
  21. In Excel VBA, what is the way to check if the web page is fully loaded?
  22. Excel Useform: How to hide application but have icon in the taskbar
  23. Reading Web Pages using Excel VBA
  24. Excel VBA: auto click and open file from website
  25. Calling regasm without administrative rights for COM interop in Excel VBA
  26. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment