Aneudys Martinez

prueba eliminarndos los select Ejemplo Donde dices [B50].Select ActiveCell.Interior.ColorIndex = 2 'color blanco [B56].Select ActiveCell.Interior.ColorIndex = 2 'color blanco usa de estas manera [B50].Interior.ColorIndex = 2 'color blanco...

Si lo puedes conseguir con estos En el evento open del thisworkbooks Application.Visible = False Pero tiene que tener en cuenta crear un botón alterno para visualizer el libro nuenvamente Por si un día quieres ver el libro como estas o hacer algunas...

Usa estos para carga hora al textbox del formulario TextBox1 = Format(Range("a1"), "hh:mm:ss") Si te silve no olvides valortar para cerrar la pregunta

De la siguiente manera lo puede conseguir presiona alt + f11 Luego inserta un modulo En el modulo pega estas macro Sub InsertarFilasConFormato() Range("a9").Select Dim numFilas As Long numFilas = Range("C5").Value 'Validar si el número de filas...

Prueba de la siguiente manera Presiona alt + f11 esto et lleva al editor de vba Luego inserta un modulo En el modulo pega estas macros Sub ActualizaHora() Range("A1").Value = Time DisparaActualizador End Sub Sub DisparaActualizador()...

Probaste lo inverso osea 0 + X = 7 lo inverso seria 7 - 0 = X 8 + x = 7 lo inverso seria 7 - 8 = X 9 + ? = 7 lo inverso seria 7 - 9 = X

En la pestaña archivo elige la opciones Te mostrara una venta en ella elije avanzada Y el ella busca una opción que dice algo así Mostrar cero cuando la su valor sea cero y desmarca y listo

Si estas usando un userform Seria desde el evento Initialize Private Sub UserForm_Initialize() TextBox1.SetFocus End Sub Si te silve no olvides valorar para cerrar la pregunta

Lo que solicitas es que se copie la hoja "prestaciones" y que a esta hoja se le cambien el nombre por la del listado que tiene osea Juan Pedro María ... Si es así seria de esta manera Sub Copi_Hoja_Modelo() Application.ScreenUpdating = False Dim...

Es en un userform O desde una hoja que realiza las pregunta Si es desde un userfor puedes usar algo asi en el evento afterupdate Private Sub TextBox3_AfterUpdate() If TextBox3 = "no" Then TextBox4.Locked = True TextBox5.SetFocus End If End Sub Esto...