Jump to content

Recommended Posts

Buenos días, 

Soy principiante y tengo mil dudas. Agradezco en primer lugar toda la ayuda.

He creado un conbobox y lo he rellenado con una lista utilizando las propiedades indicando el nombre de la lista en listfillrange y funciona.

Pero si quisiera realizarlo con código teniendo en cuenta que la lista va aumentando y no quiero que incluya espacios vacíos de la columna F que es donde tengo la lista, ¿me podríais decir como puedo hacerlo?

Gracias

Link to post
Share on other sites

Borra la propiedad .ListFillRange y pon estas macros en la hoja:

Private Sub Worksheet_Activate()
CargarCombo
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address Like "$F$*" Then CargarCombo
End Sub

Private Sub CargarCombo()
ComboBox1.Clear
For x = 1 To Range("F" & Rows.Count).End(xlUp).Row
   If Range("F" & x) <> "" Then ComboBox1.AddItem Range("F" & x)
Next
End Sub

 

Edited by Antoni
Link to post
Share on other sites

Muchisimas gracias Antoni. Siento decirte que no he comentado que el combobox está en una hoja llamada control de llaves y los datos que quiero que recoja este combobox está en una hoja que se llama llaves, imagino que tengo que añadir la ubicación. ¿Verdad? 

Disculpa no haberlo puesto anteriormente 

Gracias  por todo

Link to post
Share on other sites

Buenas tardes

Eres muy amable.  Lo que pretendo es que el combobox1, recoja los valores de la hoja llaves los valores que están en "A"sin incluir las celdas vacías, teniendo en cuenta que  se puede ampliar el numero de llaves. En el combobox2, que recoja los valores de la hoja llaves, los valores que están en la columna F y en el combobox3 los que están en la columna G. Todo ello sin incluir los espacios en blanco y teniendo en cuenta que la lista se puede ampliar.

Se que es muy lioso y me explico fatal pero te adjunto el archivo por si tienes un momento y me puedes ayudar si se puede hacer. 

Muchas graciasLLAVES.xlsm

Link to post
Share on other sites

Muchísimas gracias.

Me da vergüenza hasta comentártelo, pero  bueno, yo lo hago por si existe alguna solución sencilla (que no creo). 

He estado probando y la única pega que le veo es que si por ejemplo, en el combobox2 de Departamento, si existiese Dpto. Analitico, Dpto. Informatica, Dpto. RRHH si en vez desplejar el combobox pongo una "D" en la celda E25 coloca directamente la primera opción, es decir, Dpto. Analítico.

y si por ejemplo, en el combobox3 de nombre y apellidos, existiesen varios nombres con la letra "J", por ejemplo:  Javier, Jorge, Jose,Juan, al poner en el combobox "J" directamente pone en la celda G26 el primer nombre que aparece en la lista, es decir que en la celda coloca Javier.

En una lista por ejemplo de 300 nombres, abrir el combobox y tener que ir bajando uno a uno es un poco lento. Lo ideal, que no se si se podrá hacer, sería poder poner la inicial en el combobox por ejemplo "J" y que se sitúe en la "J" y ya desde ahí bajar y elegir a Juan por ejemplo y que lo coloque en la celda.

Muchas gracias por tu tiempo y tu ayuda

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Posts

    • Antes de exponer las conclusiones, agradecer a John y Antoni su tiempo y conocimiento en la resolución del problema. Antoni, las dos soluciones aportadas han funcionado como un "tiro". A mayores, la segunda opción funciona tanto, si la modificación se realiza a través del recálculo con fórmulas, como si dicha modificación de la columna TOTAL HORAS se realiza de forma manual con introducción directa del dato. Sois unos Crack... Muchas, muchísimas gracias. Desde ya un nuevo Fan. Mes salut i força 😂
    • Muchas gracias Antoni, lo pruebo y  te digo. ¡Salut...!
    • Puedes utilizar cualquiera de las 2 macros (O una o la otra, no las dos a la vez) Private Sub Worksheet_Change(ByVal Target As Range): On Error Resume Next '------------------------ 'En la hoja Base de datos <-------------------------------------------- '------------------------ If Not Intersect(Target, Range("C:C")) Is Nothing Then With Sheets("Rango prueba 1") Application.EnableEvents = False .Range("C12:K122").Sort Key1:=.Columns("K"), Order1:=xlDescending, Header:=xlYes .Range("C127:K237").Sort Key1:=.Columns("K"), Order1:=xlDescending, Header:=xlYes Application.EnableEvents = True End With End If End Sub   Private Sub Worksheet_Calculate(): On Error Resume Next '------------------------- 'En la hoja Rango prueba 1 <------------------------------------------- '------------------------- Application.EnableEvents = False Range("C12:K122").Sort Key1:=Columns("K"), Order1:=xlDescending, Header:=xlYes Range("C127:K237").Sort Key1:=Columns("K"), Order1:=xlDescending, Header:=xlYes Application.EnableEvents = True End Sub  
    • Hola @Luis Caballero la cosa es que no tengo mucha idea, lo que quería es que al poner aula 3 por ejemplo salieran los cursos que se dan en ese aula durante todo el mes y si cambias a aula 4 y vuelves a filtrar, que cambie la ocupación a la pertinente, lo primero que habría que hacer es rellenar todas las ocupaciones, pero no puedo porque se superponen los cursos porque no cambia el calendario por cada aula que seleccionas.   Si vas a octubre te sale "MI" el jueves 8.10 en todas las aulas, por ejemplo eso debería salir solo en aula 3 y así con todo.   muchas gracias por el tiempo.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy