Excel VBA #31 Dividere un database su più fogli con il ciclo For Each (split Excel database) Macro

Показать описание

Benvenuto nel mio canale, prendi nota dei link qui sotto potrebbero esserti utili 😉

*****************DOWNLOAD*********************

*****************SUPPORTA*********************
☑ Abbonati a questo canale per accedere ai vantaggi:

**************SEGUIMI! *************************

************** I MIEI LIBRI***********************

*************ATTREZZATURE***********************

#GerardoZuccalà #PowerQuery #Excel_Vba

Рекомендации по теме

Комментарии

Buon sangue non mente, recita un famoso proverbio; Grazie sig.Gerardo del suo costante impegno!

FB-tiod

È sempre un piacere vedere i tuoi video....non vedo l'ora di vedere il prossimo video.

paolosoloperto

Gerardo sei davvero bravo come insegnate. Sei chiarissimo. Il fatto che tu scriva in modo sequenziale il codice aiuta davvero tanto la comprensione. Complimenti. Grazie

ntn

grande gerardo bellissimo video spiegato in modo semplice, grazieeee

flaviomarini

Ottimo Gerardo !!! Mi è stata utile la lezione per completare (anche se i casi come hai detto sono molti di più perchè i cicli sono ESSENZIALI nella programmazione VBA) la discussione sui cicli.
Ho raccolto il tuo invito e pubblico qui sotto in condivisione il codice con le implementazioni che hai proposto.
Ho ridondato un po' il codice per far si che col DEBUG si vedessero i vari passaggi nei fogli, in modo che risultasse in automatico il passaggio del copia incolla e della cancellazione dei dati.
Grazie e al prossimo VIDEO ...!!!

Sub LoopShNames()

Dim cella As Range
Dim intervallo As Range
Application.ScreenUpdating = False

Set intervallo = wk1.Range("A2",
'Set intervallo = wk1.Range("A2:A" & "A").End(xlUp).Row)
wk1.Activate

'Sheets(Array("Anna", "Nick", "Luis")).Select
'Range("A2:C500").Select
'Selection.ClearContents
'Sheets("DataBase").Select
'Range("A1").Select

'per cancellare la precedente esecuzione della macro
CancellaDivisioneSuFogli

Application.ScreenUpdating = False

For Each cella In intervallo
wk1.Range(cella, cella.End(xlToRight)).Copy
Sheets(cella.Value).Activate

Sheets(cella.Value).Range("A" & 1).End(xlUp).Row).Offset(1, 0).PasteSpecial

Application.CutCopyMode = False
wk1.Activate
Next cella

wk1.Activate
Application.ScreenUpdating = True

End Sub

Sub CancellaDivisioneSuFogli()

Dim Current As Worksheet
Application.ScreenUpdating = False

For Each Current In Worksheets
If Not Current.Name = "DataBase" Then
Current.Select

Selection.ClearContents
Current.Range("A1").Select
End If
Next

Application.ScreenUpdating = True
Sheets("DataBase").Select
Range("A1").Select
End Sub

sscire

Posso consigliarti di inserire in descrizione, quando fai tutorial divisi in piu video, i link alle altri parti del video? Grazie x i tuoi video molto utili

alterchannel

Come al solito sei insuperabile, molto professionale e chiaro nelle spiegazioni ...Ti chiedo se puoi aiutarmi nell'estrarre il solo mese di una data e ricopiarlo nel mese di appartenenza, mi spiego , ho un file di Prima nota cassa e banca con 12 Fogli -- da Gen-Feb-Mar-ecc nel mese di dicembre ho dei titoli in cassa con scadenza quello che vorrei fare e cancellare i dati dei mesi gennaio/aprile e riportarmi per ogni mese le scadenze dei titoli di appartenenza quello di gennaio nel Foglio Gen, febbraio nel foglio Feb. ecc ... il Range dei dati e da B7:G275 naturalmente deve copiare la riga B??:G?? Spero di essere stato chiaro Grazie

salvatorebello

Buonasera Gerardo Complimenti per il tuo grande lavoro che stai facendo. Volevo chiederti se è possibile indicare due condizioni o più condizioni all'interno di un ciclo for each. Magari facendo un tuo esempio. Pensavo se era possibile nidificare due cicli for each. Grazie tanto. Paolo da Altofonte. Tuo Fedelissimo.

paoloferlito

grande come sempre vorrei chiederti un favore potresti aggiungere a questo video una cosa carina ? mi piacerebbe vedere una soluzione nel creare con vba il Foglio Anna, Nick, Luis .... in base a ciò che trova nella colonna ? quindi si parte con foglio DataBase e basta e si terminerà in base a quanti nomi ci saranno nella colonna A (spero di essermi spiegato e ti ringrazio in anticipo per il grande lavoro che fai complimenti)

jdmingo

Ciao Gerardo complimenti altro video molto interessante.
Ho un problema con Application.Screen.Updating = False con office 365 mentre lo stesso codice lavora perfettamente su office 2013.
Cosa si puó fare?

ThePero

Vi posto la mia proposta per la cancellazione celle nei fogli di cartella:

fcfrac

Excel VBA #31 Dividere un database su più fogli con il ciclo For Each (split Excel database) Macro

Excel VBA #31 Dividere un database su più fogli con il ciclo For Each (split Excel database) Macro

Excel VBA #51 Dividere i records di un database su più fogli con una condizione (Split database)

Excel VBA #17 Istruzione Select Case VBA

Excel VBA #26 For Next Loop (ciclo) per popolare un DataBase (video 3 di 4) - Macro per archiviare

Excel Vba #23 Ciclo Do Loop - Macro per dividere i Record su diversi fogli in base ad una condizione

Excel VBA #22 Do Until e Do While Loop esempi con Select Case

Excel VBA #50 (UnPivot) Trasformare una griglia incrociata in un database Tabulare (Ciclo For Next)

Excel VBA #27 Nascondere o eliminare righe in base a 3 condizioni con il Ciclo For Next - Macro VBA

Excel VBA #36 Come Unire File di excel e tutti i fogli in un unico database (Macro con ciclo Do)

Excel VBA #34 Popolare un DataBase con le immagini (Macro Archivia ) poi WorksheetFunction e Resize

Excel VBA #30 Ciclo For Each Next su fogli per unire database con un codice (Macro Excel VBA)

Excel VBA #28 Ciclo For Each le basi di questo loop su un oggetto Range ( video 1 di 4) Macro VBA

Excel VBA #49 Macro per evidenziare righe, colonne e la cella attiva

Excel: nascondere un foglio attraverso il Vba con la proprietà SheetVeryHidden

Pillola Excel: Come dividere i dati

Excel VBA #29 Ciclo For Each Next Estrarre dati in un altro foglio con una condizione - Macro VBA

Dividi un intervallo in più fogli (o file) - Excel Swiss Knife #TUTORIAL

Excel VBA #32 Le immagini e gli eventi Worksheet - If Not Intersect(Target, Range('A1')) ...

Excel VBA #8 Lavorare tra fogli (3 metodi ) e poi..worksheets o Sheets e poi...la funzione =SUM()

Excel VBA #24 Loop For Next nidificato dentro il ciclo For Next Macro per verificare condizioni

#10.4 Copia Incolla Gestire Celle VBA Macro Excel - Macraris

EM163 Formula Excel per estrarre i dati su fogli multipli (2 esempi)

Come raggruppare righe e/o colonne in Excel

Excel VBA Livello intermedio (6 di 7) — Creare un ciclo For dinamico