Macro per salvare solo l'area di Stampa

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
Babi67
00giovedì 12 gennaio 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à.
patel45
00giovedì 12 gennaio 2017 17:57
salvare come pdf ?
Babi67
00venerdì 13 gennaio 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
Babi67
00venerdì 13 gennaio 2017 08:53
patel45
00venerdì 13 gennaio 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
alfrimpa
00venerdì 13 gennaio 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
Babi67
00venerdì 13 gennaio 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??...
alfrimpa
00venerdì 13 gennaio 2017 16:05
Esattamente
Babi67
00venerdì 13 gennaio 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
alfrimpa
00venerdì 13 gennaio 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.
Babi67
00venerdì 13 gennaio 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
Babi67
00venerdì 13 gennaio 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
Babi67
00venerdì 13 gennaio 2017 16:55
se mi potete modificare la macro che salva in pdf con quest'altro foglio allora mi fareste un favore.

Grazie.
Babi67
00venerdì 13 gennaio 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
patel45
00venerdì 13 gennaio 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

Babi67
00sabato 14 gennaio 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?
patel45
00sabato 14 gennaio 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 ?
Babi67
00sabato 14 gennaio 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?
patel45
00sabato 14 gennaio 2017 10:20
spiegati meglio
Babi67
00sabato 14 gennaio 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.
Babi67
00sabato 14 gennaio 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.
patel45
00sabato 14 gennaio 2017 11:02
mi occorrono dei file di esempio che rispecchino quanto hai spiegato
Babi67
00sabato 14 gennaio 2017 12:09
Questo è il mio file per fatturare e creare DDT se mi puoi aiutare te ne sarei veramente grato...grazie ancora.
Babi67
00martedì 17 gennaio 2017 11:15
Patel45 mi hai abbandonato???

Nessun'altro sa rispondermi?
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 12:41.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com