Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Condiciones IF

29/11/2006 - 03:06 por fernanda.peruana | Informe spam
Ayuda Hacer una pregunta
Hola, a todos los foristas, tengo dos preguntas sencillas, pero no
logro el objetivo, espero me puedan ayudar:

Pregunta1. Un código, NO la opción de formato condicional, ya que son
como 20 condiciones diferentes, pero con lo siguiente es suficiente
para entender.

Si la Celda ("A1") es mayor que 15, pero menor ó igual que 30,
entonces que coloree la celda ("B1") de rojo.



Pregunta 2.

Si cualquier celda del Rango ("A1:A25000") es mayor que cero, entonces
en la celda de la derecha escriba el valor de la celda en cuestión y
el texto "Mi texto"

Es decir,si la celda A500 > 0
entonces en B500 escriba el Valor de A500&"Mi texto"


Es decir,si la celda A750 > 0
entonces en B750 escriba el Valor de A750&"Mi texto"


Espero me haya explicado, y que me puedan ayudar. De antemano muchas
gracias
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Peluchon
29/11/2006 - 14:34 | Informe spam
Para la cuestión 2 el método sería:

dim celda as range

for each celda in range("A1:A25000")
with celda
if .value > 0 then
.offset(0,1).text= .value & "Mi texto"
end if
end with
next

para la 1 seria una cosa parecida

dim celda as range

for each celda in range("A1:A25000")
with celda

select case .valu
case >15 and =< 30
.offset(0,1).interior.colorindex=3 ' este numero es
el que corresponde al rojo
case otra condición
.offset(0,1).interior.colorindex= otro número

end select
end with
next

ha escrito:

Hola, a todos los foristas, tengo dos preguntas sencillas, pero no
logro el objetivo, espero me puedan ayudar:

Pregunta1. Un código, NO la opción de formato condicional, ya que son
como 20 condiciones diferentes, pero con lo siguiente es suficiente
para entender.

Si la Celda ("A1") es mayor que 15, pero menor ó igual que 30,
entonces que coloree la celda ("B1") de rojo.



Pregunta 2.

Si cualquier celda del Rango ("A1:A25000") es mayor que cero, entonces
en la celda de la derecha escriba el valor de la celda en cuestión y
el texto "Mi texto"

Es decir,si la celda A500 > 0
entonces en B500 escriba el Valor de A500&"Mi texto"


Es decir,si la celda A750 > 0
entonces en B750 escriba el Valor de A750&"Mi texto"


Espero me haya explicado, y que me puedan ayudar. De antemano muchas
gracias

Preguntas similares

 

Busqueda sugerida :