Copiare colonne nascoste

[oz85]

Ciao a tutti!

Nuovo quesito. Ho necessità di copiare delle colonne nascoste presenti su una tabella che in base all'occorrenza viene filtrata.
Ho fatto tutto ma l'unico problema che incontro è relativo al fatto che nel codice scritto, scopro la colonna nascosta, copio e poi la nascondo di nuovo. Il nasconderla di nuovo però porta al fatto che non viene copiata...

C'è una soluzione che vi viene in mente??? Grazie.

Codice: Seleziona tutto

Sub Scopri_Allegato()

    'unhide colonna CDC
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = False

    'selezione tabella Allegato
    Range("Tabella3[[#Headers],[P/N" & Chr(10) & "DOC." & Chr(10) & "(0A)]:[QTA" & Chr(10) & "AN.]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
   
    'hide colonna     >>>non posso attivare la funzione perchè poi non incolla la colonna nascosta
    'Columns("Q:Q").Select
    'Selection.EntireColumn.Hidden = True

    'posizione cella
    Range("Tabella3[[#Headers],[Script]]").Select
   

End Sub

[Anthony47]

Quel codice non e' completo e non si capisce cosa vuoi fare; ad esempio dove vuoi incollare l'area "tagliata"?

Comunque se (come mi pare di capire) nascondere la colonna annulla il "cut" allora basta che prima incolli (completando in questo modo il taglia e cuci) e poi nascondi; puoi fare tutto col parametro Destination di Cut; es

Codice: Seleziona tutto

Selection.Cut Destination:=Range(DoveVuoiIncollare)


Ciao

[oz85]

Perdonami Anthony per non essere spesso chiaro.

In questo caso mi serve copiare un area di questa tabella e inviarla via mail. Non vorrei però il tutto venisse gestito dalla macro perchè utilizzo un modello di mail situato nelle Bozze, quindi vorrei limitare la macro a scoprire una colonna nascosta e copiare il tutto negli appunti, così da poter poi incollare il tutto nella mail.

Ho provato anche il semplice Selection.copy ma nada... una volta nascosta la colonna interessata, l'incolla fatto perde la colonna copiata.

Codice: Seleziona tutto

Sub Scopri_Allegato()

    'unhide colonna CDC
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = False

    'selezione tabella Allegato
    Range("Tabella3[[#Headers],[P/N" & Chr(10) & "DOC." & Chr(10) & "(0A)]:[QTA" & Chr(10) & "AN.]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    'Selection.Cut
    Selection.Copy
   
   
   
    'hide colonna x CAVI GIUSTI     >>>non posso attivare la funzione perchè poi non incolla la colonna nascosta
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = True

    'posizione cursore
    Range("Tabella3[[#Headers],[Script]]").Select
   

End Sub

Quel codice non e' completo e non si capisce cosa vuoi fare; ad esempio dove vuoi incollare l'area "tagliata"?

Comunque se (come mi pare di capire) nascondere la colonna annulla il "cut" allora basta che prima incolli (completando in questo modo il taglia e cuci) e poi nascondi; puoi fare tutto col parametro Destination di Cut; es

Codice: Seleziona tutto

Selection.Cut Destination:=Range(DoveVuoiIncollare)


Ciao

[Zer0Kelvin]

Ciao.
Non dovresti aver bisogno di scoprire la colonna, vedi se così funziona

Codice: Seleziona tutto

Sub Scopri_Allegato()
Dim Rallegato As Range
     Set Rallegato = Range("Tabella3[[#Headers],[P/N" & Chr(10) & "DOC." & Chr(10) & "(0A)]:[QTA" & Chr(10) & "AN.]]")
     Range(Rallegato, Rallegato.End(xlDown)).Cut
     Range("Tabella3[[#Headers],[Script]]").Select
     Set Rallegato = Nothing
End Sub

[oz85]

Ciao e grazie per l'aiuto.

Ho provato ma non copia le celle non visibili, pare abbia la necessità di averle visibili per poterle copiare...

PS: magnifico avatar!

Ciao.
Non dovresti aver bisogno di scoprire la colonna, vedi se così funziona

Codice: Seleziona tutto

Sub Scopri_Allegato()
Dim Rallegato As Range
     Set Rallegato = Range("Tabella3[[#Headers],[P/N" & Chr(10) & "DOC." & Chr(10) & "(0A)]:[QTA" & Chr(10) & "AN.]]")
     Range(Rallegato, Rallegato.End(xlDown)).Cut
     Range("Tabella3[[#Headers],[Script]]").Select
     Set Rallegato = Nothing
End Sub

[Zer0Kelvin]

Peccato, sarebbe stato tutto molto più semplice; incollando in Word funzionava.
Potresti fare così:
-scopri
-fai il ritaglio ed incolli in un'area temporanea di "appoggio"
-nascondi
-ritagli l'area precedentemente copiata.

**EDIT**
Qualcosa del genere, per intenderci

Codice: Seleziona tutto

Sub Scopri_Allegato()

    'unhide colonna CDC
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = False

    'selezione tabella Allegato
    Range("Tabella3[[#Headers],[P/N" & Chr(10) & "DOC." & Chr(10) & "(0A)]:[QTA" & Chr(10) & "AN.]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut Range("ZZ1") 'taglia e incolla nella cella ZZ1
    'Selection.Copy
   
   
   
    'hide colonna x CAVI GIUSTI     >>>non posso attivare la funzione perchè poi non incolla la colonna nascosta
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = True
    Range("ZZ1").CurrentRegion.Cut 'ritaglia i dati incollati
    'posizione cursore
    Range("Tabella3[[#Headers],[Script]]").Select
   

End Sub

[oz85]

mmmmm mi sa che hai ragione! ehhehehe ottima idea! a questo punto faccio esattamente così.

Grazie per l'idea e per l'aiuto!

Peccato, sarebbe stato tutto molto più semplice; incollando in Word funzionava.
Potresti fare così:
-scopri
-fai il ritaglio ed incolli in un'area temporanea di "appoggio"
-nascondi
-ritagli l'area precedentemente copiata.

**EDIT**
Qualcosa del genere, per intenderci

Codice: Seleziona tutto

Sub Scopri_Allegato()

    'unhide colonna CDC
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = False

    'selezione tabella Allegato
    Range("Tabella3[[#Headers],[P/N" & Chr(10) & "DOC." & Chr(10) & "(0A)]:[QTA" & Chr(10) & "AN.]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut Range("ZZ1") 'taglia e incolla nella cella ZZ1
    'Selection.Copy
   
   
   
    'hide colonna x CAVI GIUSTI     >>>non posso attivare la funzione perchè poi non incolla la colonna nascosta
    Columns("Q:Q").Select
    Selection.EntireColumn.Hidden = True
    Range("ZZ1").CurrentRegion.Cut 'ritaglia i dati incollati
    'posizione cursore
    Range("Tabella3[[#Headers],[Script]]").Select
   

End Sub

[Zer0Kelvin]

E grazie a te per il riscontro; ciao.