Celdas intermitentes dependiendo si hay contenido en ellas
Como podría hacerle si tengo las celdas Q5 a Q16 las cuales voy a utilizar para comentarios si hay algo escrito parpade la celdas en señal que algo anda mal
1 respuesta
Respuesta de Abraham Valencia
No me termina de convencer, pero prueba con algo así en el modulo de tu hoja:
Option Explicit Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Worksheet_Change(ByVal Target As Range) Dim x As Integer If Intersect(Target, [Q5:Q16]) Is Nothing Then Exit Sub Else For x = 1 To 52 Target.Interior.ColorIndex = x Sleep 100 DoEvents Next x End If End Sub
Comentas
Abraham Valencia
Al correr la macro me pide dar un nombre al ponerlo me manda al programa pero no lo corre.
No me queda claro que te está ocurriendo pero me parece que pusiste ese código en un módulo "normal" y si relees verás que te comenté que lo coloques en el modulo de la hoja. ¿Es eso?
Abraham Valencia
