Modificación de Salida (va dirigida a Dante Amor)
Buenas tardes Dante, te solicito en el formulario de salida, modificar la busqueda que sea a traves del "Código", si podes dejarle también que lo busquen por "Denominación" seria buenísimo.-
Te mando por correo el ultimo archivo
1 respuesta
Respuesta de Dante Amor
1
Esta es la macro para buscar también por código en la parte de salidas
Private Sub ComboBox3_Change()
'Por.DAM
If buscar = True Then Exit Sub
If ComboBox3 <> "" Then buscar = True
Label11 = ""
TextBox5 = ""
ComboBox1 = ""
'buscar = False
If ComboBox3 = "" Then Exit Sub
'limpiarnota
Set b = Hoja1.Columns("A").Find(Val(ComboBox3))
If Not b Is Nothing Then
ComboBox1 = Hoja1.Cells(ComboBox3.ListIndex + 2, "B")
Else
MsgBox "Código no existe"
buscar = False
Exit Sub
End If
Set b = Hoja6.Columns("A").Find(Val(ComboBox3))
If Not b Is Nothing Then
Label11 = Hoja6.Cells(b.Row, "B")
Else
MsgBox "El código no tiene existencias"
limpiar
ComboBox3 .SetFocus
buscar = False
Exit Sub
End If
buscar = False
End Sub
