INCOLLA VALORI e FORMATTAZIONE TABELLA

Hai un problema con Excel?

Nuova discussione

INCOLLA VALORI & FORMATTAZIONE TABELLA
di BURY (utente non iscritto) data: 20/08/2015 11:45:41
Buongiorno,

avrei bisogno di copiare i risultati di una Pivot ed incollarli su un foglio.
Vorrei che venissero incollati "solo i valori" con una combinazione di tasti, in maniera rapida.
Come posso attivare una combinazioni di comandi per lanciare incolla valori ?

Inoltre, una volta ricopiati i dati vorrei che fosse formattata subito una tabella e che i valori venissero ordinati in base all'ultma colonna. Come posso costruire una macro ? Registrazione automatica mi permette di ottenere questo ? Ho provato con la formattazione automatica di "formatta come tabella" ma viene inserito un filtro e questo non lo voglio. Inoltre non capisce in automatico che l'ultima riga è il totale. Infine, ho provato con la registrazione di una macro automatica ma non riesco anche a variare la selezione dell'intervallo, mi rimane fissa.

Mi potete aiutare ?
di Vecchio Frac data: 20/08/2015 15:24:48
cit. "Come posso attivare una combinazioni di comandi per lanciare incolla valori ? "
---> Comincia con l'usare una macro registrata associandola a una combinazione di tasti. Poi potrai modificarla a piacimento per renderla più flessibile.

cit. "vorrei che fosse formattata subito una tabella e che i valori venissero ordinati in base all'ultima colonna"
---> La stessa macro può fare anche questo dopo l'incollaggio.

Allega quello che sei riuscito a ottenere.

INCOLLA VALORI & FORMATTAZIONE TABELLA
di BURY (utente non iscritto) data: 26/08/2015 14:19:47
Ecco lo script ....ma non va bene!

Sub Macro1()
'
' Macro1 Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+P
'
    Selection.Copy
    Sheets("Foglio2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$B$7"), , xlYes).Name = _
        "Tabella1"
    Range("Tabella1[#All]").Select
    ActiveSheet.ListObjects("Tabella1").TableStyle = "TableStyleLight2"
    Range("Tabella1[#All]").Select
    Columns("A:A").EntireColumn.AutoFit
    Range("Tabella1[#Headers]").Select
    Range("Tabella1[[#Headers],[Conteggio di VAR_1]]").Activate
    Selection.AutoFilter
End Sub

Vuoi Approfondire?