Adriel Ortiz Mangia

H o l a prueba esto, para que le considere como numero a los textbox pon VAL Private Sub TextBox11_Change() TextBox12 = (Val(TextBox11) / 100) * Val(TextBox9) '(Aquí es donde me da el error) TextBox13 = Val(TextBox9) - Val(TextBox12) TextBox9 =...

h o l a ¿Deseas eliminar la fila o los datos de la celda?, si pones una imagen de tus datos sería genial

H o l a te paso la macro, suma ambas columnas y pone el resultado en el rango indicado Sub sumar() '//Por Adriel Set h1 = Sheets("Hoja1") u = h1.Range("A" & Rows.Count).End(xlUp).Row If u < 3 Then u = 3 ' sum1 =...

H o l a Te paso la macro En esta línea cambias las celdas para el nombre nomb = [A1] & "-" & [A2] & "-" & [A3] la macro Sub Guardarpdf() Application.ScreenUpdating = False ' ruta = ThisWorkbook.Path & "\" nomb = [A1] & "-" & [A2] & "-" & [A3] '...

Puedes concaternar con la siguiente fórmula =HIPERVINCULO(CONCATENAR(A1,B1))

h o l a Como estas usando Option explicit ¿Has declarado la variable total?

H o l a Cierra el archivo o cierra sesión. Luego selecciona tu archivo, y presiona la tecla Shift y has clic derecho: ejecutar en modo solo lectura.

H o l a te paso la macro Sub sumar() '//Por Adriel Set h1 = Sheets("SA") u = h1.Range("L" & Rows.Count).End(xlUp).Row If u < 8 Then u = 8 Sum = Application.WorksheetFunction.Sum(Range("L8:L" & u)) h1.Cells(u + 1, "L") = Sum MsgBox "fin" End Sub...

H o l a prueba esto Private Sub ComboBox1_Change() TextBox1.Text = Val(ComboBox1) * Val(ComboBox2) End Sub Private Sub ComboBox2_Change() TextBox1.Text = Val(ComboBox1) * Val(ComboBox2) End Sub en el combo de descuento debes de poner 1.10; 1,15;...

h o l a te paso la macro Private Sub CommandButton1_Click() If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub Set h1 = Sheets(ComboBox1.ListIndex + 1) u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(u, "A") = ComboBox1 h1.Cells(u,...