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