Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copiare colonne nascoste

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Copiare colonne nascoste

Postdi oz85 » 27/06/18 08:06

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


Immagine
oz85
Utente Junior
 
Post: 88
Iscritto il: 26/03/18 14:35

Sponsor
 

Re: Copiare colonne nascoste

Postdi Anthony47 » 29/06/18 00:13

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
Avatar utente
Anthony47
Moderatore
 
Post: 17446
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copiare colonne nascoste

Postdi oz85 » 02/07/18 07:42

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


Anthony47 ha scritto: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
Utente Junior
 
Post: 88
Iscritto il: 26/03/18 14:35

Re: Copiare colonne nascoste

Postdi Zer0Kelvin » 02/07/18 21:12

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
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23

Re: Copiare colonne nascoste

Postdi oz85 » 03/07/18 12:02

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! 8)

Zer0Kelvin ha scritto: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
Utente Junior
 
Post: 88
Iscritto il: 26/03/18 14:35

Re: Copiare colonne nascoste

Postdi Zer0Kelvin » 03/07/18 19:59

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
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23

Re: Copiare colonne nascoste

Postdi oz85 » 04/07/18 14:51

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

Grazie per l'idea e per l'aiuto! :D

Zer0Kelvin ha scritto: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
Utente Junior
 
Post: 88
Iscritto il: 26/03/18 14:35

Re: Copiare colonne nascoste

Postdi Zer0Kelvin » 05/07/18 18:32

E grazie a te per il riscontro; ciao.
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23


Torna a Applicazioni Office Windows


Topic correlati a "Copiare colonne nascoste":


Chi c’è in linea

Visitano il forum: Nessuno e 36 ospiti