Conoscere numero di righe in un foglio

[Niggle]

Ciao a tutti,
come posso sapere il numero di righe compilate in un foglio? Mi serve
questo numero per poterlo mettere come limite estremo di un ciclo for
visto che devo fare dei controlli su tutte le righe.

grazie mille

P.

[Mauro Gamberini]

> come posso sapere il numero di righe compilate in un foglio? Mi serve
> questo numero per poterlo mettere come limite estremo di un ciclo for
> visto che devo fare dei controlli su tutte le righe.
>

In diversi modi, dipende da cosa devi fare.

Rows.Count
End
CurrentRegion
UsedRange

Cercale sulla guida del vb di Excel e poi(poi)
se qualcosa non hai capito, chiedi pure.

--
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/

[Niggle]

Il 13/05/2009, Mauro Gamberini ha detto :

>> come posso sapere il numero di righe compilate in un foglio? Mi serve
>> questo numero per poterlo mettere come limite estremo di un ciclo for visto
>> che devo fare dei controlli su tutte le righe.
>>
>
> In diversi modi, dipende da cosa devi fare.
>
> Rows.Count
> End
> CurrentRegion
> UsedRange
>
> Cercale sulla guida del vb di Excel e poi(poi)
> se qualcosa non hai capito, chiedi pure.

Grazie mille,
ho risolto con

ActiveSheet.UsedRange.Select
i = Selection.Rows.Count

P.

[r]

"Niggle" ha scritto:

ciao,
non è necessario selezionare:

i = ActiveSheet.UsedRange.Rows.Count

UsedRange è molto utile ...
l'avessero fatta meglio credo che sarebbe
indispensabile ... purtroppo ha un po' di difetti
quindi io uso e consiglio una funzione di
Norman (modificata) :

Function UltimaRiga(Optional Sh As Worksheet, _
Optional rng As Range) As Long

'By Norman Jones modificata restituisce
'l'ultima riga valorizzata
'restituisce 0 se il foglio è pulito
'passando Sh verrà ignorato Rng
'passando Rng verrà ignorato Sh
'non passando argomenti verrà ricercata
'l'ultima riga valorizzata del foglio
'attivo
'utilizzata come UDF è consigliabile
'passare Rng

If Sh Is Nothing Then
If rng Is Nothing Then
Set rng = [a1].Parent.UsedRange
End If
Else
Set rng = Sh.UsedRange
End If

On Error Resume Next
UltimaRiga = rng.Find(What:="*", _
After:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function

saluti
r

--
Come e dove incollare il codice:
http://www.rondebruin.nl/code.htm

Il mio ultimo lavoro ...
http://excelvba.altervista.org/blog/index.php/Excel-VBA/Controllo-TreeView-VBIDE-Guida-in-memoria.html