COPIARE FILE e RICHIUDERLO

[scanacc]

Mi dice errore di compilazione Sub or Function non definita.
1) Freccia gialla su --> Private Sub Worksheet_Change(ByVal Target As Range)
2) Evidenza in blu sulla parte di codice dove c'è scritto --> Call GetFrom
3) Creazione di una copia Cartel1 che rimane però da nominare e da salvare.
Come posso fare?
Grazie Anthony

[scanacc]

Mi dice errore di compilazione Sub or Function non definita.
Ti dico poi cosa vedo
1) Freccia gialla su --> Private Sub Worksheet_Change(ByVal Target As Range)
2) Evidenza in blu sulla parte di codice dove c'è scritto --> Call GetFrom
3) Creazione di una copia Cartel1 che rimane però da nominare e da salvare.
Come posso fare?
Grazie Anthony

[scanacc]

Mi dice ERRORE DI COMPILAZIONE Sub o Function non definita
ti dico cosa altro vedo:
1) Vedo la prima riga di questo codice in giallo (Private Sub Worksheet_Change ...)
2) Evidenziata in blu la riga che inizia con Call GetFrom
Ti allego tutta la macro

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TGWb As Workbook, Desh As String, bPath As String
'
Desh = "cc"                       '<<< Su quale foglio caricare i risultati
bPath = "C:\FOCUS 2024\DETTAGLIO CC\" 'ThisWorkbook.Path               '<<< Se i file sono invece altrove, mettere il Percorso
'
    Application.ScreenUpdating = False
If Target.Address = "$D$13" Then
    On Error Resume Next
    Set TGWb = Workbooks.Open(Filename:=bPath & "\" & Range("D13").Value, ReadOnly:=True)
    If Err.Number <> 0 Or TGWb Is Nothing Then
        MsgBox (bPath & "\" & Range("A1").Value & vbCrLf _
          & "Il file non e' stato aperto correttamente")
        TGWb.Close , False
        Exit Sub
    End If
    On Error GoTo 0
    ThisWorkbook.Sheets(Desh).Cells.ClearContents
    Call GetFrom(TGWb)
    Application.EnableEvents = False
   ThisWorkbook.Sheets(Desh).Range("A1").PasteSpecial xlPasteAll      'RIGA APPENA MODIFICATA
    Application.DisplayAlerts = False       'ADD
    TGWb.Close , False
    Application.DisplayAlerts = True        'ADD
    Application.EnableEvents = True
        Sheets("SCHEDA LINO").Select
    Application.ScreenUpdating = True
End If
End Sub

dopo di che rimane aperta una copia della Scheda Lino che si chiama Cartel1 che va quindi rinominata e salvata nella cartella Analisi Svolte
Come posso fare?
Grazie Anthony per la pazienza

[Anthony47]

Quel casino succede perche' evidentemente il foglio che vai a copiare e salvare contiene una sua macro di WorksheetChange, che la copia si porta dietro, mentre immagino che in questa versione non serva piu'.
Ma tu in D13 cosa ci scrivi? NomeFile.xlsm? NomeFile.xlsx? NomeFile e basta?

In grassetto quello giusto

[scanacc]

nome file e basta
in questo caso cognome e nome

[scanacc]

Ho risolto e come sempre per merito tuo.
Ho tolto tutti i collegamenti esterni della macro copiata e ho aggiunto

Sub Salva()
'
' Macro1 Macro
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Sheets("SCHEDA").Select
Sheets("SCHEDA").Copy
ChDir "C:\Fuochi 2024\ANALISI"

NomeFile = Range("D13").Value


With ActiveWorkbook

.SaveAs Filename:=MyDir & "" & NomeFile
.Close Savechanges:=False


Workbooks.Open Filename:="C:\Fuochi 2024\ANALISI\" & Range("D13").Value
Selection.Copy
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CommandBars("Workbook Links").Visible = False
Range("C2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("D2").Select

ActiveWorkbook.Save
ActiveWindow.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
End Sub

Gira tutto

[Anthony47]

Ho risolto [...]

Hummm... Sei sicuro?
I file generati sono .xlsx o xlsm? Se apri uno di questi file e modifichi a caso una cella, va tutto bene?

[scanacc]

xlsx
mi sembra vada tutto bene