Ciao a tutti ragazzi!
Ho creato e modificato la macro allegata che dovrebbe copiare un valore da una cella ed incollarlo su delle celle visualizzate in una tabella. Non su tutti i record quindi, ma sulle celle che sono visualizzate.
Ho creato quanto sotto:
' Inserisce i valori di ricchezza nella colonna EG
Range("DP3").Select
Selection.Copy
Range("Tabella4[RICCH.]").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Aggiornamento pivot per eliminare il riferimento al quale si è inserita la ricchezza
Range("EJ15").Select
ActiveSheet.PivotTables("Tabella_pivot2").PivotCache.Refresh
Range("Tabella4[[#Headers],[RICCH.]]").Select
Ora.... non capisco il perchè e il per come, ma se ad esempio sto visualizzando 6 record, scrive a celle alterne il risultato, quindi primo, terzo e sesto record.
Mi sto impazzendo nel vedere cosa devo cambiare anche nei valori Transpose o Skipblanks ma nada....
L'unica cosa che ho visto è che impostando il valore Transpose:=True si ha che il valore cella copiato viene si incollato su tutti i sei record ma.... e come se venisse incollato uno spazio vuoto che va a sovrascrivere formule presenti sulla colonna di fianco....
Credo sia una gran cavolata la soluzione... ma non ci arrivo così, potete aiutarmi??? Grazie!