Condividi:        

Inserire riga vuota quando cambia la data

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Inserire riga vuota quando cambia la data

Postdi aykita » 27/11/18 17:42

Buon Giorno sono nuovo in questo forum e sono nuovo anche nell'uso di VBA.
Ho un problema: ho un foglio di Excel con un numero indefinito di righe compilate, la colonna B contiene delle date e la mia necessità è di inserire una riga vuota ogni volta che la data cambia (chiaramente tra le due date diverse).
Ringrazio anticipatamente chi potrà aiutarmi.
aykita
Newbie
 
Post: 2
Iscritto il: 27/11/18 17:33

Sponsor
 

Re: Inserire riga vuota quando cambia la data

Postdi Anthony47 » 27/11/18 23:33

Ciao aykita, benvenuto nel forum.

Questa macro dovrebbe fare quel che chiedi:
Codice: Seleziona tutto
Sub AddBLine()
Dim dataC As String, I As Long, LastData As Long
'
dataC = "B"             '<<< La colonna con la data
LastData = Cells(Rows.Count, dataC).End(xlUp).Row
For I = LastData To 3 Step -1
    If Cells(I, dataC).Value <> Cells(I - 1, dataC) Then
        Cells(I, dataC).EntireRow.Insert
    End If
Next I
End Sub

Va messo in un "Modulo standard" del vba; per questo, partendo da Excel:
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato
Personalizza la riga marcata <<< come da commenti.

Poi torna su Excel e quando i dati sono pronti lancia la macro AddBLine:
-premi Alt-F8
-seleziona AddBLine dall'elenco di macro disponibili
-premi Esegui

Ti suggerisco pero' di verificare se il comando Inserisci Subtotali puo' risolvere altrettanto bene la tua esigenza; anzi "anche meglio", perche' come inserisci le righe di Subtotale puoi anche toglierle.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Inserire riga vuota quando cambia la data

Postdi klingklang » 01/12/18 16:12

Ciao, la soluzione di Anthony è già perfetta, ma ti propongo comunque di dare un'occhiata a questo strumento del mio programma, che magari ti può essere utile per ripetere "al volo" operazioni come questa. Nel caso lo provassi, mi farebbe piacere un tuo feedback :)
Enrico
Windows 7 + Office 2016 64bit / Windows 10 + Office 365 32/64bit
Avatar utente
klingklang
Utente Junior
 
Post: 97
Iscritto il: 23/11/18 15:01
Località: San Giovanni in Persiceto

Re: Inserire riga vuota quando cambia la data

Postdi aykita » 02/12/18 11:56

Grazie Anthony47 il codice da te postato funziona perfettamente come funziona perfettamente lo strumento del programma di
klingklang ottimo programma e molto utile.
Grazie a tutti e due.
aykita
Newbie
 
Post: 2
Iscritto il: 27/11/18 17:33


Torna a Applicazioni Office Windows


Topic correlati a "Inserire riga vuota quando cambia la data":


Chi c’è in linea

Visitano il forum: Nessuno e 91 ospiti