Condiciones IF

29/11/2006 - 03:06 por fernanda.peruana | Informe spam

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

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 Vinchenzo vinç

29/11/2006 - 20:11 | Informe spam

Hola,
deberás sustituir la sentencia:

case >15 and =< 30

por:

Case 16 To 30

Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

Responder a este mensaje

#7 J.P.

29/11/2006 - 21:00 | Informe spam

Buenas tardes Intenta con este codigo es el mismo que te han enviado
pero con algunas correciones y complementos

Dim celda As Range
For Each celda In Range("A1:A25000")
With celda
'elimino el color y el texto que tenian las celdas
.Offset(0, 1).Interior.ColorIndex = xlNone
.Offset(0, 1) = ""
'evaluo cada celda
Select Case .Value
Case 1 To 15
.Offset(0, 1).Interior.ColorIndex = 6 'amarillo
.Offset(0, 1) = .Value & "Mi Texto"
Case 16 To 30
.Offset(0, 1).Interior.ColorIndex = 3 'rojo
.Offset(0, 1) = .Value & "Mi Texto"
Case 31 To 45
.Offset(0, 1).Interior.ColorIndex = 5 'azul
.Offset(0, 1) = .Value & "Mi Texto"
Case Is >= 46
.Offset(0, 1).Interior.ColorIndex = 7 'magenta
.Offset(0, 1) = .Value & " Mi Texto"
End Select
End With
Next

On 28 nov, 21:06, wrote:

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