Nascondere le righe anche con il valore zero

Question

Ciao a tutti,

Nel foglio2 nella colonna L dalla riga 2 alla riga 150 vengono riportati diversi collegamenti da altri fogli con valori numerici. Quando stampo il contenuto del foglio ho la necessità di nascondere le righe che non hanno alcun valore. Ho provato la formula di questo trhead: http://answers.microsoft.com/it-it/office/forum/office\_2007-excel/nascondere-righe-se/3a7d9611-cf2b-4e2d-af28-a0f4dffc1172

ma anche quando non trova nessun valore mi lascia la riga. Potete aiutarmi a modificare il codice in modo da nascondere anche le righe con il valore zero?

Answer 1

Se non mi fai vedere il tuo codice come posso aiutarti?

Tirando ad indovinare, visto che parli di copia di celle, il codice che segue copia il range di celle A1:A10 del foglio1 nel foglio2, escludendo le righe nascoste

---

Sub m()

    With ThisWorkbook.Worksheets

        .Item("Foglio1").Range("A1:A10").SpecialCells(xlCellTypeVisible).Copy

        .Item("Foglio2").Cells(1, 1).Select

        .Item("Foglio2").Paste

    End With

    Application.CutCopyMode = False

End Sub

---

David

Answer 2

Scusate se riapro il trhead, ma ho esteso i benefici del codice postato da David a un altra cartella. La differenza è che incolla quello copia nella prima riga libera. Potete aiutarmi a capire in che modo devo modificare il codice visto che dopo diversi tentativi non ho ottenuto nessun risultato?

Answer 3

David sei stato Eccezionale. Ho adattato il codice al mio e funziona in modo stupendo.

Grazie grazie e grazie per la tua disponibilità e professionalità.

Answer 4

David è perfetta. L'ho provata e mi nasconde anche le righe con valore 0. Ho ancora bisogno del tuo aiuto, dopo l'esecuzione del codice il contenuto delle righe viene copiato in un altro foglio. Ho notato che mi riporta anche le righe che vengono nascoste, esiste la possibilità di fare in modo che il foglio che viene copiato escluda le righe nascoste?

Answer 5

Ciao giudoro,

cambia la riga

If .Range("H" & lng).Value = "" Then

in

If .Range("H" & lng).Value = "" or .Range("H" & lng).Value = 0 Then

David