Marius44 ha scritto:Ciao
rispondo alle tue precisazioni/domande:
1) la macro che ti posto (leggermente riveduta rispetto alla precedente) nasconde le righe con eventuali formule il cui risultato sia "";
2) non hai bisogno di mettere un pulsante ogni tot righe, fai così: blocca le prime due o tre righe del tuo foglio (ed eventualmente la prima colonna) ed inserisci il tuo pulsante nella zona che rimane fissa.
- Codice: Seleziona tutto
Sub Nascondi_Riga_Vuota_Due()
Dim uRig As Double, uCol As Double, i As Long, j As Long
'Trova l'ultima riga
uRig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
'Trova l'ultima colonna
uCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
For i = uRig To 1 Step -1
For j = 1 To uCol
If Cells(i, j) = "" Then
aa = aa + 1
If aa = uCol Then Exit For
Else
GoTo 1
End If
' If Not IsEmpty(Cells(i, j)) Then GoTo 1
Next j
riga = i & ":" & i
Rows(riga).EntireRow.Hidden = True
1 aa = 0
Next i
End Sub
Come al solito, prova e fai sapere. Ciao,
Mario
Non funziona, o meglio nasconde le righe vuote laddove non ci sono dati.
Io invece in un foglio ho diverse tabelle (tante) contenenti diversi dati e formule all'interno e vorrei nascondere solo le righe vuote all'interno della tabella (le righe vuote si presentano quando il risultato della formula è "").
Dunque diventa anche una necessità farlo a porzioni (ogni tot righe) uno perchè sennò cliccando il pulsanto con la macro ci impiega diversi minuti in cui rimane bloccato e due perchè essendo tante tabelle in questo modo posso decidere di nascondere le righe vuote di una sola di queste tabelle.
Grazie mille per il tuo aiuto Mario!