Solved

Select third blank cell in row

Posted on 2013-11-13
7
312 Views
Last Modified: 2013-11-14
How do I tell this to select the third blank cell in row 4?  Then I increment the (1) it moves down another cell.  

Rows("4").SpecialCells(xlBlanks).Cells(1).Activate
0
Comment
Question by:RWayneH
  • 4
  • 2
7 Comments
 
LVL 33

Expert Comment

by:Norie
ID: 39645381
Are the cells in row 4 filled with non-contiguous values?
0
 

Author Comment

by:RWayneH
ID: 39645622
yes..  2 nonblank, 2 blank, 3 non than another blank.  Also it will vary based on a download.  It could even by the first three of the row are blank... and it should pick C4.

Hope this helps. -R-
0
 
LVL 33

Expert Comment

by:Rob Henson
ID: 39647659
You can include this into a Do Loop:

Count = 0
Rows("4").Select
Do 
  For each Cell in Selection
  If cell.value = "" then count = count +1
  Col = Cell.Column
Loop Until Count = 4
  Cells(4, Col).Select

Open in new window

Thanks
Rob H

Edit:  line 7 should be: Loop Until Count = 3
0
Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

 

Author Comment

by:RWayneH
ID: 39647752
Compile Error on Ln7  "Loop without Do"  Please advise and thanks. -R-
0
 

Author Comment

by:RWayneH
ID: 39647816
Here is what I came up with... is there a way to condense this down?  Your code did not work. -R-

Sub TestFindThirdBlankCell()

   Range("C4").Select
   ActiveCell.FormulaR1C1 = " "
   
   Rows("4").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select   '(1, 0) = move down one.  0, 1 = move one right
    Loop  'ends on the blank
   ActiveCell.FormulaR1C1 = " "
'Do it again
   Rows("4").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select   '(1, 0) = move down one.  0, 1 = move one right
    Loop  'ends on the blank
   ActiveCell.FormulaR1C1 = "Total Price"
   ActiveCell.Offset(0, 1).Select  'move one right
   ActiveCell.FormulaR1C1 = "Cost Over Base"

End Sub

Open in new window

0
 
LVL 33

Accepted Solution

by:
Rob Henson earned 500 total points
ID: 39647968
I have now spotted the error but surprised it was reported in the way you mention.

Code should be:

Count = 0
Rows("4").Select
Do 
  For each Cell in Selection
  If cell.value = "" then count = count +1
  Col = Cell.Column
  Next Cell
Loop Until Count = 4
  Cells(4, Col).Select

Open in new window


Note addition of "Next Cell" in Line 7
Apologies,
Rob H
0
 

Author Closing Comment

by:RWayneH
ID: 39649127
Thanks worked awesome.. EXCELent!  -R-
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
Workbook link problems after copying tabs to a new workbook? David Miller (dlmille) Intro Have you either copied sheets to a new workbook, and after having saved and opened that workbook, you find that there are links back to the original sou…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

838 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question