
If binario(indicefinale) Then ' se in ON la riga si riferisce ad un indice richiesto
Rows(riga).EntireRow.Hidden = False ' quindi faccio vedere la riga
ActiveWindow.ScrollRow = ActiveCell.Offset(riga).Row
end if |
MsgBox Application.ActiveWindow.VisibleRange.row 'La prima riga visibile MsgBox Application.ActiveWindow.VisibleRange.Rows.Count 'Il numero di righe visualizzate |
