MACRO ALTEZZA CELLE

[scanacc]

Allora... ho 40 righe excell che automaticamente si riempiono di dati (fino alla colonna H) in base alle scelte fatte su altro foglio presente dello stesso file excel.
Spesso si riempiono tutte ma a volte se ne riempiono molte meno.
Cosa vorrei fare?
Vorrei avere una macro che una volta eseguita riduca l'altezza a 0 delle righe che non hanno dati e che quindi le faccia scomparire.
E' possibile?
Penso di SI ma non riesco! Mannaggia
Grazie per l'attenzione

[scanacc]

Sono riuscito a trovare il riferimento riga che volta in volta si genera.
La domanda è:
Come faccio a variare la macro sottostante

Codice: Seleziona tutto

   
Range("J9:J43").Select
    Selection.RowHeight = 0
    Range("B3").Select

in modo tale che al posto del numero 9 di J9 sia messo il valore del riferimento riga che io ho messo in M47?

[Marius44]

Ciao
prova a "nascondere" (invece di ridurre l'altezza) le righe prive di valori.

Ciao,
Mario

[Anthony47]

Ciao Mario, credo che la difficolta per scanacc sia di farlo su una serie di righe...

l'altra cosa che avevo pensato è fare una colonna che nelle celle corrispondenti mi fornisca un numero (esempio 10 per le righe vuote) e creare una macro che al click nasconda le righe delle rispettive celle che hanno quel determinato numero.
Che dite?

immagino che questo messaggio sia da riferire a "questa" discussione, e non a quella in cui e' stao poi accodato (viewtopic.php?f=26&t=105781)
Seguendo questa tua ipotesi, allora ti bastera' applicare il filtro automatico a quella nuova colonna; poi registri una macro mentre filtri per "Valore diverso da XXX" (xxx e' quanto restituito nella colonna di appoggio) e la associ a un pulsante "Filtra". Eventualmente ne registri anche una seconda mentre cancelli il filtro dalla colonna e la associ a un secondo pulsante "Visualizza tutto"

Ciao

[Marius44]

Salve a tutti
Non posso replicare (in assenza di file) esattamente ma ho immaginato quanto segue:
Range("A2:H41") si riferisce alle 40 righe ipotizzate.
Questa macro innanzi tutto mi scopre eventuali righe nascoste; quindi mette il numero 1 in alcune celle (uno per riga, ma potrebbero essere tante cifre diverse); poi cancella i dati di una colonna (io ho scelto la colonna D).

Codice: Seleziona tutto

Sub InsertNumber()
Range("A2:H41").ClearContents
For i = 2 To 41
  Rows(i).Hidden = False
Next i
For i = 2 To 41
  a = a + 1
  If a > 8 Then a = 1
  Cells(i, a) = 1
Next i
Columns("D").ClearContents       'cambiare la lettera D per altre colonne
End Sub


Quest'altra macro, invece, nasconde le righe la cui somma è 0 (zero), quindi riga vuota

Codice: Seleziona tutto

Sub HiddenRows()
For i = 2 To 41
  If Application.WorksheetFunction.Sum(Range("A" & i & ":H" & i)) = 0 Then
    Rows(i).Hidden = True
  End If
Next i
End Sub


Non credi potrebbe essere una soluzione?
Ciao,
Mario

[scanacc]

provo