esteban_pati

Elsa Matilde respondió: Agregá a continuación de las líneas que dejaste, estas otras: Case Else MsgBox "el material no se encuentra disponible" Exit Sub 'OPCIONAL: ver qué hacer End Select

calvuch respondió: prueba MsgBox Round([c8].Value, 2) En este ejemplo redondea a 2 decimales el contenido de celda C8

calvuch respondió: Prueba: MsgBox "Con el material existente en la bodega NO se puede realizar la cantidad solicitada. A la fecha el saldo de este material es: " & Sheets("material 1").Range("I" & Rows.Count).End(xlUp).Value, vbCritical

calvuch respondió: Prueba esto en tu useform Option Explicit Private Sub TextBox1_Change() If Len(Trim(TextBox1)) = 0 Then TextBox2 = "" TextBox2.Enabled = False Else TextBox2.Enabled = True End If End Sub Private Sub TextBox2_Change() If Len(Trim(TextBox2)) = 0 Then...

musclecee respondió: La toma excesiva de proteína puede afectar el riñón, siempre que tomes mucha alguna no tendrás problemas ya que lo tendrás filtrado. Hay gente que le gusta las proteínas altas como (90%) ectra. Yo tomo una del 80% y say sobrecargo menos el riñón, y a...

Abraham Valencia respondió: Pues usando los operadores matemáticos comunes y una previa instrucción para que el VBA sepa que son números (Textbox =Caja de texto... para VBA es texto): Textbox1 = Cdl(Textbox2) + cdbl(Texbox3) En lugar de "+" coloca lo que desees Abraham