Hello,

I am simply trying to figure out how many rows of information exists i
my spreadsheet, but I've googled and googled and I can't find th
correct syntax for the code.

Basically. I am starting at like cell A5 and then I just want to coun
how many rows of below it (like cell A6, A7) have information in them.
And the code should stop immediately when a cell is empty.

Anyone know the syntax for the code like this

--
FC
-----------------------------------------------------------------------
FCC's Profile: http://www.excelforum.com/member.php...fo&userid=3588
View this thread: http://www.excelforum.com/showthread.php?threadid=55721

Hi FCC,

Try:

'=============
Public Sub Tester()
Dim LastRow As Long
Const FirstRow As Long = 5
Dim iRows As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

iRows = LastRow - FirstRow + 1

MsgBox "Number of rows = " & iRows

End Sub
'<<=============


---
Regards,
Norman


"FCC" wrote in message
...

Hello,

I am simply trying to figure out how many rows of information exists in
my spreadsheet, but I've googled and googled and I can't find the
correct syntax for the code.

Basically. I am starting at like cell A5 and then I just want to count
how many rows of below it (like cell A6, A7) have information in them.
And the code should stop immediately when a cell is empty.

Anyone know the syntax for the code like this?


--
FCC
------------------------------------------------------------------------
FCC's Profile:
http://www.excelforum.com/member.php...o&userid=35888
View this thread: http://www.excelforum.com/showthread...hreadid=557210

Private sub macro1()
Dim Z as integer
Z = 1

Do until sheet1.range("A" & Z).value = ""
If sheet1.range("A" & Z).value = "" then
' ""
else

Z = Z +1
end if
loop
sheet1.range("B1").value = Z
end sub

"you can pick up the Z value at cell B1"


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=557210

Awesome.

Is there like a false conditional statement in VBA?

Like do this if this is false, (eg. != exists in Java)

BTW, I am a Java programmer and having heaps of trouble trying to do
VBA.


--
FCC
------------------------------------------------------------------------
FCC's Profile: http://www.excelforum.com/member.php...o&userid=35888
View this thread: http://www.excelforum.com/showthread...hreadid=557210

can u give more info on what u want to d

--
T.c.Goosen197
-----------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...fo&userid=3589
View this thread: http://www.excelforum.com/showthread.php?threadid=55721

I was actually working on a similar sub:


Code:
--------------------

Range("A5").Select
Do
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Value != ""

--------------------


Yeah, it's basically the same thing you guys have, but I found out the
!= code doesn't exist. I just want to select the first cell that
doesn't contain information.


--
FCC
------------------------------------------------------------------------
FCC's Profile: http://www.excelforum.com/member.php...o&userid=35888
View this thread: http://www.excelforum.com/showthread...hreadid=557210

Sub macro2()
Dim Z As Integer

Z = 1

Do Until Sheet1.Range("e" & Z).Value 0
If Range("e" & Z).Value = "" Then
Z = Z + 1
Else
' ""
End If
Range("a1").Value = Z
Loop


Z = Range("A1").Value
Do Until Sheet1.Range("e" & Z).Value < 0
If Range("e" & Z).Value = "" Then
' ""
Else
Z = Z + 1
' ""
End If
Range("a2").Value = Z
Loop

End Sub


"now use the values in cel A1 & A2 to Offset the range"


--
T.c.Goosen1977
------------------------------------------------------------------------
T.c.Goosen1977's Profile: http://www.excelforum.com/member.php...o&userid=35895
View this thread: http://www.excelforum.com/showthread...hreadid=557210