inserimento righe sopra cella posizione

Hai un problema con Excel?

Nuova discussione

inserimento righe sopra cella posizione
di marxitpa data: 30/10/2016 09:10:29
Ho l' esigenza di creare una macro che mi faccia inserire una riga vuota sopra la cella dove ho posizionato il mouse.
Grazie

inserimento righe sopra cella posizione
di marxitpa data: 30/10/2016 09:31:26
Con la macro indicata riesco ad inserire una riga vuota sopra la cella dove ho posizionato il mouse.
Chiedo ... come fare per riportare nelle prime 4 celle il contenuto delle 4 celle della riga di sotto
Grazie

Sub InserimentoRiga()
Dim Y As Variant
Y = ActiveCell.Row  'con la variabile Y reperiamo il numero di riga della cella ora attiva
Worksheets("foglio1").Select
Rows(Y).Select
Selection.Insert Shift:=xlDown
Set X = Nothing
Set Y = Nothing
End Sub

di patel data: 30/10/2016 10:56:02
allega un file di esempio con i dati ed il risultato desiderato
di marxitpa data: 30/10/2016 12:13:16
ho da inserire l'elenco degli aderenti ...
Per evitare di fare tutti i passaggi manualmente (riscrivere i dati delle prime 4 colonne) vorrei:
* posizionarmi sulla linea con l'indirizzo che mi interessa;
* con la macro che già c'è inserire una riga sotto;
* copiare le prime 4 celle dalla riga di partenza nella nuova riga.

di Albatros54 data: 30/10/2016 14:25:31
Se ho capito,prova il codice sotto.

Sub InserimentoRiga()
    Dim Y As Variant
    Y = ActiveCell.Row    'con la variabile Y reperiamo il numero di riga della cella ora attiva
    Worksheets("generale").Select
    ActiveCell.Resize(, 5).Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Set X = Nothing
    Set Y = Nothing
End Sub

di marxitpa data: 30/10/2016 16:09:03
ho allegata una immagine con descrizione richiesta.
grazie

di marxitpa data: 31/10/2016 04:16:31
fatto, anche se in modo ... 'tortuoso'

Public Sub aggiungi_riga_sotto()
x = ActiveCell.Row
' Y = ActiveCell.Column
k = x + 1
' in AA1 e AA2 faccio memorizzare numero riga selezionata e successiva
Range("AA1") = Str(x)
Range("AA2") = Str(k)
ActiveCell.Offset(1).EntireRow.insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
' indico dove scrivere le coordinate per copiare ed incollare
Dim a1, a2, a3, a4, b1, b2, b3, b4, b5 As String
a1 = Range("AB1")
b1 = Range("AB2")
a2 = Range("AC1")
b2 = Range("AC2")
a3 = Range("AD1")
b3 = Range("AD2")
a4 = Range("AE1")
b4 = Range("AE2")
b5 = Range("AF2")
' si dovrebbe creare un ciclo ... ci proverò ! (per ora mi accontento)
    Range(a1).Select
    Selection.Copy
    Range(b1).Select
    ActiveSheet.Paste
    Range(a2).Select
    Selection.Copy
    Range(b2).Select
    ActiveSheet.Paste
    Range(a3).Select
    Selection.Copy
    Range(b3).Select
    ActiveSheet.Paste
    Range(a4).Select
    Selection.Copy
    Range(b4).Select
    ActiveSheet.Paste
    Range(b5).Select

End Sub

Vuoi Approfondire?