Hola, tengo que realizar un calculo con Vba sin usar las celdas del excel, este calculo seria el siguiente, en el siguiente form:

 

En el contenedor de la izquierda tengo dos datos numerados hasta el 5...códigos de los item y la cantidad de ellos que me hace falta.

En el contenedor de la derecha tengo la siguiente dinamica... codigo del item, "los kilos" (se se calculan multiplicando el n°envases por el peso de los mismos, menos el sobrante), los N° envases, el peso de cada envase y el sobrante de cada item.

 

el caso es que he intentado realizar esta tarea ... pero no doy con la solución, intente con este código:

For Each ctrl In Me.Controls

    If TypeName(ctrl) = "TextBox" Then

        If InStr(1, ctrl.Name, "CnV") > 0 And ctrl.Text <> "" Then
            
             If CDbl(Controls(ctrl.Name).Value) = Cn1 Then
                DesV1 = KilosF1 + (DeVT1 + KgC1)
             End If
             If CDbl(Controls(ctrl.Name).Value) = Cn2 Then
                DesV2 = KilosF2 + (DeVT2 + KgC1)
            End If
             If CDbl(Controls(ctrl.Name).Value) = Cn3 Then
                DesV3 = KilosF3 + (DeVT3 + KgC1)
             End If
             If CDbl(Controls(ctrl.Name).Value) = Cn4 Then
                DesV4 = KilosF4 + (DeVT4 + KgC1)
             End If
             If CDbl(Controls(ctrl.Name).Value) = Cn5 Then
                DesV5 = KilosF5 + (DeVT5 + KgC1)
             End If
	End If
Next ctrl

pero no consigo el dinamismo que necesito...es decir, cuando indique el código del item y agregue la cantidad de envases y los kilos de estos (y el sobrante si aplica)... la cantidad de kilogramos obtenida debe sumarse a la cantidad mostrada en negativo en el contenedor de la izquierda, y así con cada item agregado en el contenedor de la derecha.

 

Quedo atento a sus comentarios...

 

descontar.xlsm

Como no te explique un poco mejor.

Pon un ejemplo de forma manual totalmente desarrollado y explicando de donde sale la información, si se obtiene de algún cálculo, si se introduce manualmente, si viene de alguna hoja,........

Hola... El cálculo viene del valor de una variable "Kilosf1"...  Los datos que están en el form son un ejemplo semejante a la variable... El objetivo de este userfom es de conocer cuantos kilos faltan de cada ítem en función a los ingresos realizados en la zona de la derecha. 

Hola... como replicar la siguiente dinámica con macros ?:

 

tengo en el lado izquierdo unos item y la cantidad que me falta y en el derecho los campos para indicar la cantidad de "esos" item y ver en tiempo cuantos me quedarían por agregar.

 

en este ejemplo ingrese un envase de 200 kilos de 122 y en el lado izquierdo se evidencia que ya no faltan 400 (como en la primera imagen)  sino 200 por ingresar.

 

este seria en el caso del item 324 en donde ahora faltan solo 50.

Que código permitiría la realización de esta tarea.

 

Posiblemente! Sobren las ayudas con el archivo, consideralo!

adjunto archivo..

descontar.xlsm

No está del todo claro que pretendes, ya que no explicas para que necesitas lo que has pedido, pero por lo que he entendido, yo lo enfocaría de esta forma.

A ver que tal.

Descontar (1).xlsm

Hace 7 horas, Antoni dijo:

No está del todo claro que pretendes, ya que no explicas para que necesitas lo que has pedido, pero por lo que he entendido, yo lo enfocaría de esta forma.

A ver que tal.

Descontar (1).xlsm 19 kB · 1 descarga

Hola, la idea es conocer cuantos kilos tengo que mezclar de cada Item (ingrediente) para cumplir con la formula. El archivo que adjuntas muestra una idea nueva y que no sabia que se podía hacer con Vba, por lo cual me surge esta pregunta:

 

por otro lado la funcionalidad que muestras acá es exactamente la expuesta... sin embargo... la curiosidad me embarga respecto a mi planteamiento original...

 

Agradecido por la atención, y por aumentar mi vista en cuanto a las posibilidades de Vba 

 

 

Revisa el adjunto.

En cuanto a tu planteamiento inicial, es inviable, a menos que nos metamos con módulos de clase para interceptar el evento Change de cada uno de los textbox y tratarlos como si fueran uno solo, y honradamente, a parte del engorro que supone, creo que tus conocimientos sobre programación y VBA no son suficientes en estos momentos como para abordar este tema.

Descontar (1) (1).xlsm

Editado el el 12 de febrero5 años por Antoni

Hola, aplique lo que me recomendaste @Antoni, el formato realiza la labor prevista, aprendí mucho adaptando tu planteamiento a la problemática presentada. puedes dar por cerrado el tema, mil gracias por el apoyo.

 

Mis disculpas por la demora en responder.

Editado el el 26 de mayo5 años por Romeo