macro per nascondere alcune righe

Hai un problema con Excel?

Nuova discussione

macro per nascondere alcune righe
di save#5 (utente non iscritto) data: 16/05/2016 11:49:55
ragazzi esiste una macro che mi permette di tramite un pulsante nascondore e poi far riapparire alcune righe di un file excel.

allego esempio.

Mi servirebbe un pulsante per nascondere tutte le righe 12,18,24,30,36,40 e poi un altro per farle riapparire.

Graziue

di alfrimpa data: 16/05/2016 12:03:05
Prova con le macro che vedi sotto creando due pulsanti sul foglio cui assocerai ad un pulsante la prima e all'altro la seconda.

Alfredo

Sub nascondi()
Dim i As Integer
For i = 12 To 40 Step 6
    Range("a" & i).EntireRow.Hidden = True
Next i
End Sub

Sub scopri()
Dim i As Integer
For i = 12 To 40 Step 6
    Range("a" & i).EntireRow.Hidden = False
Next i
End Sub

di save#5 (utente non iscritto) data: 16/05/2016 14:32:56
La macro funziona perfettamente soltanto che però non mi nasconde la riga 40?

Quale può essere il motivo???

di Mister_x (utente non iscritto) data: 16/05/2016 14:43:51
ciao

perché dopo il 36 viene il 42 e non il 40

prova cosi'

ciao

Sub Nascondi()
    Range("12:12,18:18,24:24,30:30,36:36,40:40").EntireRow.Hidden = True
End Sub
Sub Scopri()
    Range("12:12,18:18,24:24,30:30,36:36,40:40").EntireRow.Hidden = False
End Sub

di save#5 (utente non iscritto) data: 16/05/2016 14:49:40
Adesso funziona grazie mille Mister_X.
Ne approfitto per chiederti un alta cosa:

ho notato che nel nascondere le righe non mi nasconde le immagini; per quale motivo???
Serve una macro apposta???

di alfrimpa data: 16/05/2016 15:12:34
Save prova con le macro che vedi sotto.

Alfredo

Sub Nascondi()
Application.ScreenUpdating = False
    Range("12:12,18:18,24:24,30:30,36:36,40:40").EntireRow.Hidden = True
    Worksheets("Riepilogo costi").Shapes("Immagine 8").Visible = False
    Worksheets("Riepilogo costi").Shapes("Immagine 12").Visible = False
    Worksheets("Riepilogo costi").Shapes("Immagine 17").Visible = False
    Worksheets("Riepilogo costi").Shapes("Immagine 24").Visible = False
    Worksheets("Riepilogo costi").Shapes("Immagine 22").Visible = False
    Worksheets("Riepilogo costi").Shapes("Immagine 16").Visible = False
  Application.ScreenUpdating = True
End Sub

Sub Scopri()
Application.ScreenUpdating = False
    Range("12:12,18:18,24:24,30:30,36:36,40:40").EntireRow.Hidden = False
    Worksheets("Riepilogo costi").Shapes("Immagine 8").Visible = True
    Worksheets("Riepilogo costi").Shapes("Immagine 12").Visible = True
    Worksheets("Riepilogo costi").Shapes("Immagine 17").Visible = True
    Worksheets("Riepilogo costi").Shapes("Immagine 24").Visible = True
    Worksheets("Riepilogo costi").Shapes("Immagine 22").Visible = True
    Worksheets("Riepilogo costi").Shapes("Immagine 16").Visible = True
Application.ScreenUpdating = True
End Sub

di save#5 (utente non iscritto) data: 16/05/2016 15:36:54
Ho provato ma mi da un errore run-time 438 che indentifica in questa riga:

Worksheets("Riepilogo costi").Shapes("Immagine 8").Visibile = False
di alfrimpa data: 16/05/2016 15:43:19
Mah non so che dire a me funziona perfettamente; ti allego il file save2.

Alfredo
di save#5 (utente non iscritto) data: 16/05/2016 15:56:13
Ciao Alfredo nel file save 2 non vedo i 2 pulsanti!
di save#5 (utente non iscritto) data: 16/05/2016 15:59:52
No scusa adesso li ho trovati.....grazie mille
di alfrimpa data: 16/05/2016 16:04:56
Pensavo che almeno quelli li sapessi creare.

Vai nella scheda Sviluppo clicca sull'icona Inserisci e nella tendina che si apre tra i Controlli Modulo scegli il primo a sinistra.

Disegna il pulsante sul foglio poi fai clic con il tasto dx del mouse scegli assegna macro scegli la macro e dai ok.

Però, lasciatelo dire, queste cose dovresti già saperle da tempo se richiedi aiuto sulle macro.

Anche da parte tua occorrerebbe un po' di impegno altrimenti non imparerai mai nulla; basta andare con Google su Internet e trovi di tutto.

Alfredo
di Mister_x (utente non iscritto) data: 16/05/2016 16:09:55
ciao

intanto ne approfitto per salutare Alfredo

quello che ti ha proposto Alfredo ,e' quello che ti volevo proporre io , provate le sub queste funzionano giuste sul tuo file

ciao
di alfrimpa data: 16/05/2016 16:16:38
@ Save#5

Cit.: "No scusa adesso li ho trovati.....grazie mille "

Ma io non avevo messo nessun pulsante lasciando a te il compito e quelli che c'erano non li ho toccati.

Poi perché hai detto che non funzionava dandoti errore su

Worksheets("Riepilogo costi").Shapes("Immagine 8").Visibile = False?

Ciao Mister_x

Alfredo
di save#5 (utente non iscritto) data: 16/05/2016 16:17:39
Si funzionano benissimo.
Vorrei soltanto chiedervi ancora una cosa, guisto per capire la macro;

quei numeri alle immagini: immagine 8, immagine 12 ecc..
che cosa stanno a significare??? la posizione dell'immagine nella riga o cos'altro???
di save#5 (utente non iscritto) data: 16/05/2016 16:20:39
Si alfredo scusa nel senso che ho creato i pulsanti da solo....quando hai inviato il file pensavo ci fossero ecco perchè te li ho chiesti.
di alfrimpa data: 16/05/2016 16:23:50
No non stanno a significare riga o altro.

Quando inserisci un "oggetto" (una forma, un'immagine o altro) Excel lo denomina automaticamente.

"Immagine 8" (o gli altri) non sono altro che i nomi delle singole immagini per cui se si vuole fare riferimento ad esse occorre utilizzare il loro nome e non riferimenti di riga/colonna che nulla hanno a che vedere con le immagini inserite.

Alfredo
di save#5 (utente non iscritto) data: 16/05/2016 16:37:25
Ho capito perfettamente. Grazie mille per la spiegazione. Grazie mille di tutto.
di save#5 (utente non iscritto) data: 17/05/2016 08:40:02

Vuoi Approfondire?