Scopri E Nascondi Righe E Colonne

[trittico6969]

Potete aiutarmi modificare questa macro in modo che scopre tutte le righe e colonne di tutti i fogli?

Sub Rettangolo7_Clic()

Dim wb As Workbook
Dim wsc As Integer
Dim r As Integer
Set wb = ThisWorkbook
wsc = Sheets.Count
For r = 2 To wsc
   wb.Sheets(r).Rows("14:57").EntireRow.Hidden = False
Next r
End Sub

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

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!

Non sono capace di creare una macro che cancelli i dati, partendo dal secondo foglio dove io metterò il tasto che comanderà il codice fino al dodicesimo foglio, dalla cella B14 a J56

Qualcuno può crearmela?

****Nota del moderatore***

Ho unito in un unico post 2 discussioni sul medesimo programma. E' inutile fare richeiste a spizzichi e bocconi.

Anzi se hai altri probleemi sul medesimo programma descrivili tutti.

Sembra un foglio di Excel però dichiaralo esplicitamente non farebbe male, son solo 2 parole

Modificato: 1 maggio 2011 da Livio Orsini