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
Moderatori: Anthony47, Flash30005
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
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Macro protezione foglio con password non funge Autore: xilofono |
Forum: Applicazioni Office Windows Risposte: 13 |
Esiste un riferimento relativo al foglio precedente? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Marius44 e 72 ospiti