Ayuda con ejecutar macro si cambia color en celda

14/10/2005 - 21:15 por Sago | Informe spam
Espero que alguien me pueda ayudar necesito correr una macro si el color de
la celda cambia, hice este pequeño codigo y no me hace nada cuando yo cambio
el color de la celda.



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Excel.Range)



If Range("A5") = Interior.ColorIndex = 5 Then
Call CARTERA_BALANZA_BASICA_2
End If


End Sub


Saludos y muchas gracias por anticipado.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
14/10/2005 - 23:33 | Informe spam
hola, Sago !

Espero que alguien me pueda ayudar necesito correr una macro si el color de la celda cambia
hice este peque#o codigo y no me hace nada cuando yo cambio el color de la celda.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Range("A5") = Interior.ColorIndex = 5 Then
Call CARTERA_BALANZA_BASICA_2
End If
End Sub



1) como te comentaba en tu consulta anterior...
[hasta donde se]... no existe ningun evento que 'detecte' cambios a los formato de las celdas :(
[supongo que] tendria que suceder tanto el cambio de color como la ejecucion de la macro de 'otras' cuestiones -?-

2) el codigo que expones [y que has colocado en el modulo del libro] se auto-ejecuta [es decir este evento sera 'lanzado']...
-> cuando se MODIFIQUE alguna celda en cualquier hoja [NO cuando se le aplique un formato distinto] :(
-> ademas, toma en cuenta que SI la hoja 'apicable' es la que 'sufre los cambios'...
-> la macro que llamas sera ejecutada 'tantas veces' como eventos de cambio ocurran en 'esa' hoja <= OJO

3) creo que sera mejor si comentas/expones el 'como' haces la consulta a la pagina web [la que cambia el color de la celda] :)

saludos,
hector.
Respuesta Responder a este mensaje
#2 Héctor Miguel
14/10/2005 - 23:41 | Informe spam
hola, [de nuevo] Sago !

complementando con una 'ligera' observacion al codigo que expones... modifica la linea del If...
de -> If Range("A5") = Interior.ColorIndex = 5 Then
a -> If Range("A5").Interior.ColorIndex = 5 Then

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida