| 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 | |
| Respuesta: | Adolfo Diaz |
| Déjame entender. Si el formulario está en excel,desde EXCEL graba las macros de lo que deseas que el formulario haga. Luego puedes unirlas en una sola macro y todo te corre según lo planeaste. | |