Sobre Código

01/09/2006 - 00:32 por Josema | Informe spam

He puesto el siguiente código a un botón:

Sub ColorEmpty()
LastRow = Range("A65536").End(xlUp).Row
For i = 1 To LastRow
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Resize(1, 10).Interior.ColorIndex = 5
End If
Next i
End Sub

y efectivamente cuando dejo alguna fila sin poner datos y pulso el botón
pone en color la fila en la que faltan los datos, pero me gustaría que
cuando la relleno volviera a ponerse normal ¿cómo podría conseguirlo?
El código esta sacado de Excel Macros y VBA. Trucos esenciales. Anaya.
Un saludo
Josema

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Héctor Miguel

03/09/2006 - 05:04 | Informe spam

hola, Jose !

... cuando tengo ya introducido el codigo y coloreadas las celdas correspondientes no funciona, no las pone en blanco de nuevo.
El tema seria poner en blanco de nuevo una vez que se rellenan los espacios, pero no lo hace...

podrias comentar sobre que rango necesitas aplicar esta des/re/coloracion ?
y/o si 'tienes' a la aplicacion en modo de re/calculo en manual ? [prueba a ponerlo en automatico]
y confirmar si la condicion es -solamente- cuando de introduzcan/borren datos en la columna 'A' ?
y comentar cual es la formula que estas aplicando ? [la 'sencilla' ?... la de numeros ?... la de textos ?] -?-
[y de pasadita... si estas combinando tambien el uso de codigos ?]

comentas [si hubiera] algun detalle mas... 'significativo' ?
saludos,
hector.

Responder a este mensaje

#7 Josema

03/09/2006 - 13:40 | Informe spam

Héctor, te envío un ejemplo de lo que quiero, por qué es sencillo de ver y
sería casi imposible de explicar. Me cuentas si te llego, puse acuse de
recibo, espero no tengas problema.
Saludos y gracias
Josema

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida