Aneudys Martinez

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()...

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...

Puedes mostrar una imagen de la hoja o decirmos que tiene es la celda a13 Suponiendo que en la celda a13 exista una palabra como "nada" Podrías usar algo como estos Range("a13").Select Do While ActiveCell <> "" If ActiveCell = "nada" Then Exit Sub...

Lo puede conseguir de la siguiente manera Presiona alt + f11 te lleva al editor vba Inserter un modulo y copia esta macro Sub copiarhoja( ) valor = Range("g1").Text if range("g1") <> "" then Worksheets(valor).Copy after:=Worksheets(Worksheets.Count)...

sub buscar() valor = range("a1").value Set h = Sheets("BD") Set b = h.Columns("A").Find(valor) If Not b Is Nothing Then range("a3") = h.Cells(b.Row, "B") range("a4") = h.Cells(b.Row, "C") range("a5") = h.Cells(b.Row, "D") range("a6") = h.Cells(b.Row,...

Lo puedes consegir con una busqueda De esta manera Set h = Sheets("results") Set b = h.Columns("B").Find(combobox1) If Not b Is Nothing Then If b = comboBox1.Value Then Workbooks("hoja2").Activate Cells(3,3) = h.Cells(b.Row, "c") end if end if Si te...