Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

inserimento immagini in fogli diversi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: inserimento immagini in fogli diversi

Postdi Gianca532011 » 22/07/16 09:20

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.
Giancarlo
win 7 pro- Office 2013 Ita
Gianca532011
Utente Senior
 
Post: 130
Iscritto il: 27/05/11 10:18

Sponsor
 

Re: inserimento immagini in fogli diversi

Postdi Anthony47 » 22/07/16 12:17

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: inserimento immagini in fogli diversi

Postdi Gianca532011 » 30/07/16 16:56

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

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

Si.
Giancarlo
win 7 pro- Office 2013 Ita
Gianca532011
Utente Senior
 
Post: 130
Iscritto il: 27/05/11 10:18

Re: inserimento immagini in fogli diversi

Postdi Gianca532011 » 30/07/16 19:07

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)"
Giancarlo
win 7 pro- Office 2013 Ita
Gianca532011
Utente Senior
 
Post: 130
Iscritto il: 27/05/11 10:18

Re: inserimento immagini in fogli diversi

Postdi Gianca532011 » 31/07/16 08:42

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.
Giancarlo
win 7 pro- Office 2013 Ita
Gianca532011
Utente Senior
 
Post: 130
Iscritto il: 27/05/11 10:18

Re: inserimento immagini in fogli diversi

Postdi Gianca532011 » 31/07/16 14:24

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
Giancarlo
win 7 pro- Office 2013 Ita
Gianca532011
Utente Senior
 
Post: 130
Iscritto il: 27/05/11 10:18

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "inserimento immagini in fogli diversi":

Immagini
Autore: aleyandro
Forum: Sistemi Operativi Windows
Risposte: 5
Immagini cancellate
Autore: endryu77
Forum: Software Windows
Risposte: 7

Chi c’è in linea

Visitano il forum: Nessuno e 9 ospiti