| | Post: 4 | Registrato il: 16/02/2016
| Città: MASSA | Età: 35 | 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à. |
|
| | Post: 3.592 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | Utente Master | 2010 | | OFFLINE | |
|
12/01/2017 17:57 | |
salvare come pdf ?
----------
Win 10 - 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à: 35 | 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à: 35 | Utente Junior | 2013 | | OFFLINE | |
|
13/01/2017 08:53 | |
|
| | Post: 3.601 | Registrato il: 13/03/2012
| Città: LIVORNO | Età: 78 | 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 10 - 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à: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
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à: 35 | 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à: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
13/01/2017 16:05 | |
|
| | Post: 7 | Registrato il: 16/02/2016
| Città: MASSA | Età: 35 | 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à: 70 | Utente Veteran | Excel 365 | | ONLINE |
|
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à: 35 | 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à: 35 | 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à: 35 | 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à: 35 | 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à: 78 | Utente Master | 2010 | | OFFLINE | |
|
13/01/2017 18:21 | |
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 10 - 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à: 35 | 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à: 78 | 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 10 - 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à: 35 | 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à: 78 | Utente Master | 2010 | | OFFLINE | |
|
14/01/2017 10:20 | |
spiegati meglio
----------
Win 10 - 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à: 35 | 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à: 35 | 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à: 78 | Utente Master | 2010 | | OFFLINE | |
|
14/01/2017 11:02 | |
mi occorrono dei file di esempio che rispecchino quanto hai spiegato
----------
Win 10 - 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à: 35 | 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à: 35 | Utente Junior | 2013 | | OFFLINE | |
|
17/01/2017 11:15 | |
Patel45 mi hai abbandonato???
Nessun'altro sa rispondermi? |
|
|