Condividi:        

[EXCEL] Macro complessa per ricerca e compilazione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: [EXCEL] Macro complessa per ricerca e compilazione

Postdi Anthony47 » 02/06/13 12:07

Invece di lavorare sulla stringa io suggerirei di convertirla in Valore usando CDbl:
Codice: Seleziona tutto
Workbooks(NomeA).Worksheets(NFoglio).Range("I" & RRF).Value = Cdbl(VArr(1, 7)) * 1.3
Workbooks(NomeA).Worksheets(NFoglio).Range("J" & RRF).Value = CDbl(VArr(1, 7)) * 1.2

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Sponsor
 

Re: [EXCEL] Macro complessa per ricerca e compilazione

Postdi ipsoware » 02/06/13 22:56

Ho provato la tua variante ma mi da un errore:
Errore di run-time 9
Indice non incluso nell'intervallo
ipsoware
Utente Junior
 
Post: 40
Iscritto il: 01/05/13 07:25
Località: Viterbo

Re: [EXCEL] Macro complessa per ricerca e compilazione

Postdi ipsoware » 02/06/13 22:57

Ho provato ma non fa comunque il calcolo corretto.
ipsoware
Utente Junior
 
Post: 40
Iscritto il: 01/05/13 07:25
Località: Viterbo

Re: [EXCEL] Macro complessa per ricerca e compilazione

Postdi ipsoware » 02/06/13 23:28

Ho controllato meglio il calcolo è errato non solo per cifre inferiori a 1 ma in tutti i campi dove c'è una cifra con una virgola o con decimali.

tipo
30% 20% €
I J K
1,3 1,2 1,8
ipsoware
Utente Junior
 
Post: 40
Iscritto il: 01/05/13 07:25
Località: Viterbo

Re: [EXCEL] Macro complessa per ricerca e compilazione

Postdi Anthony47 » 03/06/13 09:37

Non so che soluzione stai usando; io ti avevo proposto una macro a cui avevi risposto "Adesso funziona anche se da due piccoli errori." (gli errori in realta' erano errate interpretazioni delle istruzioni; vedi viewtopic.php?f=26&t=91865&start=40#p571559 e successivo).
Questa macro non contiene l' istruzione Workbooks(NomeA).Worksheets(NFoglio).Range("I" & RRF).Value = Val(VArr(1, 7)) * 1.3 e successiva che tu hai citato in un post successivo, corretta da Flash e ulteriormente commentata da me.

Nella mia versione della macro il calcolo delle colonne I e J era fatta con
Worksheets(nFoglio).Range("I" & RRF + 1).Value = Val(VArr(RRF, 7)) * 1.3
Worksheets(nFoglio).Range("J" & RRF + 1).Value = Val(VArr(RRF, 7)) * 1.2

Applicando CDbl a queste istruzioni, la versione aggiornata sara':
Worksheets(nFoglio).Range("I" & RRF + 1).Value = CDbl(VArr(RRF, 7)) * 1.3
Worksheets(nFoglio).Range("J" & RRF + 1).Value = CDbl(VArr(RRF, 7)) * 1.2


Nelle mie prove funziona.
Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] Macro complessa per ricerca e compilazione

Postdi ipsoware » 03/06/13 16:05

Grande funziona!!!
Avevo il file "sporco"
Grazie ancora
ipsoware
Utente Junior
 
Post: 40
Iscritto il: 01/05/13 07:25
Località: Viterbo

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] Macro complessa per ricerca e compilazione":


Chi c’è in linea

Visitano il forum: Nessuno e 31 ospiti