Anónimo
Quiero ingresar conceptos con mi teclado en el programa Microsoft Excel y guardar automáticamente.
Ingresar el nombre, la cantidad y el precio de un producto desde el teclado y guardarlos respectivamente en A1, A2 y A3. Calcular el total y guardarlo en A4. Si el total es superior a los 10000 y el nombre del producto es "PATATAS", pedir un descuento, calcularlo el total descuento y guardarlo en A5, luego restar el descuento del total y guardarlo en A6. Por favor indicarme paso a paso en macros y visual basic
1 Respuesta
Respuesta de Eduard Caballero
1
Primero debes crear un formulario con 3 textbox y un command button.
Forma de hacerlo http://www.youtube.com/watch?v=oWA31kwpuEM
Luego colocas el siguiente codigo en el command buton
Sheets(1).Select 'Selecciona la hoja 1
Range("A1") = TextBox1 'Colocara en la celda A1 el lo que escribas en el textbox1
Range("A2") = CDbl(TextBox2) 'Colocara en la celda A2 el lo que escribas en el textbox1
Range("A3") = CDbl(TextBox3) 'Colocara en la celda A3 el lo que escribas en el textbox1
Range("A4") = CDbl(TextBox2 * TextBox3) 'Calcula el total
' Condicion para el calculo del descuento
If Range("A4") > 10000 And TextBox1 = "PATATAS" Then
MsgBox "Este producto tiene descuento"
desc = InputBox("Introduzca el porcentaje de descuento", Descuento)
Range("A5") = CDbl((desc / 100) * Range("a4"))
Range("A6") = CDbl(Range("A4") - Range("A5"))
End If
Forma de hacerlo http://www.youtube.com/watch?v=oWA31kwpuEM
Luego colocas el siguiente codigo en el command buton
Sheets(1).Select 'Selecciona la hoja 1
Range("A1") = TextBox1 'Colocara en la celda A1 el lo que escribas en el textbox1
Range("A2") = CDbl(TextBox2) 'Colocara en la celda A2 el lo que escribas en el textbox1
Range("A3") = CDbl(TextBox3) 'Colocara en la celda A3 el lo que escribas en el textbox1
Range("A4") = CDbl(TextBox2 * TextBox3) 'Calcula el total
' Condicion para el calculo del descuento
If Range("A4") > 10000 And TextBox1 = "PATATAS" Then
MsgBox "Este producto tiene descuento"
desc = InputBox("Introduzca el porcentaje de descuento", Descuento)
Range("A5") = CDbl((desc / 100) * Range("a4"))
Range("A6") = CDbl(Range("A4") - Range("A5"))
End If