Copia e incolla celle



  • Copia e incolla celle
    di Gerry (utente non iscritto) data: 03/01/2016 11:49:01

    Valve a tutti e auguri di buon anno, ho un problema che non riesco a risolvere, devo copiare e incollare delle celle con VBA in excel
    Provo a spierare, devo copiare le celle A6:C6 e fin qua nessun problema il codice sotto riportato lo fa il problema e che quando vado a incollare i valori copiati li devo incollare nelle celle X5, X6, X7 ma con il codice sotto mi incolla i valori nelle celle X5:X7 ripetuto allo stesso valore della cella A6, nella cella Y5:Y7 il valore contenuto nella cella B6, e nella cella Z5:Z7 il valore contenuto nella cella C6, c'è un metodo per incollare tutti ivalori in una volta, ho devo fare il copia e incolla per ogni singola cella?
     
    Sub Aggiorna()
    Sheets("Foglio1").Range("A6:C6").Copy
    
           Sheets("Foglio1").Range("X5:X7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
     
    End Sub



  • di patel data: 03/01/2016 11:53:14

    modifica così
     
           Sheets("Foglio1").Range("X5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    






  • di Gianfranco data: 03/01/2016 11:54:44

    Ciao
    se ho capito giusto 

    Ciao Patel
    che tempismo eh!
     
    Sub Aggiorna()
    Sheets("Foglio1").Range("A6:C6").Copy
    
           Sheets("Foglio1").Range("X5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
     
    End Sub



  • di Gerry (utente non iscritto) data: 03/01/2016 12:39:07

    Grazie per aver risposto però non ho risolto il problema perche le celle copiate devono essere incollate in X5,X6,X7 mentre con il codice di Ginfranco le celle copiate vengono incollate in X5,Y5,Z5



  • di Gianfranco data: 03/01/2016 12:50:28

    fatto
    avevo capito male
     
    Sub Aggiorna()
    Sheets("Foglio1").Range("A6:C6").Copy
    
           Sheets("Foglio1").Range("X5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True
            
     
    End Sub



  • di mabolsie data: 03/01/2016 13:17:46

    @ Gianfranco
    ciao ti avevo scritto una risposta alla email che mi hai dato, ma sei sparito.

    Ciao max



  • di Gerry (utente non iscritto) data: 03/01/2016 13:26:58

    Grazie Adesso funzuona