per la seconda parte ho provato a pasticciare questo codice :
- Codice: Seleziona tutto
Option Compare Text
Sub Nascondi_Celle()
Dim UR As Long, I As Long, Nascoste As Long, Messaggio As String, Testo_per_Nascondere As String
UR = Range("K" & Rows.Count).End(xlUp).Row
Nascoste = 0
Testo_per_Nascondere = "X" ' <<----------- inserire QUI il flag per il quale vuoi nascondere le righe +immagini
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = False
For I = 2 To UR
If Sheets("Foglio0").Cells(I, 11).Value = Testo_per_Nascondere Then
Sheets("Foglio0").Cells(I, 11).EntireRow.Hidden = True
Nascoste = Nascoste + 1
End If
Next I
Application.ScreenUpdating = True
If Nascoste > 0 Then
Messaggio = "Sono state nascoste: " & Nascoste & " righe"
Else
Messaggio = "Non sono state nascoste righe"
End If
MsgBox Messaggio
End Sub
If Sheets("Foglio0").Cells(I, 11).Value = Testo_per_Nascondere Then ma a questa riga mi da errore 09 " indice non incluso nell'intervallo "
Dove sbaglio? Lo so che sono tornato a un ciclo for ma non capito come utilizzare le tue ultime righe.