Copia data da cella in inserimento riga

Hai un problema con Excel?

Nuova discussione

Copia data da cella in inserimento riga
di Perry (utente non iscritto) data: 14/12/2013 18:56:13
Salve a tutti,
In inserimento di una riga in una tabella vorrei che mi riportasse la data digitata in una cella presente sullo stesso foglio.
Grazie

Per inserire le righe uso il seguente codice (gentilmente suggerito).:

Sub E_Righe()
Dim E_oTbl As ListObject
Set E_oTbl = ActiveSheet.ListObjects("Excel_Tab")

Application.EnableEvents = False
With E_oTbl
.ListRows.Add alwaysinsert:=True
With .ListRows(.ListRows.Count)
.Range(1).Offset(-1).Copy .Range(1)
.Range.Offset(-1).Copy
.Range.PasteSpecial xlPasteFormats
End With
End With

Application.EnableEvents = True
Application.CutCopyMode = False
Set E_oTbl = Nothing
End Sub

Quale istruzione dovrei aggiungere e dove ? la data è nella cella (es.G547) dello stesso foglio della tabella.
di patel data: 14/12/2013 19:12:45
puoi allegare un file di esempio ?
di Perry (utente non iscritto) data: 15/12/2013 19:13:15
Ho allegato il file completo, resto in attesa
Grazie

di patel data: 15/12/2013 22:42:10
prova questa

Sub E_Righe()
Dim E_oTbl As ListObject, lr As Long
  Set E_oTbl = ActiveSheet.ListObjects("Excel_Tab")
  
  Application.EnableEvents = False
    With E_oTbl
    lr = .ListRows.Count
    .ListRows.Add alwaysinsert:=True
    With .ListRows(lr)
        .Range(1).Offset(-1).Copy .Range(1)
        .Range.Offset(-1).Copy
        .Range.PasteSpecial xlPasteFormats
        Range("G" & lr + 4).Copy
        .Range(1).Offset(, 6).PasteSpecial
    End With
  End With
  
  Application.EnableEvents = True
  Application.CutCopyMode = False
  Set E_oTbl = Nothing
End Sub

di Perry (utente non iscritto) data: 17/12/2013 12:14:33
Funziona perfettemente,
Grazie 1k
Perry

Vuoi Approfondire?