Risolto Scrivere in 3 fogli i dati e compilare il quarto in sequenza

Kraken

Nuovo utente
4 Gennaio 2020
10
1
Padova
www.tricotcafe.com
Excel 2016
0
Buongiorno,

Ho una fiera e 3 listini...Vorrei che quando scrivo nel listino i dati vengano trascritti nel foglio finale "tot" (Che sarebbe la copia commissione da stampare per il cliente)
Avrei bisogno di far compilare il foglio "tot" digitando i dati nei fogli "f1" "f2" "f3" in sequenza, ovvero quando digito per esempio "ciao" in "f1" cella A2, "Marco" in "f2" cella A2, "come stai" in "f3" cella A2, nel foglio "tot" mi appare incolonnato nella colonna A11 "ciao" , A12 "Marco" , A13 "come stai" e così via se inserisco un dato da un foglio qualsiasi me lo scriva di sotto, allego il foglio di esempio.
Io ho provato svariate volte ma senza successo
Grazie in anticipo :arrossisco:
 

Allegati

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
24.457
1.845
66
Napoli
2019 Pro Plus
584
Prova questa macro da inserire nel modulo di QuestaCartelladiLavoro

Visual Basic:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ur As Long
ur = Sheets("tot").Cells(Rows.Count, Target.Column).End(xlUp).Row
If Sh.Name <> "tot" Then
    If Not Intersect(Target, Sh.Range("A2:E35")) Is Nothing Then
        Sheets("tot").Cells(ur + 1, Target.Column).Value = Target.Value
    End If
End If
End Sub
Tu devi solo compilare i fogli f1, f2 etc. ed i dati saranno automaticamente inseriti nel foglio tot nella prima riga vuota disponibile.
 
  • Like
Reactions: pkrome59

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!