Descuento al realizar venta vba

Jonathan Cardenas · 2016-03-11T17:32:01+00:00

Hola, a que te refieres cuando dices "descontar". quieres devolver algun valor?

publicado el 11 de marzo9 años

Cordial saludo,

soy bastante nuevo en este medio de programacion, pero inicie un pequeño proyecto para una pequeña empresa la cual solo requiere lo basico que es ingreso mercancia, ventas, consultas; ya estan realizadas con formularios, lo que pasa es que no he podido realizar que en el formulario ventas cuando acepte la venta, me descuente automaticamente el valor de la tabla productos.

ya busque foros de este tema sin resultados positivos.

agradesco su ayuda.

prueba.zip

publicado el 11 de marzo9 años

Hola, a que te refieres cuando dices "descontar".

me descuente automaticamente el valor

quieres devolver algun valor?

publicado el 11 de marzo9 años

Autor

me explico, que cada vez que ejecuto el formulario de ventas, en el campo de cantidades que estoy digamos asi vendiendo se descuente de la tabla productos, digamos un ejemplo estoy vendiendo 5 anillos y tengo en existencia 10, despues de la venta que apareza en existencia 5.

de ante mano muchas gracias

publicado el 11 de marzo9 años

Este codigo trabaja.

Private Sub CommandButton1_Click()

Dim fila As Integer

Dim rng As Range


For fila = 2 To 10000

    If Hoja2.Cells(fila, 1) = "" Then

    Hoja2.Cells(fila, 5) = TextBox1.Text

    Hoja2.Cells(fila, 1) = TextBox2.Text

    Hoja2.Cells(fila, 2) = TextBox3.Text

    Hoja2.Cells(fila, 3) = TextBox4.Text

    Hoja2.Cells(fila, 4) = TextBox5.Text

    Hoja2.Cells(fila, 6) = TextBox6.Text

    Hoja2.Cells(fila, 7) = TextBox7.Text


    'borrar cantidad de productos

    Set rng = Sheets("productos").Range("b1:b" & Sheets("productos").Range("B" & Rows.Count).End(xlUp).Row)

    prod_col = Application.WorksheetFunction.Match(TextBox4.Value * 1, rng, 0)


    Sheets("productos").Cells(prod_col, "C") = Sheets("productos").Cells(prod_col, "C") - TextBox3.Value * 1


    MsgBox "Su venta se ha efectuado exitosamente!"

    TextBox1.Text = ""

    TextBox2.Text = ""

    TextBox3.Text = ""

    TextBox4.Text = ""

    TextBox5.Text = ""

    TextBox6.Text = ""

    TextBox7.Text = ""




    Exit Sub

    End If


Next


End Sub[/CODE]

publicado el 11 de marzo9 años

Autor

a ti si te funciono bien, mira que no me corre, me esta tirando error en esta linea

  Set rng = Sheets("productos").Range("b1:b" & Sheets("productos").Range("B" & Rows.Count).End(xlUp).Row)

    prod_col = Application.WorksheetFunction.Match(TextBox4.Value * 1, rng, 0)[/CODE]

publicado el 11 de marzo9 años

en cual de las dos lineas? tienes mas de un libro de excel abierto?

publicado el 11 de marzo9 años

trata con esto:

If TextBox4.Value = "" Then

   Else

    prod_col = Application.WorksheetFunction.Match(TextBox4.Value * 1, rng, 0)

    Sheets("productos").Cells(prod_col, "C") = Sheets("productos").Cells(prod_col, "C") - TextBox3.Value * 1

   End If[/CODE]

publicado el 11 de marzo9 años

Autor

mira el error se produce en la segunda linea que mencione anteriormente, y con ese codigo me tira un error similar que dice "se ha producido un error "5" en tiempo de ejecucion: argumentacion o llamada a procedimiento no valida. y subralla la misma linea mencionada.

prod_col = Application.WorksheetFunction.Match(TextBox4.Value * 1, rng, 0)

publicado el 11 de marzo9 años

tienes que asegurarte que estas usando un producto que ya este en la hoja "productos" col B. para evitar esto podriar poner

On Error Resume Next

    prod_col = Application.WorksheetFunction.Match(TextBox4.Text * 1, rng, 0)

    Sheets("productos").Cells(prod_col, "C") = Sheets("productos").Cells(prod_col, "C") - TextBox3.Value * 1

    On Error GoTo 0[/CODE]

publicado el 11 de marzo9 años

Autor

si estoy utilizando el valor adecuado, pero aun asi a mi como me indicas no me corre, claro que no entiendo esas lineas de codigo, si a ti te corre con mi archivo no sera mucha molestia de que lo subas funcionando y comparo desde aca que es lo que estoy fallando. gracias.

publicado el 11 de marzo9 años

usa este codigo, el cual usa un for loop . No puedo agregar archivo

Private Sub CommandButton1_Click()

Dim fila As Integer

Dim rng As Range


For fila = 2 To 10000

    If Hoja2.Cells(fila, 1) = "" Then

    Hoja2.Cells(fila, 5) = TextBox1.Text

    Hoja2.Cells(fila, 1) = TextBox2.Text

    Hoja2.Cells(fila, 2) = TextBox3.Text

    Hoja2.Cells(fila, 3) = TextBox4.Text

    Hoja2.Cells(fila, 4) = TextBox5.Text

    Hoja2.Cells(fila, 6) = TextBox6.Text

    Hoja2.Cells(fila, 7) = TextBox7.Text


    'borrar cantidad de productos

    Set rng = Sheets("productos").Range("b1:b" & Sheets("productos").Range("B" & Rows.Count).End(xlUp).Row)

   For Each prod In rng

        If prod.Value = TextBox4.Text * 1 Then

            Sheets("productos").Cells(prod.Row, "C") = Sheets("productos").Cells(prod.Row, "C") - TextBox3.Value * 1

            Exit For

        End If

    Next prod


    MsgBox "Su venta se ha efectuado exitosamente!"

    TextBox1.Text = ""

    TextBox2.Text = ""

    TextBox3.Text = ""

    TextBox4.Text = ""

    TextBox5.Text = ""

    TextBox6.Text = ""

    TextBox7.Text = ""




    Exit Sub

    End If


Next

End Sub[/CODE]

publicado el 11 de marzo9 años

Hola

Prueba con este a ver si te parece. Puedes colocar la variable en un modulo como publica:

Public Lin As Long

Y el procedimiento igualmente en un modulo o bien dentro del UserForm2:


Sub Descontar()
Lin = 2
    Do While Hoja1.Cells(Lin, 1) &lt;&gt; ""

    If UserForm2.TextBox2.Text = Hoja1.Cells(Lin, 1) Then
        Hoja1.Cells(Lin, 3) = Hoja1.Cells(Lin, 3) - UserForm2.TextBox3
    End If
    Lin = Lin + 1
Loop


End Sub

Saludos.

publicado el 11 de marzo9 años

P.D. Es bueno que implementes un procedimiento que consulte el stock del producto par que cuando realices la venta, no se ejecute si el la disponibilidad es menor que la cantidad a vender.

Saludos.

publicado el 12 de marzo9 años

Autor

hola Enigma25, mira que probe el codigo, pero una ves aceptada la venta se queda al parecer ilimitadamente mostrandome el mensaje "su venta se ha efectuado exitosa mente", acepto, vuelve aparecer el mismo cuadro de dialogo y asi sucesivamente ....

de todas maneras agradezco sus ayudas, y si, lo que mencionas de la disponibilidad, lo tendre en cuenta. gracias

pd declare la variable, e inserte el codigo, ami no me dio, si quizas a ti si con mi archivo si podrias subirlo seria de gran ayuda. gracias

publicado el 12 de marzo9 años

Autor

usa este codigo, el cual usa un for loop . No puedo agregar archivo

Private Sub CommandButton1_Click()

Dim fila As Integer

Dim rng As Range


For fila = 2 To 10000

    If Hoja2.Cells(fila, 1) = "" Then

    Hoja2.Cells(fila, 5) = TextBox1.Text

    Hoja2.Cells(fila, 1) = TextBox2.Text

    Hoja2.Cells(fila, 2) = TextBox3.Text

    Hoja2.Cells(fila, 3) = TextBox4.Text

    Hoja2.Cells(fila, 4) = TextBox5.Text

    Hoja2.Cells(fila, 6) = TextBox6.Text

    Hoja2.Cells(fila, 7) = TextBox7.Text


    'borrar cantidad de productos

    Set rng = Sheets("productos").Range("b1:b" & Sheets("productos").Range("B" & Rows.Count).End(xlUp).Row)

   For Each prod In rng

        If prod.Value = TextBox4.Text * 1 Then

            Sheets("productos").Cells(prod.Row, "C") = Sheets("productos").Cells(prod.Row, "C") - TextBox3.Value * 1

            Exit For

        End If

    Next prod


    MsgBox "Su venta se ha efectuado exitosamente!"

    TextBox1.Text = ""

    TextBox2.Text = ""

    TextBox3.Text = ""

    TextBox4.Text = ""

    TextBox5.Text = ""

    TextBox6.Text = ""

    TextBox7.Text = ""




    Exit Sub

    End If


Next

End Sub[/CODE]

Magdiel Adames tampoco me dio, como dije al principio, apenas me estoy envolviendo en el tema, pero agradezo sus intenciones, estare trabajandole.

pd el error me da similar al que te mencionaba anteriormente.

publicado el 12 de marzo9 años

hola Enigma25, mira que probe el codigo, pero una ves aceptada la venta se queda al parecer ilimitadamente mostrandome el mensaje "su venta se ha efectuado exitosa mente", acepto, vuelve aparecer el mismo cuadro de dialogo y asi sucesivamente ....
de todas maneras agradezco sus ayudas, y si, lo que mencionas de la disponibilidad, lo tendre en cuenta. gracias

pd declare la variable, e inserte el codigo, ami no me dio, si quizas a ti si con mi archivo si podrias subirlo seria de gran ayuda. gracias

Hola

Comenta el código que tenias anteriormente y llama el procedimiento con Call Descontar

publicado el 12 de marzo9 años

...Dejo el ejemplo de lo que trato de sugerir...

Prueba.zip

publicado el 12 de marzo9 años

Autor

ya lo prove y si descuenta, claro que me deshabilitaste la parte de guardar los datos en la hoja ventas, pero bueno eso lo soluciono. mil gracias =D

Tema solucionado

publicado el 12 de marzo9 años

Hola

Intenta con este.

Saludos.

Prueba.zip

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Fórmula para buscar con condición mayor/menor

Hola de nuevo,
Dando una vuelta al tema, he interpretado que quizá la solución que buscabas era otra. Si lo que buscabas era aflorar el concepto 'folio' partiendo del resto de variables, quizá el archivo adjunto te dé una idea de cómo abordar la solución.
He corregido algunos importes, para confirmar que la asignación recoja los resultados más probables.
Saludos,
Base 05 (C).xlsx

Por Victor7, · publicado el 16 de junio16 jun
Fórmula para buscar con condición mayor/menor

A ver, para no estar adivinando o caminando a ciegas por el problema, vamos a ir a lo seguro:
1º: Indicas en la columna B: "Aquí iría la fórmula". Bien, pues te sugiero que introduzcas a mano, en B3:B10 cuáles son los resultados que esperas en cada celda, y expliques cómo y/o por qué se llega a ellos.
2º: Aclara un poco esos significados de 'Factor común 1' y 'Variable por pesos o centavos', para entender cómo juegan en las diferentes resoluciones.
3º: También sería interesante saber cómo interpretar eso de 'ojito al tema porque estos importes entre archivos pueden variar entre el 10% mayor o menor al importe pago'. Para verlo claro, introduce algún ejemplo que fuerce esa diferencia y explica cómo hay que contemplarlo y en qué interfiere para la/s fórmula/s de la columna B.
4º: Y por último, elimina (suprime) todos los datos innecesarios para componer el resultado que buscamos: por ejemplo, ese 'Íd. crédito' de la columna A, ¿aporta algo? ¿No? Pues bórralo. Ídem de lo mismo para 'Nombre' (si no se necesita, bórralo también). Veo que las columnas L y N tienen los mismos contenidos. ¿Por qué no eliminamos una de ellas?
Todo lo que sea limpiar la pizarra de garabatos innecesarios, será bienvenido y agradecido.
Saludos,

Por Victor7, · publicado el 13 de junio13 jun
Fórmula para buscar con condición mayor/menor

Muy buen día esperando te encuentres de la mejor manera posible,

Ya revise el archivo, como tal no busco las diferencias, busco que en caso de tener un importe, un rfc o un nombre poder tarerme el folio de otro archivo, ojito al tema porque estos importes entre archivos pueden variar entre el 10% mayor o menor al importe pago,
Te comparto archivo mismo como lo mandas pero mas de como lo veo,
Base 05 (B).xlsx
Gracias

Por Enrique González Jiménez, · publicado el 13 de junio13 jun
Fórmula para buscar con condición mayor/menor

Hola a todos,
@Enrique González Jiménez , te dejo una idea de cómo abordar el problema: observa el archivo adjunto, que lleva en el bloque de la izquierda (rango A:E) los datos del primer archivo, y a la derecha (rango I:N) los del segundo archivo.
Como el único dato unívoco parece ser 'folio', he partido de ahí para componer la búsqueda de resultados. En la columna 'O' se obtiene el importe correspondiente al dato 'folio' (la columna 'E'), y en la columna 'P' se calculan las diferencias entre las columnas 'N' y 'O'. Supongo que esos datos son los que buscas.
Saludos,
Base 05 (B).xlsx

Por Victor7, · publicado el 13 de junio13 jun
Fórmula para buscar con condición mayor/menor

Muchas gracias bro, oye intente pero no lo logre la neta, te voy a compartir los archivos seria buscar dentro de el archivo base 05 los importes y afiliado que estan en el archivo listado para cruce con una tolerancia del 10% mayor y menor, pegue tu formula pero creo que me equivoque en algo porque me arroja todo como no encontrado, :(
BASE 05.xlsx Listado para cruce.xlsx

Por Enrique González Jiménez, · publicado el 11 de junio11 jun

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Descuento al realizar venta vba

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Fórmula para buscar con condición mayor/menor

Visualizado recientemente 0

Account

Navigation

Buscar