Últimos mensajes - Powered by IBM

Palabras claves

Para HÉCTOR: Hacer la señal a la inversa

21/05/2004 - 22:21 por Jesús Román | Informe spam

Hola Héctor Miguel:
Llevo varios dias intentando darle la vuelta a esta Macro y no lo consigo,
hasta el punto de haberlo dejado ya por imposible.
Para que se entienda lo que quiero, que ya supongo que si... ahora seria al
contrario, que en lugar de 25 fuera -25 y para el caso de antes de que
hubiese negativos para no tener en cuenta las celdas posteriores, ahora
seria que hubiese positivos.

Espero no haberte liado...
Gracias.

Sub KilometrosHora25(ByVal i As Integer)
Dim Rango As String
Rango = "cn" & i + 1 & ":cn" & i + 12
If Range("cn" & i) > 25 And _
Evaluate("If(CountIf(" & Rango & ",""<0"")>0,Match(True," & Rango &
"<0,0),12)") < _
Evaluate("If(CountIf(" & Rango & ","">25"")>0,Match(True," & Rango &
">25,0),13)") Then
Call bordecelda("cn" & i, "grueso", "morado")
Call ponercomentario("25 Km/h. Vender", "cn", i)
Selection.Interior.ColorIndex = 15
If Range("cn3").Interior.ColorIndex = 15 Then
Range("d1").Interior.ColorIndex = 7
End If
End Sub

Sub PONERKilometrosHora25()
Dim i As Integer
i = 3
Do
If Range("D" & i) = "" Then Exit Do
Range("CN" & i).Select
Call KilometrosHora25(i)
i = i + 1
Loop
End Sub

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

22/05/2004 - 06:08 | Informe spam

hola, Jesús !

... ahora seria al contrario, que ... 25 fuera -25 y para el caso de ... negativos ... ahora ... positivos [...]

[pues, si entiendo bien...] 'ahora' seria [solo] cuestion de 'invertir' las 'comparaciones'...
[... ...] de...
If Range("cn" & i) > 25 And _
Evaluate("If(CountIf(" & Rango & ",""<0"")>0,Match(True," & Rango & "<0,0),12)") < _
Evaluate("If(CountIf(" & Rango & ","">25"")>0,Match(True," & Rango & ">25,0),13)") Then
[... ...] a...
If Range("cn" & i) < -25 And _
Evaluate("If(CountIf(" & Rango & ","">0"")>0,Match(True," & Rango & ">0,0),12)") < _
Evaluate("If(CountIf(" & Rango & ",""<-25"")>0,Match(True," & Rango & "<-25,0),13)") Then
[... ...]

¿comentas?
saludos,
hector.

p.d. disculpa por hacerte la siguiente 'observacion'...
[me parece que...] no es 'buena idea' pedir que responda 'alguien' =>en particular<= :((
[con seguridad...] 'alguien mas' tenga respuesta ANTES que el 'interpelado', pero... ¿responderia???

Responder a este mensaje

#2 Jesús Román

22/05/2004 - 09:23 | Informe spam

Buenos días Héctor Miguel !!
Pues sí, me funciona... el problema es que sigo sin saber el significado de
ambas líneas y eso a pesar de que se las condiciones que se han de dar en la
hoja para que la señal sea correcta. Eso me impidió poder darle la vuelta,
hasta el punto de probar cambios, supongo, que repitiéndolo mil veces pero
sin dar con el que tu has enviado. Quizás era mi falta de fe o cansancio. De
lo que si estoy seguro es que tarde o temprano sabré mucho mas de esto, pues
aun recuerdo cuando no me atrevía siquiera a modificar una simple macro...
la diferencia de eso a lo que consigo ahora, no lo hubiese imaginado ni en
sueños, aunque supongo que ha sido gracias a ellos.

Contar con la ayuda de personas geniales como tú, es una clarísima ventaja
de cara a un rápido aprendizaje, no pienso dejar pasar
Muchas gracias de nuevo Héctor Miguel!!!.

En cuanto al comentario de la posdata, tienes toda la razón, ni me había
planteado esa cuestión. Vi como otras personas hacían algo similar y copié
lo que ahora veo claramente que es un mal hábito y un desaprovechamiento del
máximo de posibilidades. Thx.

Sal2!!

"Héctor Miguel" escribió en el mensaje
news:%

hola, Jesús !

> ... ahora seria al contrario, que ... 25 fuera -25 y para el caso de ...

negativos ... ahora ... positivos [...]

[pues, si entiendo bien...] 'ahora' seria [solo] cuestion de 'invertir'

las 'comparaciones'...

[... ...] de...
If Range("cn" & i) > 25 And _
Evaluate("If(CountIf(" & Rango & ",""<0"")>0,Match(True," & Rango &

"<0,0),12)") < _

Evaluate("If(CountIf(" & Rango & ","">25"")>0,Match(True," & Rango &

">25,0),13)") Then

[... ...] a...
If Range("cn" & i) < -25 And _
Evaluate("If(CountIf(" & Rango & ","">0"")>0,Match(True," & Rango &

">0,0),12)") < _

Evaluate("If(CountIf(" & Rango & ",""<-25"")>0,Match(True," & Rango &

"<-25,0),13)") Then

[... ...]

¿comentas?
saludos,
hector.

p.d. disculpa por hacerte la siguiente 'observacion'...
[me parece que...] no es 'buena idea' pedir que responda 'alguien'

=>en particular<= :((

[con seguridad...] 'alguien mas' tenga respuesta ANTES que el

'interpelado', pero... ¿responderia???

Responder a este mensaje

#3 Individuo Desconocido

23/05/2004 - 10:36 | Informe spam

"Héctor Miguel" escribió...

p.d. disculpa por hacerte la siguiente 'observacion'...
[me parece que...] no es 'buena idea' pedir que responda 'alguien'

=>en particular<= :((

[con seguridad...] 'alguien mas' tenga respuesta ANTES que el

'interpelado', pero... ¿responderia???

: ) Los inconvenientes de la fama. Ayer en una fiesta comenté que estaba
suscrito a un foro de excel y alguien que me oyó me preguntó, ¿conoces a
Hector Miguel? :-)

Responder a este mensaje

#4 Jesús Román

23/05/2004 - 21:23 | Informe spam

Jeje... muy buena esa!!!
Me imagino la cara de sorpresa cuando le dijiste que si, jeje.
Bueno, que decir que me hubiese encantado asistir a esa fiesta. Para la
próxima avisa!!!

saludos

"Individuo Desconocido" escribió en el mensaje
news:

"Héctor Miguel" escribió...
>
> p.d. disculpa por hacerte la siguiente 'observacion'...
> [me parece que...] no es 'buena idea' pedir que responda

'alguien'

=>en particular<= :((
> [con seguridad...] 'alguien mas' tenga respuesta ANTES que el
'interpelado', pero... ¿responderia???
>

: ) Los inconvenientes de la fama. Ayer en una fiesta comenté que estaba
suscrito a un foro de excel y alguien que me oyó me preguntó, ¿conoces a
Hector Miguel? :-)

Responder a este mensaje

#5 Héctor Miguel

24/05/2004 - 08:28 | Informe spam

eso...
avisa !!! ;)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida