Sobre Código

Prueba estas lineas :)

Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
With Target
Cells(i, 1).Resize(1, 10).Interior.ColorIndex = xlNone
End With
MsgBox "evento change"
End Sub


Atte.
?T Francisco T?
http://groups.msn.com/ExcelVbaMacrosOffice

El verdadero buscador crece y aprende, y descubre que siempre es el
principal responsable de lo que sucede.
Jorge Bucay

La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
pared, el ignorante permanece tranquilo en el centro de la estancia.
Anatole France

Retira lo del msgbox al final :)

hola, jose !

He puesto el siguiente codigo a un boton:
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
... pero me gustaria que cuando la relleno volviera a ponerse normal...

haz una prueba seleccionando las 10 columnas 'A' y utilizando [desde menu] formato / formato condicional...
la siguiente formula: =esblanco($a1)
le aplicas desde el boton formato... la trama o color de relleno que quieras y... el cambio se hara automatico ;)

si necesitas que la trama o relleno de color o el formato que selecciones se aplique SOLO a filas del 'rango usado'...
-> cambia la formula a: =y(fila()<=coincidir(9e307,$a:$a),esblanco($a1)) [si los datos en la columna A son numeros]
o cambia la formula a: =y(fila()<=coincidir("zzzzzz",$a:$a),esblanco($a1)) [si los datos en la columna A son textos]

saludos,
hector.

Gracias Héctor, me ha venido como anillo al dedo este comentario.
Un saludo y muchas gracias.
Josema



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

hola, jose !

He puesto el siguiente codigo a un boton:
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
... pero me gustaria que cuando la relleno volviera a ponerse normal...

haz una prueba seleccionando las 10 columnas 'A' y utilizando [desde menu]
formato / formato condicional...
la siguiente formula: =esblanco($a1)
le aplicas desde el boton formato... la trama o color de relleno que
quieras y... el cambio se hara automatico ;)

si necesitas que la trama o relleno de color o el formato que selecciones
se aplique SOLO a filas del 'rango usado'...
-> cambia la formula a: =y(fila()<=coincidir(9e307,$a:$a),esblanco($a1))
[si los datos en la columna A son numeros]
o cambia la formula a:
=y(fila()<=coincidir("zzzzzz",$a:$a),esblanco($a1)) [si los datos en la
columna A son textos]

saludos,
hector.

Hector perdona que te moleste de nuevo, pero me he dado cuenta que funciona
al hacerlo como dices, pero cuando tengo ya introducido el código y
coloreadas las celdas correspondientes no funciona, no las pone en blanco de
nuevo.
El tema sería poner en blanco de nuevo una vez que se rellenan los espacios,
pero no lo hace.
¿se te ocurre alguna idea?
Un saludo y muchas gracias
Josema