Buona giornata, @paolocaliffo63;
consentimi un saluto a @ABCDEF@Excel
@paolocaliffo63, in risposta #4, scrive:
... Salve Giuseppe ho risposto alle tue richieste qualche giorno fa te le riporto sotto. Volevo capire quale soluzione potevo eventualmetne adottare per la problematica rappresentata.
Grazie ...
Ti leggo, per puro caso, solo ora; da quando Forum è stato revisionato non ricevo più la mail di "Nuova risposta"; questo non mi permette più di seguire le Discussione alle quali ho partecipato.
Detto ciò, dopo aver preso buona nota della Proposta di @ABCDEF@Excel, potresti valutare anche questo Codice VBA, preliminarmente devi semplicemente selezionare una Cella del Record che desideri valutare quindi lanciare questo Codice VBA:
Option Explicit
Sub Copia()
Cells(ActiveCell.Row + 1, 1).Select
Selection.EntireRow.Insert
Range(Cells(ActiveCell.Row - 1, 1), Cells(ActiveCell.Row - 1, 27)).Copy Cells(ActiveCell.Row, 1)
Cells(ActiveCell.Row, 4).ClearContents
Cells(ActiveCell.Row, 6).ClearContents
Cells(ActiveCell.Row, 9).Value = Cells(ActiveCell.Row, 9).Value + 1
Cells(ActiveCell.Row, 11).ClearContents
Cells(ActiveCell.Row, 13).ClearContents
End Sub
Scusandomi per il ritardo nella risposta, rimango a disposizione.
P.S. Giusto per capire se le Mail di "Nuova risposta" non arrivano solo a mè, cortesemente manda un riscontro della lettura di questa risposta.
Buon lavoro.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013