Buenas noches

Les dejo un pequeño aporte para mostrar el color en celda activa de la Hoja1.

Espero les sea útil. Saludos.

Color en Celdas.zip

Hola enigma valla que interesante gracias por compartirlo..

Estimado gracias por el aporte!

Saludos

Un placer hermanos. Para servirles.

Debo acotar que este código fué proporcionado por un gran amigo llamado Eddy Marroquin a quien le debo mis inicios en las macros.

Un placer hermanos. Para servirles.

Debo acotar que este código fué proporcionado por un gran amigo llamado Eddy Marroquin a quien le debo mis inicios en las macros.

Con tu permiso!, una leve modificacion para evitar el FOR..., se podría hacer lo siguiente

On Error GoTo error1:
Me.Shapes("Resaltado").Delete
error1:
[/PHP]

Saludos

On Error GoTo error1

Shapes("Resaltado").Delete

error1:

Adelante hermano. Es para el gusto y modificación de ustedes.

De hecho en esta linea :

        .Line.ForeColor.SchemeColor = 11

la pueden cambiar por esta otra:

        .Line.ForeColor.SchemeColor = Application.WorksheetFunction.RandBetween(1, 15)

Para variar el color.

Otra opción mas

.Line.ForeColor.SchemeColor = VBA.Int(VBA.Rnd * 15)[/PHP]

Saludos