Ok Anthony......grazie per il tuo interessamento
cerco di essere il più chiaro possibile
ho costruito un file il cui nome è: ( Prenentivo Tettoie),dove attraverso conbinazioni di dati mi crea tutte le misure necessarie per la costruzione di tettoie in legno nonchè il preentivo stesso ,quello che vorrei fare e il seguente
una volta compilato tutti i dati devo salvare il nuovo file con tutte le formule e quant'altro vi è nel file originale,con il nome della cella in ( G12 ) nel percorso "D:\Archivio Gruppo Bx\Preventivi tettoie".<<<<---questo è il salvataggio del file............
Nel file originale ( che risiede nella stessa cartella )invece, nel foglio " MENU ", per una eventuale modifica o visione vorrei creare un collegamento al file appena salvato.<<<<<<------Nota i file potrebbero essere centinaia il che ognuno avrà il suo nome come da cella G12 di volta in volta..........
Dopo aver fatto cio sempre nel file origine deve cancellarmi tutti i dati inseriti precedentemente per preparare il file per un nuovo preventivo,le celle da cancellare sono le seguenti:
- Codice: Seleziona tutto
Application.Goto Reference:="R59C229"
Selection.ClearContents
Range("BY15:BZ15").Select
Selection.ClearContents
Range("BY17:BZ17").Select
Selection.ClearContents
Range("BY19:BZ19").Select
Selection.ClearContents
Range("BY21").Select
Selection.ClearContents
Range("BY22").Select
Selection.ClearContents
Range("BY25:BZ25").Select
Selection.ClearContents
Range("BY28:BZ28").Select
Selection.ClearContents
Range("BY30:BZ30").Select
Selection.ClearContents
Range("BY32:BZ32").Select
Selection.ClearContents
Range("BR33:BY33").Select
Range("BY33").Activate
Range("BY34").Select
Selection.ClearContents
Range("P34").Select
Selection.ClearContents
Range("P28").Select
Selection.ClearContents
Range("r38:R33").Select
Selection.ClearContents
Range("p38:P33").Select
Selection.ClearContents
Range("P29").Select
Selection.ClearContents
Range("n38:N33").Select
Selection.ClearContents
Range("N25").Select
Selection.ClearContents
Range("N21").Select
Selection.ClearContents
Range("L32:L18").Select
Selection.ClearContents
Range("L15").Select
Selection.ClearContents
Range("L16").Select
Selection.ClearContents
Range("N30").Select
Selection.ClearContents
Range("N29").Select
Selection.ClearContents
Range("N22").Select
Selection.ClearContents
Range("N18").Select
Selection.ClearContents
Range("G29").Select
Selection.ClearContents
Range("G28").Select
Selection.ClearContents
Range("G27").Select
Selection.ClearContents
Range("G26").Select
Selection.ClearContents
Range("G25").Select
Selection.ClearContents
Range("F24:G24").Select
Selection.ClearContents
Range("G23").Select
Selection.ClearContents
Range("G22").Select
Selection.ClearContents
Range("G21").Select
Selection.ClearContents
Range("G20").Select
Selection.ClearContents
Range("G18").Select
Selection.ClearContents
Range("G17").Select
Selection.ClearContents
Range("G16").Select
Selection.ClearContents
Range("G15").Select
Selection.ClearContents
Range("G14").Select
Selection.ClearContents
Range("G12:J12").Select
Selection.ClearContents
Range("N12").Select
Selection.ClearContents
Range("L14").Select
Selection.ClearContents
Range("G11:J11").Select
Selection.ClearContents
una volta eseguito deve salvare il file
spero di essere stato chiaro