Risultati da 1 a 4 di 4

Discussione: Macro per tagliare/incollare righe



  1. #1
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    29
    Messaggi
    40
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Macro per tagliare/incollare righe

    Ciao a tutti,
    avrei bisogno di creare una macro che mi consenta, partendo da una semplice selezione di una cella, di copiare tutta la riga della cella selezionata, tagliarla ed incollarla due righe sopra, lasciando invariato il contenuto delle righe superiori...dovrebbe inserirsi solamente sopra alla riga che precede la riga della cella selezionata

    Per ora ho scritto questo:

    Codice: 
    Sub spostasu()
    
    Application.ScreenUpdating = False
    
        Rows(ActiveCell.Row).Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.Copy
        Selection.Insert Shift:=x1Down, CopyOrigin:=xlFormatFromLeftOrAbove
        Application.CutCopyMode = False
    
    Application.ScreenUpdating = True
    End Sub
    Funziona ma incolla solo la riga nella riga superiore (non quella ancora sopra) e non taglia la riga selezionata...avete qualche idea?

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: Macro per tagliare/incollare righe

    prova così:
    Codice: 
    Sub spostasu()
    Dim mioRange As Range
    
    
    Application.ScreenUpdating = False
    
    
    If mioRange.Row > 2 Then
        Set mioRange = Rows(ActiveCell.Row)
        mioRange.Cut
        Rows(mioRange.Offset(-2, 0).Row).Insert Shift:=xlDown
        Set mioRange = Nothing
        
    Application.CutCopyMode = False
    End If
    
    Application.ScreenUpdating = True
    End Sub

  3. #3
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    29
    Messaggi
    40
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Macro per tagliare/incollare righe

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    prova così:
    Codice: 
    Sub spostasu()
    Dim mioRange As Range
    
    
    Application.ScreenUpdating = False
    
    
    If mioRange.Row > 2 Then
        Set mioRange = Rows(ActiveCell.Row)
        mioRange.Cut
        Rows(mioRange.Offset(-2, 0).Row).Insert Shift:=xlDown
        Set mioRange = Nothing
        
    Application.CutCopyMode = False
    End If
    
    Application.ScreenUpdating = True
    End Sub
    Graziee! ho rpeso spunto dal tuo codice e ho messo insime questo che fa al mio caso:

    Codice: 
    Sub spostasu()
    
    Dim mioRange As Range
    Application.ScreenUpdating = False
        Set mioRange = Rows(ActiveCell.Row)
        mioRange.Cut
        Rows(mioRange.Offset(-1, 0).Row).Insert Shift:=xlDown
    Application.CutCopyMode = False
    
    Application.ScreenUpdating = True
    End Sub
    Vorrei che questa macro funzionasse solamente in un determinato intervallo, altrimenti rischio che l'utente vada a sostituire le righe dell'intestazione...Posso settare l'intervallo di lavoro della macro??Ad esempio dovrebbe funzionare dalla cella b9 fino alla fine del foglio; all'utente non può essere permesso di spostare la riga 9 in alto, ma solamente a partire dalla riga 10

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2807
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    978

    Re: Macro per tagliare/incollare righe

    La riga
    Codice: 
     
    If miorange.row >2
    serviva proprio a quello.
    Sostituisci il 2 con il 9

    Inviato dal mio GT-I9301I utilizzando Tapatalk

Discussioni Simili

  1. Macro non vuole incollare solo i valori
    Di Gatt88 nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 25/01/17, 13:07
  2. Risposte: 19
    Ultimo Messaggio: 11/01/17, 19:50
  3. Risposte: 3
    Ultimo Messaggio: 05/12/16, 21:21
  4. [Risolto] Macro per copiare ed incollare su Notepad
    Di F.Depretis nel forum Domande su Excel VBA e MACRO
    Risposte: 19
    Ultimo Messaggio: 07/11/16, 11:08
  5. Risposte: 6
    Ultimo Messaggio: 23/10/16, 18:02

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •