Foro Excel

Sub RecorreCeldas()
Dim RangoDefinido As Range
tengo la siguiente macro que ejecuta un for each para recorrer celdas de exel
Set RangoDefinido = Range("a2:d5") '>Define Rango

For Each xcelda In RangoDefinido '>Recorre Rango

If xcelda.Value = "" Then
xcelda.Interior.Color = -1000
Else
xcelda.Interior.Color = 1000
End If

Next
End Sub

tal como esta funciona recorriendo las celdas a2:d5. lo quisiera es que el rango sea variable, es decir que yo le pueda poner al principio de la macro a traves de 2 inmputbox cual es la 1ra celda y cual es la segunda celda y no lo logro. si alguien ne ayuda desde ya gracias

He copiado literalmente tu Macro en un Módulo.
Lo hice correr con F5 y funciona
lo hice correr con F8 y va funcionando.
Le agregué xcelda al next de cierre del bucle y funciona
se lo saqué y siguió funcionando.
La verdad ...no sé que decirte.
hasta pronto

Aqui va mi aportación, solamente que en vez de dar el rango con inputbox, lo que tienes que hacer es seleccionar el rango y despues correr la macro.






Atte. Alberto Martinez
Albertomarher@todito.com

Hola gnano:

Te envió un archivo tal como lo pides solo hice una pequeña corrección
a tu código, espero que sea lo que necesitas, si no es así­ házmelo saber
para ver que mas podemos hacer por ti.

muchas gracias a quienes respondieron. Ya los voy a probar. Saludos y suerte