Color en celda (hoja1)

[Enigma25]

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

[pajuma]

Hola enigma valla que interesante gracias por compartirlo..

[Gerson Pineda]

Estimado gracias por el aporte!

Saludos

[Enigma25]

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.

[Gerson Pineda]

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

[Enigma25]

On Error GoTo error1

Shapes("Resaltado").Delete

error1:

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

[Enigma25]

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.

[Gerson Pineda]

Otra opción mas

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

Saludos