Prev: Selecting items from list and attaching ratios to selection
Next: Split cells VBA
From: Gsurfdude on 3 Mar 2010 08:04
Hello,

I am fairly new to Excel VBA and I need to know how to loop through used
rows in a one column. In logic

for each row in column A starting @ A4 to A whatever

So I need to return values in A4-A whatever is used. I hope that makes sense

Thanks!
From: Bob Phillips on 3 Mar 2010 08:31

For Each cell in Range(Range("A4"), Range("A4").End(xlDown))

do something with cell
Next cell

--

HTH

Bob

"Gsurfdude" <Gsurfdude(a)discussions.microsoft.com> wrote in message
news:9F6A0431-318E-4B02-BD01-E09C8EF40091(a)microsoft.com...
> Hello,
>
> I am fairly new to Excel VBA and I need to know how to loop through used
> rows in a one column. In logic
>
> for each row in column A starting @ A4 to A whatever
>
> So I need to return values in A4-A whatever is used. I hope that makes
> sense
>
> Thanks!


From: Mike H on 3 Mar 2010 09:02
Hi,

Try this

Sub marine()
Dim LastCol as Long
lastcol = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column
Set myrange = Range(Cells(4, 1), Cells(4, lastcol))
For Each c In myrange

'Do Things

Next
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Gsurfdude" wrote:

> Hello,
>
> I am fairly new to Excel VBA and I need to know how to loop through used
> rows in a one column. In logic
>
> for each row in column A starting @ A4 to A whatever
>
> So I need to return values in A4-A whatever is used. I hope that makes sense
>
> Thanks!
From: Mike H on 3 Mar 2010 09:11
Ignore my post I read it as last used column in a row
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Mike H" wrote:

> Hi,
>
> Try this
>
> Sub marine()
> Dim LastCol as Long
> lastcol = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column
> Set myrange = Range(Cells(4, 1), Cells(4, lastcol))
> For Each c In myrange
>
> 'Do Things
>
> Next
> End Sub
> --
> Mike
>
> When competing hypotheses are otherwise equal, adopt the hypothesis that
> introduces the fewest assumptions while still sufficiently answering the
> question.
>
>
> "Gsurfdude" wrote:
>
> > Hello,
> >
> > I am fairly new to Excel VBA and I need to know how to loop through used
> > rows in a one column. In logic
> >
> > for each row in column A starting @ A4 to A whatever
> >
> > So I need to return values in A4-A whatever is used. I hope that makes sense
> >
> > Thanks!
From: Dave Peterson on 3 Mar 2010 10:42
I like to start at the bottom and look up to find that last used cell. It's
useful if the range could contain empty cells.



Dim myRng as range
dim myCell as range

with worksheets("Somesheetnamehere")
set myrng = .range("A4", .cells(.rows.count,"A").end(xlup))
end with

for each mycell in myrng.cells
msgbox mycell.address 'or whatever you want to do
next mycell


Gsurfdude wrote:
>
> Hello,
>
> I am fairly new to Excel VBA and I need to know how to loop through used
> rows in a one column. In logic
>
> for each row in column A starting @ A4 to A whatever
>
> So I need to return values in A4-A whatever is used. I hope that makes sense
>
> Thanks!

--

Dave Peterson
 |  Next  |  Last
Pages: 1 2
Prev: Selecting items from list and attaching ratios to selection
Next: Split cells VBA