Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

SE NON TROVI IL FILE... NON FAI NIENTE

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

SE NON TROVI IL FILE... NON FAI NIENTE

Postdi scanacc » 21/10/20 19:04

In pratica vorrei dire a questa macro che se non trova il FILE indicato non fa niente
Codice: Seleziona tutto
Sub COPIO_MOVIMENTI_CC_DUE()
    Application.ScreenUpdating = False
    Dim rng As Range, bk As Workbook

    Set rng = Worksheets("FOCUS FR").Cells(1, 23)
    If (Trim(rng.Value) <> "") Then
        Set bk = Workbooks.Open("C:\FOCUS FR\DETTAGLIO\" & rng.Value)
       
    ' DEVO INSERIRE IL COMANDO CHE SE NON LO TROVA NON FA NIENTE

Grazie di esistere
scanacc
Utente Senior
 
Post: 282
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: SE NON TROVI IL FILE... NON FAI NIENTE

Postdi scanacc » 21/10/20 22:32

Anzi, se non trova il FILE, dovrebbe chiudermi il FOGLIO2
scanacc
Utente Senior
 
Post: 282
Iscritto il: 06/12/15 10:30

Re: SE NON TROVI IL FILE... NON FAI NIENTE

Postdi Anthony47 » 22/10/20 00:28

Mantenendo la macro attuale:
Codice: Seleziona tutto
On Error Resume Next
Set bk = Workbooks.Open("C:\FOCUS FR\DETTAGLIO\" & Rng.Value)
On Error GoTo 0
If bk Is Nothing Then
    'Cosa deve fare se BK non esiste?
    'Exit Sub ??
    'Sheets("Foglio1").Select  ??
End If

Non ti ho codificato "cosa fare se BK non esiste" perche' non so cosa intenda per "chiudere Foglio2"; se non risolvi quella parte da solo allora spiega meglio il significato e vedremo.
Grazie di esistere
Sul forum conta piu' il feedback che la captatio benevolentiae iniziale; insomma dovresti dare un feedback ad alcune discussioni ancora aperte...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17219
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: SE NON TROVI IL FILE... NON FAI NIENTE

Postdi scanacc » 22/10/20 10:07

Vorrei dargli 2 comandi ... faccio solo un esempio:
Nascondi il Foglio2 e poi Exit Sub
scanacc
Utente Senior
 
Post: 282
Iscritto il: 06/12/15 10:30

Re: SE NON TROVI IL FILE... NON FAI NIENTE

Postdi scanacc » 22/10/20 11:25

In più, sempre a completamento della domanda, vorrei avere un comando che di fronte al fatto che il FOGLIO1 è chiuso non azioni il comando
Codice: Seleziona tutto
    Sheets("FOGLIO2").Select
    ActiveWindow.SelectedSheets.Visible = False

In pratica, se il FOGLIO1 è aperto, lo chiude altrimenti non fa l'azione di chiuderlo e mi mette quindi al riparo da messaggi di errore
scanacc
Utente Senior
 
Post: 282
Iscritto il: 06/12/15 10:30

Re: SE NON TROVI IL FILE... NON FAI NIENTE

Postdi scanacc » 22/10/20 11:57

Quest'ultima l'ho trovata ... o almeno mi sembra

Codice: Seleziona tutto
Sub Macro1()
'
' Macro1 Macro

    Sheets("Foglio1").Select
    'Se il FOGLIO2 è aperto
    If Sheets("Foglio2").Visible = True Then
    ' lo chiudo
    Sheets("Foglio2").Select
    ActiveWindow.SelectedSheets.Visible = False
    ' Altrimenti va bene tutto così
    Else
    Exit Sub
End If
End Sub
scanacc
Utente Senior
 
Post: 282
Iscritto il: 06/12/15 10:30

Re: SE NON TROVI IL FILE... NON FAI NIENTE

Postdi Anthony47 » 22/10/20 20:43

Una delle tante opzioni:
Codice: Seleziona tutto
On Error Resume Next
Sheets("Foglio1").Select
Sheets("Foglio2").Visible = False
On Error GoTo 0

La segnalo perche' mostra come a volte l'uso del deprecato (da me) On Error Resume Next sia non solo tollerato ma faccia parte dell'algoritmo della soluzione.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17219
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "SE NON TROVI IL FILE... NON FAI NIENTE":

Strano file su Outlook
Autore: gimart
Forum: Discussioni
Risposte: 1
Lucchetto file
Autore: ianus
Forum: Software Windows
Risposte: 13

Chi c’è in linea

Visitano il forum: Nessuno e 24 ospiti