[EMAIL PROTECTED] ha scritto:
Due piccole "migliorie" (a me piacciono di più ;-) ) e l'eliminazione
dell'on error.
Che fosse una pezza l'avevo dichiarato... :-)
1) a questa: if Tipo <> 0 Then
ho preferito: if isnumeric(Tipo2) then
in quanto nel primo caso zero è comunque un numero e quindi deve
essere copiato...a meno che vuoi trattarlo come caso particolare
Funzionano entrambe! Ma isnumeric mi sembra più corretto.
2) a questo pezzo: <code> For g = Val(e) to Val(f) ' Inizia il ciclo
rifa: ... if Tipo = "" or Tipo2 = "" then ' se è vuota passa ' alla
riga successiva g = g+1 goto rifa end if </code>
ho preferito: <code> For g = Val(e) to Val(f) ' Inizia il ciclo ...
Anche "rifa:" è un brutto espediente... meglio la tua soluzione!
3) Per quanto riguarda l'errore: in verità, ti avevo già dato la
dritta di dove andare a mettere il codice per gestire eventuali
stringhe (guarda nei commenti...per una volta che mi ero messo a
scriverli!!! ;-) )
La macro l'avevo ben guardata,,, commenti compresi!
Ma la complessità è piuttosto alta e non tutto è semplice come può
sembrare...
Gli ho fatto colorare di rosso lo sfondo della cella, puoi fare
quello che ritieni più opportuno.
Ottimo! Credo gli aggiungerò uno stop; e l'utente potrà scegliere se
proseguire o fermarsi a controllare l'anomalia...
(perché indubbiamente si tratta di una anomalia...)
Ma sul codice completo che hai postato ci deve essere un qualche refuso
che al momento non riesco ad individuare...
Funziona tutto ad eccezzione dei numeri in formato testo positivi...
cioè quello che invece funzionava perfettamente! :-)
Li converte in zeri.
Io purtroppo sto per scappare e sarò fuori fino a mercoledì sera.
Se al mio rientro non trovo buone nuove cercherò di sistemarlo.
ciao Emanuele e grazie.
Bart
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
