nascondere righe vuote

[trittico69]

C’è una formula che ti nasconde in automatico una intera riga se in questa non c’è scritto nulla quindi vuota?
Se non c’è si puo fare con il VBA dandogli le coordinate, e le rige vuote in quelle coordinate devono nascondersi?
Grazie!
Excel 2003

[trittico69]

scusate mi sono dimenticato di dire che nelle righe vuote ci sono delle formule e che al momento che queste formule copiano dei dati le righe dovrebbero comparire...le coordinate sono A14:A56

[trittico69]

e ancora....se mi create un codice vba di non collegarlo a nessun bottone(se possibile) ma di farlo funzionare in automatico...

[Avatar3]

Con una macro si può fare,
se parli di riga presumo intenda più colonne (più celle sulla stessa riga)
quindi se in tutte le celle della riga (devi definire quali sono colonne)
non c'è alcun dato,
allora nscondi la riga

Una procedura è questa
1) calcolo delle righe
2) scansionare riga per riga con un for next partendo dall'ultima riga e retrocedendo verso la prima
4a) "azzerare" la variabile stringa
3) scansionare colonna per colonna (della stessa riga)
4) "caricare" una variabile stringa
6) chiudi il ciclo for next delle colonne
7) se la variabile stringa è vuota allora nascondi la riga
8 ) chiudi il ciclo for next righe

Si può anche velocizzare facendo l'opposto
nella valutazione della cella se vuota procede alla colonna successiva fino all'ultima colonna
se piena salta la valutazione delle celle successive (riferite alle colonne) e salta la riga

Ciao

Ho visto che nel frattempo hai dato altre informazioni quindi aggiungo che in caso di formule che forniscono 0 o cella vuota ("")
puoi procedere con Val(cells(rr,cc))

[trittico69]

avatar puoi crearmi tu il codice io in vba sono una frana

[Avatar3]

Va bene
ma spiegami
se in una o più celle del range da A14 a A56 non c'è alcun valore ("") dovuto a formule tu vorresti nascondere l'intera riga?

[trittico69]

esatto

[Avatar3]

Però aggiungo che puoi mettere un filtro che faccia vedere solo le celle piene
vai su menu Dati, filtro, filtro automatico
poi selezioni celle non vuote

[trittico69]

sono 13 fogli e mi servirebbe in automatico...

[Avatar3]

eccola

Codice: Seleziona tutto

Sub NascondirigheVuote()
For RR = 56 To 14 Step -1
    If Val(Range("A" & RR)) = 0 Then Rows(RR & ":" & RR).EntireRow.Hidden = True
Next RR
End Sub

ciao

[trittico69]

ho fatto tasto destro sul foglio "visualizza codice" incolla nel modulo.... non nasconde

[Avatar3]

Ecco il file
premi il pulsante e verifica se nasconde

http://uploading.com/files/124f9272/NascondiRigheVuote.xls/


Ciao

[trittico69]

il codice funziona ma mi servirebbe abbinarlo a un tasto che metterò in un foglio chiamato "riep" e deve aggiornare altri 12 fogli che si chiamano GEN.FEB.MAR...ECC...FINO A DIC

[Avatar3]

Sostituisci la macro nel modulo con questa macro

Codice: Seleziona tutto

Sub NascondirigheVuote()
For FF = 1 To Worksheets.Count
If Worksheets(FF).Name <> "Riep" Then
Worksheets(FF).Select
For RR = 56 To 14 Step -1
    If Val(Range("A" & RR)) = 0 Then Rows(RR & ":" & RR).EntireRow.Hidden = True
Next RR
End If
Next FF
End Sub

metti il pulsante che avvia questa macro nel foglio "Riep"

ciao

[trittico69]

mi dice FF variabile non definita

[Avatar3]

Inserisci all'inizio della macro (prima del For... )

Codice: Seleziona tutto

Dim FF as integer

ciao

[trittico69]

fatto grazie