excels copiare riga in altro foglio

[chicolocox21]

il problema è questo ho un file con 3 fogli che poi potrebbero diventare 4 5 6 ecc vorrei che quando creo una riga scrivendo in una qualsiasi cella dei fogli 2 o 3 ecc questa venga copiata nella prima riga vuota del foglio 1
grazie

[alfrimpa]

Ciao chicolox

Allega un file di esempio con i dati

[alfrimpa]

Ovviamente oltre ai dati devi dare spiegazioni e mostrare il risultato che vuoi ottenere ed in base a quali azioni.

[chicolocox21]

il problema è questo ho un file con 3 fogli che poi potrebbero diventare 4 5 6 ecc vorrei che quando creo una riga scrivendo in una qualsiasi cella dei fogli riparazione o saldatura questa venga copiata nella prima riga vuota del totali

allego file

<a href=http://www.filedropper.com/provacopiariga><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >file upload storage</a></div>

[alfrimpa]

Devi incollare il primo link di Filedropper non il secondo.

Il fatto che i fogli possano aumentare non è un problema.

[chicolocox21]

http://www.filedropper.com/provacopiariga_2
eccolo scusa

[alfrimpa]

Prova con questa macro da inserire nel modulo di classe Questa_cartella_di_lavoro (ThisWorkbook)

Codice: Seleziona tutto

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ur As Long
On Error Resume Next
ur = Sheets("totali").Cells(Rows.Count, 1).End(xlUp).Row
If Sh.Name <> "totali" Then
Application.EnableEvents = False
If Not Intersect(Target, Range("C1:c1000")) Is Nothing Then
    Sheets("totali").Cells(ur + 1, 1).Value = Target.Offset(0, -2).Value
    Sheets("totali").Cells(ur + 1, 2).Value = Target.Offset(0, -1).Value
    Sheets("totali").Cells(ur + 1, 3).Value = Target.Value
End If
Application.EnableEvents = True
End If
End Sub