IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Excel
  New Posts New Posts RSS Feed - Macro copia e incolla
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

Macro copia e incolla

 Post Reply Post Reply Page  <123
Author
Message
GiuseppeMN View Drop Down
Veterano
Veterano


Joined: 15/Giu/2015
Status: Offline
Points: 1536
Post Options Post Options   Thanks (0) Thanks(0)   Quote GiuseppeMN Quote  Post ReplyReply Direct Link To This Post Posted: 08/Nov/2018 at 16:34
Buona sera, Sergio;
se il tuo intento è quello di copiare le Formule così come sono, direi che puoi semplicemente modificare il Codice VBA in questo modo:

Option Explicit

Sub Tabelle()
Application.ScreenUpdating = False
Dim Cln As Long, x As Long
Dim y As Integer

With Worksheets("nera")
        Cln = .Cells(1, .Columns.Count).End(xlToLeft).Column
            y = 2
Sheets("destinazione").Select
    For x = 3 To Cln
        y = y + 9
            Cells(2, y).Value = .Cells(1, x).Value
    Range(Cells(3, 2), Cells(3, 6)).Copy Cells(3, y)   
    Range(.Cells(2, 1), .Cells(38, 1)).Copy Cells(4, y)
    Range(.Cells(2, x), .Cells(38, x)).Copy Cells(4, y + 1)
        Application.Goto Reference:="Tabella"
            Selection.Copy
                Cells(2, y).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                Cells(2, y).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Range(Cells(3, 5), Cells(41, 7)).Copy Cells(3, y + 3)
                ActiveSheet.ChartObjects("Grafico 1").Copy
                Cells(6, y + 7).Select
                    ActiveSheet.Paste
                ActiveChart.SetSourceData Source:=Range(Cells(4, y), Cells(40, y + 2))
                
    Next x
End With
Application.ScreenUpdating = True
    Cells(4, 2).Select
End Sub


Il mio consiglio era quello di non utilizzare le Formule ma solo i Valori assoluti derivanti dai vari Calcoli; ovviamente questo comporta che i Calcoli vengano eseguiti quando tutti i Campi sono stati compilati.
Voglio dire, potresti utilizzare il File precedentemente allegato, quindi con la sola Formula posta in cella "E3", poi, una volta compilati i Record del Campo "q(epa)[lps]", eseguire un Codice VBA che calcola i Valori assoluti delle varie Formule.

Magari, senza voler insistere, modificando opportunamente le Formule in Colonna "F" ed eliminado le Formule in Colonna "G".




Buona serata.

Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013
Back to Top
Sponsored Links


Back to Top
sergio View Drop Down
Utente Base
Utente Base


Joined: 02/Nov/2018
Location: Milano
Status: Offline
Points: 85
Post Options Post Options   Thanks (0) Thanks(0)   Quote sergio Quote  Post ReplyReply Direct Link To This Post Posted: 12/Nov/2018 at 21:34
Scusate l'assenza, intanto devo ancora dirvi garzie e penso si possa dire che il post si possa considerare chiuso avendo avuto le risposte che cercavo.
La condivisione del sapere è un piacere

Sergio

Back to Top
 Post Reply Post Reply Page  <123
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,063 seconds.