magalo soft

Dante Amor respondió: Después de esta línea: 'Borrar registro Agregué esta línea: Application.OnTime Now + TimeValue("00:00:05"), "Borrar_Datos" En el módulo1 está la macro Borrar_Datos, tienes que poner los controles que quieras borrar: Sub Borrar_Datos()...

Dante Amor respondió: Agrega el siguiente código a tu botón de eliminar Private Sub btn_Eliminar_Click() 'Por.Dante Amor Set h1 = Sheets("tmp") If ListBox1.ListCount = 0 Then MsgBox "No hay registros a borrar" Exit Sub End If If ListBox1.ListIndex < 0 Then MsgBox...

Bicktor Fuentes respondió: Graciaas :v

jose urbaneja respondió: Si lo que quieres es ocultar toda la barra de herramientas, prueba poniendo esto en ThisWorkBook Private Sub Workbook_Open() ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)") End Sub

William Kennedy respondió: Tienes que crear la rutina para cada uno de los textbox y pegar el código en cada uno de ellos.

Dante Amor respondió: Te anexo un par de ejemplos Private Sub CommandButton1_Click() 'al consultar TextBox1 = Format(Range("B5"), "#0.00") End Sub ' Private Sub CommandButton2_Click() 'para guardar los cambios If IsNumeric(TextBox1) Then Range("B5") = CDbl(TextBox1) End...

Jaime Segura respondió: Private Sub CommandButton1_Click() fila = 1 uc = Hoja1.Cells(fila, 1).End(xlToRight).Column + 1 Hoja1.Cells(1, uc) = UserForm1.TextBox1.Value Hoja1.Cells(2, uc) = UserForm1.TextBox2.Value Hoja1.Cells(3, uc) = UserForm1.TextBox3.Value Hoja1.Cells(4,...

Dante Amor respondió: Te anexo el código. Cambia el 1 en la línea fila = 1 por el número de fila donde quieres poner el dato Private Sub CommandButton1_Click() ' fila = 1 uc = Hoja1.Cells(fila, Columns.Count).End(xlToLeft).Column + 1 Hoja1.Cells(fila, uc) =...

Dante Amor respondió: El detalle, es que si usas Val(Importe1) como el importe está formateado, ahora es un texto, entonces el val de un texto es cerro Primero se tiene que convertir el importe a número con Cdbl(Importe) Te anexo la macro con los cambios, cambia tu código...