RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:	55465 - UNIR DOS SENTENCIAS DE VBA EN UNA
Autor:	josé perez coteron
Tengo una hoja de Excel con un checkbox y quiero que al marcar éste, se ilumine intermitentemente la celda donde se encuentra el checkbox y al mismo tiempo grabe los valores en las celdas correspondientes. Cada sentencia por separado me funciona pero no sé como juntarlas. ILUMINACION CON INTERMITENCIA Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Const Rango As String = "B6" Private Const Mensaje As String = "IIIIIIIIIIIIIIIIIIIIIIIII" Private Sub CheckBox1_Click() Dim Celda As Range Set Celda = Range(Rango) With Celda .Font.Color = &HFF& Do While CheckBox1.Value DoEvents .Value = IIf(.Value = Mensaje, "", Mensaje) Sleep 80 Loop .Value = "" End With End Sub GRABACION DE VALORES EN LAS CELDAS Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("C118").Value = 180 Range("C136").Value = 180 Range("C154").Value = 180 Range("C172").Value = 180 Range("C190").Value = 180 End If End Sub gracias