Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Non mi funziona questa macro.

0 views
Skip to first unread message

joshua

unread,
Nov 20, 2003, 12:36:29 PM11/20/03
to
Ho questa macro con non funziona.
Non riesco a capire il perchè non mi esegue la if.
nella cella 7 (quindi col g) ho scritto 5.50.00 quindi
andando a fare la if mi dovrebbe scrivere 5.50.01
Bypassa la if come se la condizione non fosse vera.
Perchè?
ciao


Application.ScreenUpdating = False
turno = 0.243055555555556 '5.50
uRiga = Cells(Selection.SpecialCells(11).Row + 1, 1).End
(xlUp).Row
r = uRiga + 1
Do
r = r - 1
If Cells(r, 7) = turno Then Cells(r, 7) = 0.24306712962963
Loop Until r = 2
End Sub

Enzo Samarelli

unread,
Nov 20, 2003, 1:13:50 PM11/20/03
to

Mi riferisco a:

>Ho questa macro con non funziona.
>Non riesco a capire il perchè non mi esegue la if.
>nella cella 7 (quindi col g) ho scritto 5.50.00 quindi
>andando a fare la if mi dovrebbe scrivere 5.50.01
>Bypassa la if come se la condizione non fosse vera.
>Perchè?

eeeeeeeeeeeeeeeeeeeee
Purtroppo, o per combinazione, il numero seriale del tuo
orario e' un numero periodico. Le classiche 15 cifre
significative che tu vedi, non rappresentano esattamente
il valore di Cells (r,7). Cioe' il Valore reale, benche'
alla vista sembri uguale a turno, in realtà non lo e'.
il confronto e' opportuno che sia fatto con:

If Round(Cells(r, 7), 15) = turno Then Cells(r, 7) =
0.24306712962963
in maniera da bypassare anche i numeri periodici!!!
(sei proprio ..... sfortunato!!!)
enzo
eeeeeeeeeeeeeeeeeeeee


joshua

unread,
Nov 20, 2003, 2:27:43 PM11/20/03
to
ciao,
ma a te funziona?
>-----Messaggio originale---
>.
>

joshua

unread,
Nov 20, 2003, 2:28:44 PM11/20/03
to
mi da errore run time 13
tipo non corrispondente.c
ciao
>-----Messaggio originale---
>.
>

Joshua

unread,
Nov 20, 2003, 2:38:53 PM11/20/03
to
ciao,
scusa funziona.
avevo provato la macro inserendo nel mio foglio xls solo
degli orari sulla cella (7).
Inserendo invece dei valori nelle cella della colonna A
invece funziona.
Perchè?
ciao
pS. 6 forte
>-----Messaggio originale---
>.
>

Enzo Samarelli

unread,
Nov 20, 2003, 6:09:57 PM11/20/03
to

"Joshua" <anon...@discussions.microsoft.com> ha scritto nel messaggio
news:014801c3af9d$ee219390$a501...@phx.gbl...

ciao,
scusa funziona.
avevo provato la macro inserendo nel mio foglio xls solo
degli orari sulla cella (7).
Inserendo invece dei valori nelle cella della colonna A
invece funziona.
Perchč?

eeeeeeeeeeeeeeeeeeeeeeeeeeeee
Perchč l'ultima riga uRiga č ricercata sulla colonna A:


uRiga = Cells(Selection.SpecialCells(11).Row + 1, 1).End
(xlUp).Row

Cells(....,1)=colonnaA
enzo
eeeeeeeeeeeeeeeeeeeeeeeeeeeee


0 new messages