Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Altri Linguaggi - scopri e nascondi righe e colonne
Forum - Altri Linguaggi - scopri e nascondi righe e colonne

Avatar
trittico69 (Normal User)
Pro


Messaggi: 144
Iscritto: 02/04/2010

Segnala al moderatore
Postato alle 11:42
Domenica, 01/05/2011
Potete aiutarmi modificare questa macro in modo che scopre tutte le righe e colonne di tutti i fogli?

Codice sorgente - presumibilmente VB.NET

  1. Sub Rettangolo7_Clic()
  2.  
  3. Dim wb As Workbook
  4. Dim wsc As Integer
  5. Dim r As Integer
  6. Set wb = ThisWorkbook
  7. wsc = Sheets.Count
  8. For r = 2 To wsc
  9.    wb.Sheets(r).Rows("14:57").EntireRow.Hidden = False
  10. Next r
  11. 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

Codice sorgente - presumibilmente VB.NET

  1. Sub NascondirigheVuote()
  2. Dim ff As Integer
  3. Dim rr As Integer
  4. For ff = 2 To Worksheets.Count
  5. If Worksheets(ff).Name <> "Riep" Then
  6. Worksheets(ff).Select
  7. For rr = 57 To 14 Step -1
  8.     If Val(Range("A" & rr)) = 0 Then Rows(rr & ":" & rr).EntireRow.Hidden = True
  9. Next rr
  10. End If
  11. Next ff
  12. 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!

PM Quote