[EXCEL] Macro complessa per ricerca e compilazione

[Anthony47]

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

[ipsoware]

Ho provato la tua variante ma mi da un errore:
Errore di run-time 9
Indice non incluso nell'intervallo

[ipsoware]

Ho provato ma non fa comunque il calcolo corretto.

[ipsoware]

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

[Anthony47]

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

[ipsoware]

Grande funziona!!!
Avevo il file "sporco"
Grazie ancora