Dante Amor

H o la: Yo pondría el código en el botón Modificar, de esa forma, primero se copia el registro antes de ser actualizado, para tener el historial y después se realiza el cambio. Prueba y me comentas: Private Sub CommandButton2_Click() 'Por.Dante Amor...

H o la: Supongo que vas a seleccionar el nuevo fabricante en el combobox3 y después presionar u un botón. Te anexo el código para el botón: Private Sub CommandButton2_Click() 'Por.Dante Amor 'reemplazar el fabricante If ComboBox3 = "" Or...

H o l a : Te anexo el código para buscar. Por lo que revisé en tu código, solamente realiza la búsqueda si el combobox1 = "TELE" Private Sub ComboBox2_Change() 'Act.Por.Dante Amor If ComboBox1 = "TELE" Then If ComboBox2 = "" Then Exit Sub Set h =...

H o la: Hay que verificar en el combobox1 y combobox2 si tienen un dato de la lista. Se verifica con esta instrucción: If ComboBox1.ListIndex = -1 Then Exit Sub Quedaría así en los eventos del combobox1 y combobox2: Private Sub ComboBox1_Change()...

Quedaría así con statusbar, te va a aparecer un mensaje en la esquina inferior izquierda de excel. Sub macro() Application.StatusBar = False num_hojas = ActiveWorkbook.Worksheets.Count num_celdas = Range("G81:P111,Z81:AK111").Count num_h = 1 num_c =...

Dime los siguientes datos. Del libro "STOCK DISP PANL", hoja "Hoja3". ¿Cuál rango hay que copiar? Dime: Fila inicial, columna inicial, fila final, columna final. En dónde exactamente se tiene que pegar: libro "Stock Disponible y Rotacion", hoja...

H o la: Envíame tu archivo para revisar cómo tienes los datos y cómo quieres pasar la información en la siguiente hoja, o ahí en las hojas, me explicas con comentarios qué quieres realizar. Mi correo [email protected] En el asunto del correo escribe...

H o l a : Envíame tu último archivo con ejemplos de más de 4 datos. R ecuerda poner el nombre de usuario en el asunto.

H o la : Prueba con el siguiente código. Solamente te permite números y 6 dígitos. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor If TextBox1 = "" Then Exit Sub ' If Mid(TextBox1, 1, 2) > 24 Then MsgBox "Debe...

Te anexo el código actualizado Private Sub TextBox1_AfterUpdate() Set h = Sheets("Solicitudes Constitución") Set b = h.Columns("A").Find(TextBox1.Text, lookat:=xlWhole) If Not b Is Nothing Then TextBox2 = FormatCurrency(h.Cells(b.Row, "N"), 2)...