Dante Amor

H o l a: A propósito, te envié un archivo con el formulario que me pediste. Revisa vídeos en youtube sobre la creación de formularios, ahí encontrarás gran variedad, sobre todo que te explicarán paso a paso cómo crearlos. Por ejemplo:...

H o l a: Te anexo los cambios que debes poner en el código: With Application If IsNumeric(TextBox1) Then dato = Val(TextBox1) Else dato = TextBox1 End If strDescripcion = .VLookup(dato, PRODUCTOS.Range("A:C"), 2, 0) ' 'también te recomiendo que...

H o l a: Envíame tu archivo para revisarlo, explícame qué formulario abro y qué hago para que ocurra el problema. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “claudia lozano” y el título de esta pregunta.

Así quedaría: Private Sub TextBox1_Change() TextBox3 = Round(Val(TextBox1) * Val(TextBox4), 2) TextBox3 = Format(TextBox3, "$ #,000.00") TextBox2 = "" If Val(TextBox4) <> 0 Then TextBox2 = Val(TextBox1) / Val(TextBox4) End If End Sub ' Private Sub...

H o l a: Envíame tu archivo para revisarlo. Lo que entiendo es que vas a cargar en el listbox si encuentra el dato en las cualquiera de las columnas 1, 2, 3, 9, 10 u 11. ¿Es correcto? Luego, al presionar doble click sobre uno de los registros del...

H o l a: Pero si abres otra aplicación de excel, en automático el nuevo archivo de excel queda con el foco. O cómo abres el nuevo excel, ¿lo haces con una macro? Cómo abres el formulario, ¿le indicas que oculte la apliación? Prueba cambiando la...

H o l a: Por lo que comentas tienes una primera macro que modifica la celda. También tienes una segunda macro en el evento change de la hoja. Si lo que quieres es que la segunda macro no se ejecute cuando ejecutas la primera macro, entonces en la...

H o l a: Te anexo el código para que lo pongas en tu botón: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Eliminar registro If TextBox1 = "" Then MsgBox "Escribe un dato en el DNI", vbExclamation, "ELIMINAR REGISTROS" TextBox1.SetFocus Exit Sub...

H o l a: Todo el código se puede reducir a esto: If ComboBox2 = "January" And ComboBox1.Value = "Juan Pablo Mesa" Then TextBox11.Value = Worksheets("Presupuesto").Range("E8").Value TextBox12.Value = Worksheets("Presupuesto").Range("E9").Value...

H o l a: Para cambiar el tamaño de la letra tendría que se en un userform. En un formulario pon los siguientes controles: Dos Label, Label1 y Label2 Un command button En un módulo pon el siguiente código: Sub MostrarMensaje() 'Por.Dante Amor valor =...