Como evitar seleccionar un dato del combobox que ya allá sido usado,

Tengo un proyecto que utiliza base de datos en hoja excel, y una userfom que contiene texbox y combobox, los combobox depende de un rango establecido en la hoja de excel, dicho rango pasa por una serie de condiciones para determinar los item a usar, mi problema radique en: al usar uno de los item del combobox, es decir paso el dato del combobox a un listbox, aun me sigue apareciendo el mismo dato en la lista desplegable del combobox. Quiero evitar usar un dato que ya procese o pase al listbox, pongo ejemplo:

el codico para el click es:

Private Sub pv_Click()
valor = pv.Value
Set busca = Sheets("control de viatico").Range("AA8:AA1000").Find(valor, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
monto.Value = Range(ubica).Offset(0, -17)
mivariable = Range(ubica).Offset(0, -18)
mivariable = Replace(mivariable, "SV-", "")
sv.Value = mivariable

End If
End Sub

Este código me permite introducir los datos correspondiente en los textbox y combobox

Para el rango que me aparecen en el desplegable uso este codigo :

Private Sub abo_Click() 'Prepara la lista desplegables par realizar un abono
Dim Rango, Celda As Range
pv.Enabled = True
sv.Clear
pv.Clear
sv = Empty
pv = Empty
monto = Empty
Sheets("CONTROL DE VIATICO").Visible = True
Sheets("CONTROL DE VIATICO").Select
Set Rango = Range("NPV")
For Each Celda In Rango
If Celda <> Empty Then pv.AddItem Celda.Value
Next Celda
pv.SetFocus
End Sub

Cabe destacar que el rango esta echo con el administrador de nombres de la hoja de excel.

Añade tu respuesta

Haz clic para o