SE NON TROVI IL FILE... NON FAI NIENTE

[scanacc]

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]

Anzi, se non trova il FILE, dovrebbe chiudermi il FOGLIO2

[Anthony47]

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

[scanacc]

Vorrei dargli 2 comandi ... faccio solo un esempio:
Nascondi il Foglio2 e poi Exit Sub

[scanacc]

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]

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

[Anthony47]

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