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

Grazie ancora David. Ancora una volta ho beneficiato di un servizio molto utile.

Answer 3

Ciao,

per non copiare le celle nascoste devi indicare al metodo copy, oltre il range di origine anche il fatto che deve prendere in considerazione le sole celle nascoste. La tua riga

sh2.Range("A3:K20").Copy

deve quindi diventare

sh2.Range("A3:K20").SpecialCells(xlCellTypeVisible).Copy

---

Public Sub m()

    Dim sh1 As Worksheet

    Dim sh2 As Worksheet

    Dim lRiga As Long

    With ThisWorkbook

        Set sh1 = .Worksheets("Foglio1")

        Set sh2 = .Worksheets("Foglio2")

    End With

    With sh1

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        sh2.Range("A3:K20").SpecialCells(xlCellTypeVisible).Copy

        .Range("A" & lRiga + 1).PasteSpecial Paste:=xlPasteValues

    End With

    Application.CutCopyMode = False

    Set sh2 = Nothing

    Set sh1 = Nothing

End Sub

---

David

Answer 4

Questo è il codice che utilizzo e che non deve copiare le righe nascoste.

Public Sub m()

    Dim sh1 As Worksheet

    Dim sh2 As Worksheet

    Dim lRiga As Long

    With ThisWorkbook

        Set sh1 = .Worksheets("Foglio1")

        Set sh2 = .Worksheets("Foglio2")

    End With

    With sh1

        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row

        sh2.Range("A3:K20").Copy

        .Range("A" & lRiga + 1).PasteSpecial Paste:=xlPasteValues

    End With

    Application.CutCopyMode = False

    Set sh2 = Nothing

    Set sh1 = Nothing

End Sub

Answer 5

Possiamo vedere il codice che usi?

David