Variables para varios comboboxs relacionado con textboxs que ejecutan la sustracción de cantidad de artículos
publicado
Hola a todos, es mi primer tema en el foro.
En el Libro1 tiene un formulario que simula una factura, el cual, en la columna “Código” del artículo posee varios Combos.
El usuario al seleccionar el primer combo (ComboBxCod1), coloca una cantidad X en la columnaCantidad (TextBxCant1) que al momento de “Guardar”, me resta al saldo disponible de la columna “Cantidad” hoja “ARTICULOS” del Libro2, así que de esa manera arroja el resultado efectuado por el código de la macro que adjunté, hasta este punto funciona bien. El problema es: los otros combos y no sé cuál es la instrucción para estas variables que esté relacionado con varios textboxs para poder restar la cantidad de artículos al libro2 de forma automática, por ejemplo: ComboBxCod1 --> TextBxCant1
ComboBxCod2 --> TextBxCant2
ComboBxCod3 --> TextBxCant3
ComboBxCod4 --> TextBxCant4
El siguiente código solo funciona para el ComboBxCod1:
Private Sub ButtonGuardar()
Application.ScreenUpdating = False
Set h1 = Workbooks("Libro2.xlsm").Sheets("ARTICULOS")
Hola a todos, es mi primer tema en el foro.
En el Libro1 tiene un formulario que simula una factura, el cual, en la columna “Código” del artículo posee varios Combos.
El usuario al seleccionar el primer combo (ComboBxCod1), coloca una cantidad X en la columna Cantidad (TextBxCant1) que al momento de “Guardar”, me resta al saldo disponible de la columna “Cantidad” hoja “ARTICULOS” del Libro2, así que de esa manera arroja el resultado efectuado por el código de la macro que adjunté, hasta este punto funciona bien.
El problema es: los otros combos y no sé cuál es la instrucción para estas variables que esté relacionado con varios textboxs para poder restar la cantidad de artículos al libro2 de forma automática, por ejemplo:
ComboBxCod1 --> TextBxCant1
ComboBxCod2 --> TextBxCant2
ComboBxCod3 --> TextBxCant3
ComboBxCod4 --> TextBxCant4
El siguiente código solo funciona para el ComboBxCod1:
Private Sub ButtonGuardar()
Application.ScreenUpdating = False
Set h1 = Workbooks("Libro2.xlsm").Sheets("ARTICULOS")
Set r = h1.Columns("A")
Set b = r.Find(ComboBxCod1, lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(b.Row, "J") = h1.Cells(b.Row, "J") - CDbl(TextBxCant1)
End If
Workbooks("libro1.xlsm").Activate
Sheets("INICIO-FACTURAR").Select
End Sub
De igual forma, adjunto un archivo de muestra para más detalles.
De antemano, muchas gracias.
Saludos!
combos.rar