inserimento immagini in fogli diversi

[Gianca532011]

Grazie, la prima istruzione è perfetta.
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.

[Anthony47]

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?

La domanda ovvia e': ma tu hai un foglio che si chiama esattamente "Foglio0"?

Quanto alla seconda questione, se fai riferimento alle due righe di codice Rows("1:1000").Hidden = False /Range("K:K").ClearContents, queste righe servono per scoprire tutte le righe (comprese tra 1 e 1000); vanno inserite in una macro del tipo

Codice: Seleziona tutto

Sub Scopri()
    Rows("1:1000").Hidden = False
    Range("K:K").ClearContents
'
'altre istruzioni che vuoi eseguire allo "scopri"
'
End Sub


Poi associ questa macro a un pulsante sul foglio interessato.
Ovviamente la macro e' "sgrezza" e va affinata sulla base del tuo processo; ad esempio se devi lavorare su un foglio che non e' quello selezionato, o devi lavorare su piu' fogli.

Ciao

[Gianca532011]

ciao anthony , scusa il ritardo ma ero a cercare funghi ... che non ho trovato .

La domanda ovvia e': ma tu hai un foglio che si chiama esattamente "Foglio0"?

Si.

[Gianca532011]

La domanda ovvia e': ma tu hai un foglio che si chiama esattamente "Foglio0"?

Si.

Anzi "ni", ovvero: "Foglio0 (Settore A)" questo è ciò che compare nel progetto VBa, mentre in excel corrente le linguette sono contrassegnate : Settore A , Settore B etc .
quindi nella macro nascondi dovrò inserire la denominazione esatta : " Foglio0 (Settore A)"

[Gianca532011]

ergo, ho provato inserendo il nome effettivo del foglio " Settore A" ma continua a darmi sempre lo stesso errore : indice non incluso ...

La macro "scopri" invece, manco a dirlo, funziona perfettamemnte.

[Gianca532011]

risolto con le macro sotto riportate, la prima nasconde le righe + immagini che nella colonna "k" recano un flag "X", la seconda macro scopre tutto. Entrambe agganciate a due bottoni .

Codice: Seleziona tutto

Sub Nasconde()
Dim marc
For I = 1 To 1000 Step 1
marc = Cells(I, 11)
If marc <> "" Then
If marc = "X" Then
Range("I:I").Select
Cells(I, 11).Activate
Selection.EntireRow.Hidden = True
End If
End If
Next I
End Sub

Sub Scopre()
Rows("1:300").Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End Sub