excel inserire riga in automatico

[ruby18]

buon pomeriggio
un consiglio
volevo realizzare in Excel 2003 una macro che mi aggiungesse dopo l'inserimento di dati
nella colonna A una riga vuota
ma sono riuscita solo tramite doppio click
In un Modulo Standard del vba:

Codice: Seleziona tutto

Public Riga As Integer
Sub AggRighe()
Rows(Riga & ":" & Riga).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A" & Riga - 1 & ":B" & Riga - 1).Copy Destination:=Range("A" & Riga & ":B" & Riga)
 Range("C" & Riga).Value = ""
   End Sub

Nel Modulo di classe del foglio di lavoro:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Riga = Target.Row + 1
Cancel = True
AggRighe
End Sub

grazie per l'aiuto

[Anthony47]

Mi permetto di pensare che il ricorso al doppio-click sia una soluzione piu' stabile che non l'inserimento automatico, visto che l'inserimento automatico interverrebbe tutte le volte che fai una modifica (fosse anche una correzione).

Se comunque preferisci l'inserimento automatico allora dovresti dire in quale situazione vorresti che l'inserimento scatti.

Se rimani sul doppio-click allora tieni presente che puoi fare tutto nella BeforeDoubleClick, senza ricorrere alla Sub AggRighe; ad esempio:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim tRow As Long
'
tRow = Target.Row
Rows(tRow + 1).Insert shift:=xlDown
Cells(tRow, "A").Resize(1, 2).Copy Destination:=Cells(tRow + 1, 1)
Cells(tRow + 1, 3).ClearContents       ' Serve??
Cancel = True
End Sub


Ciao

[ruby18]

grazie mille