Pagina precedente | 1 | Pagina successiva
Facebook  

Macro per salvare solo l'area di Stampa

Ultimo Aggiornamento: 17/01/2017 11.15
Autore
Stampa | Notifica email    
Post: 4
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
12/01/2017 17.55

Ciao a tutti, volevo sapere se qualcuno poteva aiutarmi in questo, mi sapete indicare una macro che mi permetta di salvare solo quello che è selezionato nell'area di stampa del foglio attivo?...e se si può fare mi interesserebbe anche salvare quel determinato file con un codice presente in esso, ovvero la cartella "B14", così da ottenere uno storico dei ddt da poter richiamare in fattura quando seleziono il numero di ddt con cui sono stati salvati.

Grazie in anticipo a chi risponderà.
Macro trova valore e copia rigamacro22/12/2018 09.19 by gattodimarmo1980
È arrivato il Regno?Testimoni di Geova Online...per16/01/2019 17.56 by I-gua
inserimento riga solo in una colonnasolo11/01/2019 07.29 by tanimon
Post: 3.592
Registrato il: 13/03/2012
Città: LIVORNO
Età: 73
Utente Master
2010
OFFLINE
12/01/2017 17.57

salvare come pdf ?

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 4
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 08.49

Non so se è meglio salvare in pdf o in formato excel perche poi quei dati salvati devono essere richiamati in un secondo momento sempre da excel...te cosa mi consiglieresti?

grazie per la risposta
Post: 5
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 08.53

Post: 3.601
Registrato il: 13/03/2012
Città: LIVORNO
Età: 73
Utente Master
2010
OFFLINE
13/01/2017 11.33

Sub salva()
fpath = ThisWorkbook.Path & "\"
filenam = Range("B14")
Sheets(1).Copy
Range("B1:P58").Value = Range("B1:P58").Value
Columns("Q:AD").Delete

ActiveWorkbook.SaveAs Filename:= _
            fpath & filenam & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close
End Sub

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 2.576
Registrato il: 21/06/2013
Città: NAPOLI
Età: 65
Utente Veteran
Excel 2013
OFFLINE
13/01/2017 12.05

E per il salvataggio in PDF puoi provare questa macro

vb
Sub SalvaPDF()
    Dim wks1 As Worksheet
    Dim dati As Range
    Dim percorso As String
    Dim nomefile As String
    Set wks1 = Worksheets("D.D.T.")
    Set dati = wks1.Range("B1:P58")
    nomefile = Range("B14").Value
    percorso = ActiveWorkbook.Path & "\"
    dati.ExportAsFixedFormat Type:=xlTypePDF, Filename:=percorso & nomefile, _
    Quality:=xlQualityStandard, OpenAfterPublish:=False
    MsgBox "Copia PDF salvata con successo!", vbInformation, "Avviso di notifica"
    Set wks1 = Nothing
    Set dati = Nothing
End Sub
[Modificato da alfrimpa 13/01/2017 12.05]

Alfredo
Post: 6
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 16.02

Grazie a tutti e due per le risposte se non sbaglio una e per il salvataggio in pdf e l'altra per il salvataggio del singolo foglio giusto??...
Post: 2.579
Registrato il: 21/06/2013
Città: NAPOLI
Età: 65
Utente Veteran
Excel 2013
OFFLINE
13/01/2017 16.05

Esattamente

Alfredo
Post: 7
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 16.15

Quindi potrei usare la prima per crearmi uno storico dei ddt che poi richiamerei in fattura tramite il numero del documento e la seconda per crearmi invece uno storico delle fatture...pero se mi potete aiutare meglio con le macro ve ne sarei grato ad esempio il percorso del file come lo devo scrivere tra () o C:\documenti\storico ddt
Post: 2.582
Registrato il: 21/06/2013
Città: NAPOLI
Età: 65
Utente Veteran
Excel 2013
OFFLINE
13/01/2017 16.17

La prima salva in Excel la seconda in PDF nel percorso della cartella di lavoro attiva entrambe con il nome contenuto in B14.
[Modificato da alfrimpa 13/01/2017 16.18]

Alfredo
Post: 8
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 16.28

Quando provo ad inserire il percorso file mi da errore di sintassi il mio percorso è F - Ernesto2016 - DDT mi dite come le mdevo inserire nei rispettivi moduli che mi avete gentilmente creato.

grazie
Post: 9
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 16.34

Non mi ero spiegato bene prima...vorrei salvare i DDT in una cartella apposita come devo modificare la macro per fare questo?

Grazie
Post: 10
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 16.55

se mi potete modificare la macro che salva in pdf con quest'altro foglio allora mi fareste un favore.

Grazie.
Post: 11
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
13/01/2017 16.59

E gia che siete così gentili con me con l'ultimo file caricato se mi potete creare una macro che quando scrivo il numero del ddt me lo riporti in fattu...se ci riuscite siete davvero grandi...grazie ancora anticipatamente
Post: 3.605
Registrato il: 13/03/2012
Città: LIVORNO
Età: 73
Utente Master
2010
OFFLINE
13/01/2017 18.21

Re:
Babi67, 13/01/2017 16.28:

Quando provo ad inserire il percorso file mi da errore di sintassi il mio percorso è F - Ernesto2016 - DDT mi dite come le mdevo inserire nei rispettivi moduli che mi avete gentilmente creato.

grazie

non è chiaro cosa modifichi, facci vedere


----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 12
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
14/01/2017 09.00

Niente patel 45 sbagliavo io...ma con la tua macro come faccio a dargli una cartella di salvataggio differente a quella del file di lavoro?
Post: 3.606
Registrato il: 13/03/2012
Città: LIVORNO
Età: 73
Utente Master
2010
OFFLINE
14/01/2017 09.56

Sub salva()
fpath = "C:\quellochevuoi\"
filenam = Range("B14")
Sheets(1).Copy
Range("B1:P58").Value = Range("B1:P58").Value
Columns("Q:AD").Delete
 
ActiveWorkbook.SaveAs Filename:= _
            fpath & filenam & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
            ActiveWorkbook.Close
End Sub

difficile ?
[Modificato da patel45 14/01/2017 09.57]

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 13
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
14/01/2017 10.12

Ok ti rigrazio e scusami per le mie domande banali...ma non me ne capisco molto...e per poi poterle richiamare in fattura con quantita aggiornate ecc è possibile?
Post: 3.607
Registrato il: 13/03/2012
Città: LIVORNO
Età: 73
Utente Master
2010
OFFLINE
14/01/2017 10.20

spiegati meglio

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 14
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
14/01/2017 10.31

Ora questi ddt sono destinati in una cartella precisa e vengono salvati per numero quindi 001 002 003 ecc..quando io mi sposto sul foglio fatture nella cella "riferimento ddt" inserisco i numeri dei ddt a cui fa rifermento, sarebbe possibile con una macro quando io inserisco il numero ddt che quest'ultima me lo riporti iin fattura e se fossero più di uno che mi sommi le quantita uguali?

es:

DDT 001

casse pomodori 2
casse zucche 3
casse cilpolle 4

DDT 002

casse pomodori 1
casse faiogli 1
casse cipolle 3


FATTURA

rif DDT (001-002)

"in automatico"

casse pomodori 3
casse zucche 3
casse cipolle 7
casse fagioli 1

Grazie per la pazienza e cortesia.
Post: 15
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
14/01/2017 10.33

Aggiungo che per compilare la fattura ho dei codici che mi richiamano il prodotto che sono uguali per ddt e fattura quindi basterebbe che copiasse i codici con quantità aggiornata.
Post: 3.608
Registrato il: 13/03/2012
Città: LIVORNO
Età: 73
Utente Master
2010
OFFLINE
14/01/2017 11.02

mi occorrono dei file di esempio che rispecchino quanto hai spiegato

----------
Win 8 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 16
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
14/01/2017 12.09

Questo è il mio file per fatturare e creare DDT se mi puoi aiutare te ne sarei veramente grato...grazie ancora.
Post: 18
Registrato il: 16/02/2016
Città: MASSA
Età: 30
Utente Junior
2013
OFFLINE
17/01/2017 11.15

Patel45 mi hai abbandonato???

Nessun'altro sa rispondermi?
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Home Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05.21. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.5.0.0] - Copyright © 2000-2019 FFZ srl - www.freeforumzone.com