Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Sobre Código

01/09/2006 - 00:32 por Josema | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Francisco Parrilla
01/09/2006 - 02:29 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :