E quest’altra in modo che oltre a nascondere le righe che già nasconde dovrebbe nascondere le colonne K e L e poi dalla colonna P alla colonna AW
Codice sorgente - presumibilmente VB.NET |
Sub NascondirigheVuote() Dim ff As Integer Dim rr As Integer For ff = 2 To Worksheets.Count If Worksheets(ff).Name <> "Riep" Then Worksheets(ff).Select For rr = 57 To 14 Step -1 If Val(Range("A" & rr)) = 0 Then Rows(rr & ":" & rr).EntireRow.Hidden = True Next rr End If Next ff End Sub
|
E infine togliere la protezione di tutti i fogli(senza password) all’inizio della prima macro e metterla alla fine della seconda macro
Grazie!