ricky53 ha scritto:Ciao,
prova con questo esempio che "soddisfa" la tua richiesta n. 1
- Codice: Seleziona tutto
Option Explicit
Sub Copia_Dati_di_Più_Fogli_sul_Riepilogo()
Dim WS1 As Worksheet, UR_Inp As Long, I As Integer, UR_Out
Set WS1 = Sheets("Riepilogo")
For I = 1 To Worksheets.Count
If Sheets(I).Name <> "Riepilogo" Then
UR_Inp = Sheets(I).Range("B" & Rows.Count).End(xlUp).Row
UR_Out = WS1.Range("A" & Rows.Count).End(xlUp).Row + 1
If UR_Out = 1 Then
UR_Out = 2
End If
Sheets(I).Range("B3:Z" & UR_Inp).Copy
WS1.Range("A" & UR_Out).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
Next I
Set WS1 = Nothing
End Sub
Per la n. 2
Quindi vorrei inserire un pulsante nella userform che mi permetta di aggiornare il foglio riepilogo con
gli inserimenti che nel frattempo sono stati fatti sugli altri fogli, sempre rispettando il range B3:Z uguale
per tutti i fogli.
Se, invece, di "Aggiungere" i nuovi dati COPIASSIMO sempre tutti i dati dei vari fogli?
In questo modo avremmo una sola macro, però se i dati sono molti potrebbe essere un po' lenta ... va verificato.
Quante righe ci saranno, a regine, nei vari fogli e in riepilogo?
Ciao Ricky, ben felice di vedere il tuo interesse. Ti ringrazio. A regime non ci saranno molte righe. Io credo complessivamente
(tutti i fogli) non più di 200 righe... A dire il vero io volevo fare una cosa del genere, solo che tu sai bene le mie conoscenze non vanno di pari passo con le mie esigenze... Comunque ti posto il codice del CommandButton2 con il quale inserisco, attraverso la userform i nuovi "record". Anzi, ti allego direttamente tutto il file che forse è meglio!!!
Colgo l'occasione per spiegare che il foglio di riepilogo mi serve perchè su di esso, tramite formule e macro, vorrei che a 5 giorni dalla data di scadenza (colonna I) la macro mi inviasse per e-mail un avviso. Il corpo dell'email dovrebbe essere composto da alcune delle informazioni presenti nei vari campi del record (es. riga1 colonnaZ mi dice che è in scadenza, il corpo dell'email è composto da alcuni campi/colonne di riga1). Spero di aver reso l'idea...
https://www.dropbox.com/s/kx5vzntfjmprlff/Cartelle1.xlsm?dl=0