Fernando MG

Rafael Hernández respondió: No entiendo por qué abres un formulario para al presionar la X ¿? :- ) En cualquier caso mira de acomodar estas líneas de código: ThisWorkbook.Salir = True ActiveWorkbook. Save Application. Quit

Dante Amor respondió: Visita: Cursos de Excel y Macros ------------------------------------------------------------------------------------------- Esto es lo que encontré, espero que te sirva. Ejecuta la macro, los resultados en la hoja1: Sub...

Julián González Cabarcos respondió: De Excel no tengo ni idea pero quizá te pueda servir de inspiración. Dices que estás en un formulario. Pues si tengo un formulario, donde tengo una etiqueta que de momento tiene el fondo en blanco, un cuadro de texto llamado C(que estaría oculto) que...

Dante Amor respondió: Solamente otra manera de buscar el label y de poner el color: Private Sub CommandButton1_Click() Dim ct As Control, dato As String dato = "B10" For Each ct In Controls If TypeOf ct Is MSForms.Label And ct.Caption = dato Then ct.BackColor = &H80FF80...

Dante Amor respondió: Revisa el siguiente vídeo: https://www.youtube.com/watch?v=whowlh7SKKs&feature=youtu.be

Dante Amor respondió: Si tuviste relaciones con el condón roto, pero no estás segura si hubo eyaculación dentro de la vagina, entonces existe riesgo de embarazo. Revisen la manera adecuada de poner el condón, si el condón se coloca de manera adecuada no es posible que se...

Dante Amor respondió: En un módulo nuevo, pon lo siguiente: Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Actualiza tu código con lo siguiente: Private Sub CommandButton1_Click() Dim u As Long, i As Long u = Sheets("Anexo").Range("B100").End(xlUp).Row...

Julián González Cabarcos respondió: Suponiendo que el textbox se llame TextA ¿Has probado con Private Sub Form_Current() Me.TimerInterval = 10000 End Sub Private Sub Form_Timer() If IsNull([TextA]) Then DoCmd.Close acForm, "formulario1" End If End Sub