Need syntax help!

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?

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"

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" <FCC.2a7gm1_1151654403.3665@excelforum-nospam.com> wrote in message
news:FCC.2a7gm1_1151654403.3665@excelforum-nospam.com...
>
> 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
>

can u give more info on what u want to do

I was actually working on a similar sub:

Please Login or Register  to view this content.

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.

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"