Condividi:        

Raggruppa dinamico

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

Raggruppa dinamico

Postdi BG66 » 24/02/17 16:32

Ciao a tutti,
vorrei che la macro tenga conto delle celle "piene" nella colonna B e raggruppi le sottostanti fino alla riga 33.
https://www.dropbox.com/s/a8p4n9qmvut7xmq/raggruppa_forum.xlsm?dl=0

Con le mie conoscenze e il registratore :oops: sono arrivato solamente al pezzo statico ossia:
Codice: Seleziona tutto
Sub raggruppa()
    Rows("7:33").Select
    Selection.Rows.Group
    Range("B6").Select
End Sub


Grazie in anticipo
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 320
Iscritto il: 20/08/16 07:44

Sponsor
 

Re: Raggruppa dinamico

Postdi Marius44 » 25/02/17 07:07

Ciao Gene
se ho capito bene tu vorresti "nascondere" le righe vuote dell'intervallo A3:B33
A mio avviso occorre un ciclo che "legga" la cella e, se questa è vuota, nasconda l'intera riga.

Esempio (ma provvedi tu a tradurlo in codice, qui è proibita la "pappa pronta")

For i = riga3 to riga33
se range("A" & i)="" allora
intera.riga(i).hidden = true
fine se
next i

Non so se è chiaro. Al caso chiedi.
Ciao,
Mario
Marius44
Utente Senior
 
Post: 655
Iscritto il: 07/09/15 22:00

Re: Raggruppa dinamico

Postdi ricky53 » 26/02/17 00:37

Ciao,
scusa ma non è più semplice filtrare togliendo le righe vuote?
Seleziona l'intervallo "A2:X33"
imposta il filtro
seleziona la 1^ colonna, cella "A2"
Click sul triangolino del filtro
dall'elenco del filtro togli la spunta a "Vuote"
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Raggruppa dinamico

Postdi Anthony47 » 26/02/17 02:22

Aggiungo la mia interpretazione:
Codice: Seleziona tutto
Sub raggruppa2()
Dim MaxR As Long
'
MaxR = Evaluate("max(row(1:33)*(B1:B33<>""""))")
Rows("2:33").Ungroup
If MaxR < 33 Then
    Rows(MaxR + 1 & ":33").Group
End If
End Sub

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

[RISOLTO] Raggruppa dinamico

Postdi BG66 » 26/02/17 09:57

[RISOLTO]
Ciao e grazie a tutti.
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 320
Iscritto il: 20/08/16 07:44

Re: Raggruppa dinamico

Postdi wallace&gromit » 26/02/17 14:23

mmh hai avuto tre risposte radicalmente diverse e commenti solo con un "risolto", un po' pochino, ci dici qual'era la risposta risolutiva?
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Raggruppa dinamico

Postdi ricky53 » 26/02/17 17:39

Ciao,
prima leggi quanto ti ha scritto W&G.

Ci fa piacere ricevere i ringraziamenti ... però, a beneficio degli altri utenti, dovresti dire quale soluzione hai adottato.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Raggruppa dinamico

Postdi BG66 » 02/03/17 05:39

Ciao e scusate il feedback ritardato.
Premesso che tutte assolvevano egregiamente a quanto richiesto, la scelta è stata fatta utilizzando un parametro soggettivo ("estetica finale") e quindi ho optato per quella propostami da Anthony.

Grazie ancora a tutti.
BG66
Excel2010
Avatar utente
BG66
Utente Senior
 
Post: 320
Iscritto il: 20/08/16 07:44


Torna a Applicazioni Office Windows


Topic correlati a "Raggruppa dinamico":


Chi c’è in linea

Visitano il forum: Nessuno e 52 ospiti