Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Lista desplegable excel con múltiple selección

SUSANA GARCIA-ABAD FERNANDEZ

Recommended Posts

Antoni Veterano

Antoni

publicado
publicado

¿Qué columnas? ¿Dónde están los valores? ¿Qué hacer con la información una vez hecha la selección?

Sube un archivo Excel y explica con un ejemplo todas estas preguntas.

SUSANA GARCIA-ABAD FERNANDEZ Colaborador

SUSANA GARCIA-ABAD FERNANDEZ

publicado
  • Autor
publicado
Hace 8 horas, Antoni dijo:

¿Qué columnas? ¿Dónde están los valores? ¿Qué hacer con la información una vez hecha la selección?

Sube un archivo Excel y explica con un ejemplo todas estas preguntas.

Buenas tardes:

Subo el archivo para que se entienda mejor. Se trataria de lo siguiente : en la hoja  "ayudas" en la columna "Cod. gasto" se trataría de hacer una validación de datos tipo lista que permita seleccionar más de un dato. Estos datos los cogería de la hoja "lista" de la columna "Cod. gasto"

No sé si así queda claro

Cualquier cosa me dicen.

Gracias de antemano

Libro 1.xlsm

SUSANA GARCIA-ABAD FERNANDEZ Colaborador

SUSANA GARCIA-ABAD FERNANDEZ

publicado
  • Autor
publicado
En 18/7/2022 at 20:41 , Antoni dijo:

Abre el adjunto y selecciona las celdas Q5 o Q6, a ver que pasa.

Libro 1.xlsm 915.5 kB · 4 descargas

Fantástico!!!  Siempre me sorprendes!!!!.

Pero.......  ahora tengo un problema.... He tenido que hacer varios cambios en el Libro  (es una base que estaba en proceso de elaboración) y estoy intentando adaptar lo que has hecho en el archivo que te envié a la actual base de datos pero no soy capaz (he estado varios días probando pero me pierdo en algunas cosas)....No sé si me podrías echar una mano y trasladar lo que has hecho en el archivo que te envié al nuevo que te adjunto ahora (no quiero abusar.... si no puedes dímelo sin problema, lo entiendo).

Te cuento lo que necesito por si me puedes ayudar: en la nueva base que te adjunto necesitaría lo mismo pero en varias columnas (no sé si es posible); las columnas serían : 

_ Modalidad ayuda (columna Z)

_ Concepto gasto 1º; concepto gasto 2º; concepto gasto 3º (columnas AR; BD;BP;CA)

_ Detalle gasto 1º, detalle gasto 2º, detalle gasto 3º  (columnas AS; BE; BQ;CB)

Los valores estan en la hoja Listas

_ Modalidad ayuda: Columna AL

_ Concepto gasto: Columnas AH y AI

_ Concepto detalle gasto : columna AN

La columna Cód. gasto al final no voy a poner nada al final; se ha cambiado de planteamiento y puede darse muchas combinaciones posibles....

Muchísimas gracias de antemano por tu ayuda prestada...

Un saludoBd.xlsm

  • 1 month later...
SUSANA GARCIA-ABAD FERNANDEZ Colaborador

SUSANA GARCIA-ABAD FERNANDEZ

publicado
  • Autor
publicado
En 24/7/2022 at 12:17 , Antoni dijo:

Prueba a ver que tal va.

Bd.xlsm 1.63 MB · 7 descargas

Buenas noches Antoni

Te escrito de nuevo a ver si me puedes echar una mano. En su día te envié un archivo de excel de arriba y me diste la solución (por cierto, perfecto!!!); pero ahora me encuentro con el siguiente problema: a partir de la fila 53 no funciona (no se abren los formularios).

En el archivo que te envié en su día el tamaño de la tabla llegaba hasta la fila 52; sin embargo en la actualidad el tamaño de la tabla ha aumentado (hasta 500) y he observado que a partir de la fila 53 no funciona y no sé como hacer.... He estado buscando y mirando a ver si lo podía solucionar yo pero no doy con ello.

Te agradecería mucho que me ayudaras ya que la solución que me diste me resulta muy útil...

Te envío el archivo actual (he cambiado algunos campos al tratarse de datos personales).

Te agradezco de antemano tu ayuda.

Un saludo.

 

 

 

Base_GESTION.xlsm

Antoni Veterano

Antoni

publicado
publicado

Los pequeños detalles son los que más cuesta encontrar, como en el juego de las diferencias.

Modifica la línea señalada en el procedimiento: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 5 Then
   With Userform1.Listbox1
      .RowSource = ""
      If Target.Address Like "$AA$*" Then .RowSource = "Lista!AL6:AL7"
      If Target.Address Like "$AT$*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$AT*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$BE*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BF*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$BQ*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BR*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$CB*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$CC*" Then .RowSource = "Lista!AN6:AN18"
      If Not Range("C" & Target.Row) = "" And Not .RowSource = "" Then ´<------------------------------
         Userform1.Show
         ActiveCell.Offset(0, 1).Select
      End If
      End With
End If
End Sub

 

SUSANA GARCIA-ABAD FERNANDEZ Colaborador

SUSANA GARCIA-ABAD FERNANDEZ

publicado
  • Autor
publicado
Hace 40 minutos , Antoni dijo:

Los pequeños detalles son los que más cuesta encontrar, como en el juego de las diferencias.

Modifica la línea señalada en el procedimiento: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 5 Then
   With Userform1.Listbox1
      .RowSource = ""
      If Target.Address Like "$AA$*" Then .RowSource = "Lista!AL6:AL7"
      If Target.Address Like "$AT$*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$AT*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$BE*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BF*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$BQ*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BR*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$CB*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$CC*" Then .RowSource = "Lista!AN6:AN18"
      If Not Range("C" & Target.Row) = "" And Not .RowSource = "" Then ´<------------------------------
         Userform1.Show
         ActiveCell.Offset(0, 1).Select
      End If
      End With
End If
End Sub

 

Muchísimas gracias, de verdad!!!!!

  • 7 months later...
SUSANA GARCIA-ABAD FERNANDEZ Colaborador

SUSANA GARCIA-ABAD FERNANDEZ

publicado
  • Autor
publicado
En 24/9/2022 at 10:39 , Antoni dijo:

Los pequeños detalles son los que más cuesta encontrar, como en el juego de las diferencias.

Modifica la línea señalada en el procedimiento: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 5 Then
   With Userform1.Listbox1
      .RowSource = ""
      If Target.Address Like "$AA$*" Then .RowSource = "Lista!AL6:AL7"
      If Target.Address Like "$AT$*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$AT*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$BE*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BF*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$BQ*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BR*" Then .RowSource = "Lista!AN6:AN18"
      If Target.Address Like "$CB*" Then .RowSource = "Lista!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$CC*" Then .RowSource = "Lista!AN6:AN18"
      If Not Range("C" & Target.Row) = "" And Not .RowSource = "" Then ´<------------------------------
         Userform1.Show
         ActiveCell.Offset(0, 1).Select
      End If
      End With
End If
End Sub

 

Buenas noches de nuevo Antoni:

Recurro a ti nuevamente porque necesito tu ayuda otra vez. El año pasado me ayudaste con un archivo excel que me fue muy útil. Este año he tenido que hacer nuevamente otro archivo en la misma línea pero me ha ocurrido el mismo problema que me paso en su día y no doy con la solución; por lo que recurro a ti nuevamente a ver si me puedes echar una mano.

Me pasa lo mismo que me paso el año pasado y es que el código no me funciona en todas las filas solo en la fila 13 y no entiendo por qué (celdas AE; AL; AM; AU; AV, aunque quiero hacerlo extensible a otras).

Te paso el archivo de este año por si pudieras volverme a echar una mano; te lo agradecería muchísimo porque el año pasado me fue de gran ayuda.

Muchas gracias, un saludo.

Archivo prueba.xlsm

Antoni Veterano

Antoni

publicado
publicado

La macro estaba condicionada a que hubiera datos en la columna D, ahora lo hace de forma incondicional.

Revisa las columnas y los rangos de las listas. 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 12 Then
   With UserForm1.Listbox1
      .RowSource = ""
      If Target.Address Like "$AE$*" Then .RowSource = "Listas!T3:T4"
      If Target.Address Like "$AL$*" Then .RowSource = "Listas!W3:X11": .ColumnWidths = "40"
      If Target.Address Like "$AM*" Then .RowSource = "Listas!Z3:Z15"
      If Target.Address Like "$AU*" Then .RowSource = "Listas!W3:X11": .ColumnWidths = "40"
      If Target.Address Like "$AV*" Then .RowSource = "Listas!Z3:Z15"
      If Target.Address Like "$BQ*" Then .RowSource = "Listas!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BR*" Then .RowSource = "Listas!AN6:AN18"
      If Target.Address Like "$CB*" Then .RowSource = "Listas!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$CC*" Then .RowSource = "Listas!AN6:AN18"
      If Not .RowSource = "" Then
         UserForm1.Show
         ActiveCell.Offset(0, 1).Select
      End If
      End With
End If
End Sub

 

SUSANA GARCIA-ABAD FERNANDEZ Colaborador

SUSANA GARCIA-ABAD FERNANDEZ

publicado
  • Autor
publicado
hace 32 minutos , Antoni dijo:

La macro estaba condicionada a que hubiera datos en la columna D, ahora lo hace de forma incondicional.

Revisa las columnas y los rangos de las listas. 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 12 Then
   With UserForm1.Listbox1
      .RowSource = ""
      If Target.Address Like "$AE$*" Then .RowSource = "Listas!T3:T4"
      If Target.Address Like "$AL$*" Then .RowSource = "Listas!W3:X11": .ColumnWidths = "40"
      If Target.Address Like "$AM*" Then .RowSource = "Listas!Z3:Z15"
      If Target.Address Like "$AU*" Then .RowSource = "Listas!W3:X11": .ColumnWidths = "40"
      If Target.Address Like "$AV*" Then .RowSource = "Listas!Z3:Z15"
      If Target.Address Like "$BQ*" Then .RowSource = "Listas!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$BR*" Then .RowSource = "Listas!AN6:AN18"
      If Target.Address Like "$CB*" Then .RowSource = "Listas!AH6:AI12": .ColumnWidths = "40"
      If Target.Address Like "$CC*" Then .RowSource = "Listas!AN6:AN18"
      If Not .RowSource = "" Then
         UserForm1.Show
         ActiveCell.Offset(0, 1).Select
      End If
      End With
End If
End Sub

Buenos días de nuevo:

Que tonta! lo tenía delante de mis ojos y no me di cuenta... me bloquee..

Muchas gracias de nuevo por tu ayuda, de verdad

Un saludo!

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • DiegoPC
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por DiegoPC · publicado

      Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • jues
      Guardar Formulario en PDF

      Por jues · publicado

      Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • DiegoLG
      Surtido de Mercancía

      Por DiegoLG · publicado

      @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • jose_alk
      FORMULA PARA BUSCAR DIFERENTES RESULTADOS Y MOSTRARLOS

      Por jose_alk · publicado

      Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • jues
      Buscar Datos con un ComboBox

      Por jues · publicado

      Exelente solución mil gracias 

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.