Quitar Duplicados

[Rafa3412]

Hola,
Tengo el siguiente codigo que funciona perfecto, pero no se como hacer para que no me muestre los duplicados.

Slds,

Rafa
Private Sub CommandButton1_Click()
'Si existe algún error se...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! Rafa3412.
Te sugeriría que leas -en la parte superior de esta misma página- la regla 2 del Foro, pues sin un archivo de Excel que acompañe tu pregunta es un tanto difícial comprender...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Rafa3412]

Perdon, olvide adjuntarlo.

Desde el menu pinchamos en actualizar oferta, nos va a la pagina de archivo y nos sale un combobox con todos los datos pero quisiera que salgan sin duplicar. El archivo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ioyama]

Hola Rafa3412

Te adjunto una modificación de uno de los archivos de mi baúl .xls

El fichero original lo preparó el compañero p@li hace algún tiempo. Sirve tanto para Combobox (es lo que va en el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Rafa3412]

Hola,

Muchas gracias, funciona, pero no se como acoplarlo en el archivo que tengo ya que necesito los botones de aceptar y cancelar para seleccionar el dato que seleccione.

slds,

Rafa

 

[joseA]

En el caso de UserForm_Activate, sustitúyase:

Me.cmbLista.RowSource = "clientes"

Por:

Call CargarCombo

Añada las siguientes líneas:

Private Function...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Rafa3412]

Muchisimas gracias, ahora si que va bien, y puedo utilizar el dato seleccionado.

Gracias otra vez.

 

[joseA]

:lol: Ok, abrazos.

 

[Marcos1309]

Hola buenas noches soy nuebo por aqui y ando llenandome de conocimiento, he estado diseñando un pequeño archivo para control de inventarios, pero me pasa lo siguiente, en mis formularios tengo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

.
Hola! Marcos. Reemplaza lo que tienes por lo siguiente:

Private Sub ComboBox1_Enter()
With Hoja2
  .Range("a1").CurrentRegion.Columns(3).AdvancedFilter _
    2, "", .Range("z1")...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí