Nascondere colonne con celle unite

Question

Ho l'esigenza di nascondere le colonne "I, J, K, M, N, O, P" di un foglio. Se lancio la macro che contiene il codice riportato qua sotto, mi nasconde le colonne da "D" Fino a "Q" come mai ?

Ho il range A2:L7 unito

Faccio presente che: 1)Ho il range A2:L7 unito 2)Se l'operazione la faccio a mano (seleziono tutte le colonne tenendo premuto il tasto CTRL e poi le nascondo) va a buon fine.

Columns("I:I").Select

    Selection.EntireColumn.Hidden = True

    Columns("J:J").Select

    Selection.EntireColumn.Hidden = True

    Columns("K:K").Select

    Selection.EntireColumn.Hidden = True

    Columns("M:M").Select

    Selection.EntireColumn.Hidden = True

    Columns("N:N").Select

    Selection.EntireColumn.Hidden = True

    Columns("O:O").Select

    Selection.EntireColumn.Hidden = True

    Columns("P:P").Select

    Selection.EntireColumn.Hidden = True

Answer 1

Ho l'esigenza di nascondere le colonne "I, J, K, M, N, O, P" di un foglio. Se lancio la macro che contiene il codice riportato qua sotto, mi nasconde le colonne da "D" Fino a "Q" come mai ?

Ho il range A2:L7 unito

<cut>

Celle unite nel vb sono *il male*. Non so cosa ci sia nelle tue celle, comunque qusto codice naconde le colonne da te indicate(qui nel Foglio1):

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        .Range("I:K,M:P").EntireColumn.Hidden = True

    End With

    Set sh = Nothing

End Sub

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

Visto che le celle unite nel vb sono il male ... ho fatto delle prove e avendo comunque dei problemi, ho deciso di aggirare la cosa. Come?: Ho eliminato le celle unite, ho fatto tutti i processi che dovevo lanciando la macro e dopo ho riunito le celle mettendo nella macro il comando per unire il Range.

Mauro sei sempre gentile e ti ringrazio... Buona Serata.

Alfredo