-
-
-
file dati completi
-
Ciao Aqquila2,
vedi se va bene:
https://www.dropbox.com/sh/izi7masziamqr9x/AABRf2buELXULrH5UOsT0aFea?dl=0
Ti dico subito che bisognerebbe aggiungere qualche istruzione per gestire eventuali errori (nel caso selezioni un file sbagliato ecc…).
Intanto vedi se le operazioni che esegue sono corrette e poi provvedo a “pulire”
Fai sapere
-
ciao Kriss_9951
l’ho testato ma mi va in errore sul comando Save as
WkReport.SaveAs WK2.Path & “\” & “Report”, 61
eppure il file Report esiste….
…qualche controllo per errori ci andrebbe.. .Se il file scelto non ha la parola DAP uscire con la dicitura ” nessun dato valido trovato”
-
-
Ciao Aqquila2,
ho inserito un controllo sulla stringa “DAP”.
Ho modificato l’istruzione del SaveAs.
Trovi tutto sempre al solito link
Fammi sapere se ricevi ancora errore.
-
-
-
Buongiorno Aqquila2,
al solito link trovi il file con le modifiche richieste; si chiama Macro4.xlsm
Con questa versione, grazie al maestro Sid, puoi scegliere di processare anche più file in una sola volta e quindi non più necessariamente uno alla volta. Quando si apre l’esplora risorse tieni premuto il tasto Ctrl, seleziona tutti i file che vuoi processare e lui esegue il lavoro su tutti i file che hai scelto in un colpo solo
Fai sapere come va
-
ciao Kriss_9951 e SID!
purtroppo devo chiedere una modifica ( non sono stato abbastanza attento all’inizio!) sulla parte che prevedeva un intervallo ciclico di 27 righe dopo la prima serie di 18 valori.
Ho scoperto che invece questo intervallo è variabile ( su centinaia di file da processare!)
Quindi bisognerà fare riferimento alla chiave “DAP”, cioè teminata la prima copia dei primi 18 valori (con le stesse modalità di prima) la macro, invece di spostarsi giù di 27 righe, deve andare a cercare il prossimo valore “DAP” e fare in analogia col precedente intervallo.
Si va avanti così sino a che non trova più la chiave ” DAP”
Un altra piccola modifica sul Rinomina Foglio:
Invece che Cella EA3+ultime 4 di Cella AC5, il nome del foglio sarà:
valore di cella sotto quella che si chiama”/patient/name/last” ( che nell’esempio è alla Cella EA2, ma in altri file può essere in posizione diversa)+ le ultime 4 di Cella AC5 ( questo pezzo rimane invariato)
Vi ringrazio
e mi scuso per l’errore iniziale!!ciao
aqquila2
-
-
-
-
-
-
Ciao Aqquila2,
prova adesso.
Il file lo trovi al solito link (Macro5.xlsm)
Fai sapere
-
ciao Kriss_9951
Ora copia e incolla, salva e rinomina regolarmente i dati come voluto!!
.Succede solo una cosa ” strana” :
Se il file Report.xls esiste già, utilizza quello e va tutto ok.
Se invece non c’è , la macro lo dovrebbe creare e salvare ( nella stessa Cartella dove risiede la macro)
Invece va in debug sulla riga
<!– [if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:HyphenationZone>14</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]–><!– [if gte mso 9]><xml>
<w:LatentStyles DefLockedState=”false” LatentStyleCount=”156″>
</w:LatentStyles>
</xml><![endif]–><!– [if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Tabella normale”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:”Times New Roman”;
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]–><span lang=”EN-GB” style=”font-size: 12.0pt; font-family: ‘Times New Roman’; mso-fareast-font-family: ‘Times New Roman’; mso-ansi-language: EN-GB; mso-fareast-language: IT; mso-bidi-language: AR-SA;”>WkReport.SaveAs WK2.Path & “\” & “Report”, 56</span>Se si riesce a risolvere bene, altrimenti si farà in modo di crearlo già, prima di lanciare la macro!!
Grazie!! Ottimo lavoro cmq…
ciao
aqquila2
-
-
Buongiorno Aqquila2,
non mi sono smazzato per lasciarlo in Debug
Peró è strano che non ho ricevuto il problema…
Mi posti uno screenshot sul debug?
Non capisco la riga perché quando incolli il testo si porta dietro anche il codice HTML
-
-
-
-
-
Riferirò….lassù…
<!– [if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:HyphenationZone>14</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]–><!– [if gte mso 9]><xml>
<w:LatentStyles DefLockedState=”false” LatentStyleCount=”156″>
</w:LatentStyles>
</xml><![endif]–><!– [if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Tabella normale”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:””;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:”Times New Roman”;
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]–>Una novità:
<p class=”MsoNormal”>Ho processato circa 200 file e sono andati tutti bene …tranne uno!!</p>
<p class=”MsoNormal”>Questo file ha la sola particolarità di essere lunghissimo e quindi succede che quando va ad incollare, arriva all’ultima colonna disponibile di Excel (Colonna IV) delle 256…. sul file Report.xls e va in errore!!</p>
<p class=”MsoNormal”>Per ora ho risolto.. sdoppiando in due il file originario…</p>
<p class=”MsoNormal”>A meno che non si possa aggiungere al codice una istruzione che, arrivato all’ultima colonna disponibile, vada “ a capo” riprendendo ad incollare dalla Cella G22</p>
Che dici?ciao
aqquila2
-
-
-
Ciao Aqquila2,
fatto
Ora riesce a reggere fino a tre file di dati (quel file era così lungo che due file non sono bastate)
Trovi tutto al solito link (Macro6.xlsm)
Fai i dovuti controlli!
-
-
ciao Kriss_9951
ho necessità di fare una aggiunta ai dati da copiare!
Sempre dal file dati completi_99.xls al file Report.xls che allego
Fermo restando tutto il resto della macro ( che va bene) aggiungere, nella copi, il dato che si trova 18 righe sotto e 11 colonne a destra del primo “DAP” ( nell’esempio il primo “DAP” si trova in Cella CM31 e il nuovo dato da copiare in Cella CX49).
Questo dato va copiato nel file Report.xls nella Cella E19-F19 ( unisci le celle) ( quindi dopo la serie di 18 di prima).
L’altra copia riguarda invece il dato che si trova 18 righe sotto e 16 colonne a destra del primo “DAP” ( nell’esempio Cella DC49)
Questo dato va copiato in Report.xls nella Cella G19 . Si continua a copiare col dato successivo ( nell’esempio Cella DC76) che verrà copiato in Report.xls nella Cella H19
Si continua così sino a che non trova più dati ( come prima)
Si possono formattare le nuove celle di Report.xls con “testo a capo e centrate”?
Grazie e ciao
aqquila2
-
-
-
ciao Kriss_9951
fatto alcuni test:
ok per copia del dato in A12 e B12.
ok per copia del dato in E19-F19 ( celle unite)
Non mi torna invece la copia dei dati che trova 18 righe sotto e 16 colonne a destra rispetto alla chiave “DAP”
Cerco di spiegare: Nel file di esempio va perfetto. Se però riempio di valori le celle che stanno tra un dato e l’altro (abcdefgh-ilmno-pqrst-uvzx_jjjjj_normal) ( Cioè nell’esempio tra Cella DC49 e DC76) allora la copia viene sfalsata.
La prima copia va bene .Trova “DAP” , calcola 18 sotto e 16 a destra prende il dato e lo copia in Report.
Poi va a cercare il prossimo “DAP” e fa la stessa cosa, e così via.
Se invece, in questo intervallo, trova dei valori, ( che, nei file veri, ci sono ) allora sballa tutto.
Ho fatto una verifica ( nel file esempio) : sotto il dato di Cella DC49 ho messo un valore (per es :2) ed ho lanciato la macro: Risultato: Il primo dato lo copia regolare ( quello di Cella DC49) il secondo che copia ( invece di andare a Cella DC76) è la cella DC50 ( quella dove ho messo 2)
non mi spiego….
-
-
-
Nessun problema
Io ho la passione per il VBA quindi ci tengo che tutto funzioni bene
Per quanto riguarda la “qualità“ posso garantirti che se il maestro Sid e BySalv vedessero il codice avrebbero moooolto da ridire (non lo nego) ma preciso che a seguito dell’ultimo aggiornamento che mi hai chiesto ho preferito più “metterci in toppa” che cancellare tutto e riscriverlo da capo.
Ad ogni modo il risultato finale viene sempre raggiunto 👍
Fai sapere se con i file originali va tutto bene 👍
Alla prox!!
- Devi essere connesso per rispondere a questo topic.