ciao a tutti
con questa parte di una macro prelevo dai dati da un altro file (masa1) e li riporto
correttamente nel file "generale-masaniello":
- Codice: Seleziona tutto
Sub prel1()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Application.Calculation = xlManual
Percorso = Application.ActiveWorkbook.Path
Nfile = "\" & "masa1.xls"
Application.Workbooks.Open Percorso & Nfile
Worksheets("1-masa1-Fogl.Base").Activate ' <<< il foglio dal quale dove preleva
Range("c9:c1000").Copy
ThisWorkbook.Sheets("giornaliero").Range("m7").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False '<<< toglie avviso di molti dati
ActiveWorkbook.Close SaveChanges:=False
fil = "generale.masaniello.xls" '<<< il file dove devo portare il dato
Sheets("giornaliero").Select
Range("m7").Select ' la cella dove incollare i dati
end sub
tutto funzione se il file -masa1- lo trova chiuso.
vorrei poter prelevare sia con file -masa1- gia aperto - o file chiuso , ( come funziona ora).
nel caso il file lo trovi aperto lo deve lasciare aperto.
nel caso il file lo trovi chiuso lo deve lasciare chiuso ( come fa ora)
al momento se faccio partire la macro e masa1 e' aperto mi da l'avviso:
file gia aperto, riaprendolo le modif andrebbero perse....
quindi io non vorrei piu vedere tale avviso e ovviamente non vorrei perdere le modif. nel caso ci fossero.
grazie a tutti
ciao
S.O. win10, Excell 2019