Rellenar labels con cantidades disponibles en formulario Traspasos.
Para Dante
Hola :
Me gustaría poder rellenar unos labels en mi formulario Traspasos con la cantidad que halla disponible en cada departamento para mejorar más si cabe mi formulario
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Para conocer el disponible, primero tienes que seleccionar los departamentos y después el código.
Private Sub CMB_COD_Change()
'Por.Dante Amor
If cargando Then Exit Sub
cargando = True
descripcion = ""
If CMB_COD.ListIndex = -1 Then
cargando = False
Exit Sub
End If
CMB_VOZ_TRAS = CMB_VOZ_TRAS.List(CMB_COD.ListIndex)
Set h = Sheets("TOTAL GENERAL")
Set b = h.Columns("A").Find(CMB_COD, lookat:=xlWhole)
If Not b Is Nothing Then
f = b.Row
For i = Columns("W").Column To Columns("AD").Column
If h.Cells(2, i) = CMB_DE Then
LBL_CANT_DE = h.Cells(f, i)
End If
If h.Cells(2, i) = CMB_A Then
LBL_CANT_A = h.Cells(f, i)
End If
Next
End If
cargando = False
End SubSal u dos
