Aneudys Martinez

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

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