Pregunta
Tengo una base de datos con 4000 renglones. En una columna hay solo 4 datos diferentes que quiero colocar en un combobox. Al agregarlos con AddItem se agregan los 4000 renglones.
Me puedes decir como extraer solo lo que se encuentre diferente, (¿Unique )?
De antemano... Gracias.
Me puedes decir como extraer solo lo que se encuentre diferente, (¿Unique )?
De antemano... Gracias.
1 Respuesta
Respuesta de César Mera
1
La instrucción para hacer eso es la siguiente:
Range("A1:A4001").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"B1"), Unique:=True
Tiene un inconveniente, el rango de destino debe estar ubicado en la misma hoja, una vez filtrados los datos utilizas el Additem sobre los datos filtrados... y listo.
Espero haber satisfecho tu inquietud, de ser así te pido el favor de valorar la respuesta de acuerdo con la calidad y oportunidad de la misma. De lo contrario e escribes y trataré de explicarme mejor.
Cordialmente,
cmera
Range("A1:A4001").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"B1"), Unique:=True
Tiene un inconveniente, el rango de destino debe estar ubicado en la misma hoja, una vez filtrados los datos utilizas el Additem sobre los datos filtrados... y listo.
Espero haber satisfecho tu inquietud, de ser así te pido el favor de valorar la respuesta de acuerdo con la calidad y oportunidad de la misma. De lo contrario e escribes y trataré de explicarme mejor.
Cordialmente,
cmera
