Jump to content

Como saber si un Item ha sido deseleccionado de un ListBox


Recommended Posts

Estimados amigos.

Me surge una duda, existe una forma de saber si se ha deseleccionado un Item de un ListBox ¿?

Es decir, si tengo el primer item de un ListBox seleccionado, y lo destildo, hay manera de registrar esta acción para poder ejecutar una macro ¿?

Agradecido de antemano por vuestra ayuda.

Link to comment
Share on other sites

Agrego mas informacion al respecto.

Estoy usando un formulario con un ListBox MultiSelect = frmMultiSelectMulti para cargar todas las hojas del libro activo.

La idea en principio es que el primer Ítem (cuyo nombre es "Hojas del libro") se use como Switch para seleccionar o deseleccionar todos los demás ítem del ListBox.

Lo cual lo logro con el evento MouseUp o DblClick, con este ultimo me permite sin problema seleccionar algunos ítem sin que estos se destilden (pero hay que darle doble click, y la idea es no tener que dar doble click). Y con el evento MouseUp no me lo permite.

Ejempo:

Private Sub lstVisibles_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        If Me.lstVisibles.Selected(0) = True Then
            For i = 1 To lstVisibles.ListCount - 1
                lstVisibles.Selected(i) = True
            Next i
        Else
            For i = 1 To lstVisibles.ListCount - 1
                Me.lstVisibles.Selected(i) = False
            Next i
        End If
End sub

Por eso os pregunto si hay alguna manera de saber cuando se destilda el item, ya que al no estar seleccionado el primer item, no me permite seleccionar los otros item.

No se si logro explicarme.

Link to comment
Share on other sites

Creo haber resuelto el problema.

Tal vez no de la manera mas elegante o correcta, pero en las pruebas preliminares ha funcionado.

Private Sub lstVisibles_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If opt_DobleClick = True Then Exit Sub
    If Me.lstVisibles.Selected(0) = True And ThisWorkbook.Sheets("Hoja1").Range("A2").Value = vbNullString Then
        ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Activado"
        For i = 1 To lstVisibles.ListCount - 1
            lstVisibles.Selected(i) = True
        Next i
    End If
    If Me.lstVisibles.Selected(0) = True And ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Activado" Then
        ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Activado"
        For i = 1 To lstVisibles.ListCount - 1
            If lstVisibles.Selected(i) = False Then lstVisibles.Selected(i) = False
        Next i
    End If
    If Me.lstVisibles.Selected(0) = False And ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Activado" Then
        ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Desactivado"
        For i = 1 To lstVisibles.ListCount - 1
            lstVisibles.Selected(i) = False
        Next i
    End If
    If Me.lstVisibles.Selected(0) = False And ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Desactivado" Then
        For i = 1 To lstVisibles.ListCount - 1
            If lstVisibles.Selected(i) = True Then lstVisibles.Selected(i) = True
        Next i
    End If
    If Me.lstVisibles.Selected(0) = True And ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Desactivado" Then
        ThisWorkbook.Sheets("Hoja1").Range("A2").Value = "Activado"
        For i = 1 To lstVisibles.ListCount - 1
            lstVisibles.Selected(i) = True
        Next i
    End If
End Sub

Creo que solo faltaría agregar un código que al des tildar todos los Ítem, des tilde el Ítem cero.

Independientemente de este resultado, me gustaría saber si tienen o existe un mejor o mas simple método de hacerlo. U alguna otra idea para lograr el objetivo ¿?

Agradecido de antemano por vuestros comentarios y ayuda.

Link to comment
Share on other sites

Bueno, subo el archivo de lo que logre hacer.

Tal vez le sirva a alguien.

Que hace:

1- Se puede seleccionar todos los Ítems del ListBox, al seleccionar el primer Ítem de la lista.
2- Se puede deseleccionar todos los Ítems del ListBox, al deseleccionar el primer Ítem de la lista.
3- Se puede deseleccionar cualquier ítem que haya sido seleccionado mediante el primer Ítem de la lista.
4- Se puede seleccionar cualquier ítem que haya sido Deseleccionado mediante el primer Ítem de la lista.
5- Al seleccionar todos los Ítems de manera individual, el texto del primer Ítem cambia a "Deseleccionar Ítem" y se tilda el primer Ítem.
6- Al estar todos los Ítem seleccionados e ir deseleccionando los Ítems de manera individual, el texto del primer Ítem cambia a "Seleccionar Ítem" y se destilda el primer Ítem.
7- Al estar deselecionados todos los Ítems, e ir seleccionando todos los Ítems uno a uno, el texto del primer Ítem cambia a "Deseleccionar Ítems".

Aun así, me gustaría, y espero con ansias ver vuestras propuestas, para así poder aprender mas, que aun estoy crudo en el tema de VBA.

Un fuerte abrazo...
 

Prueba de seleccion de Item Version 2.0.xlsm

Link to comment
Share on other sites

Posted (edited)
Hace 25 minutos , Antoni dijo:

¡Me quito el sombrero Antoni!, al ver tu código pienso en lo largo del mío para hacer lo mismo jajajajajaja.

Como me falta experiencia y conocimiento... 😌

Agradecido infinitamente por tu ayuda y aporte.

Un abrazo desde Venezuela. 

PD. Tema solucionado.

Edited by MauriciodeAbreu
Agregar comentario
Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
    • Buenas tardes chicos, Ya lo he hecho funcionar, tarda un poco al pulsar el botón Ejecutar Comparación que supongo que será por lo poco "depurada" que está la macro pero es hasta donde llego a base de leer y copiar y pegar  he observado que ocupa mas de 2Mb y no es normal, supongo que arrastra algún error que lo hace ir ampliando conforme se usa. Os dejo el archivo por si alguien lo necesita, se que es un poco raro pero quien sabe? a lo mejor le va bien a alguien. Un saludo. DiferenciasEntreColumnas.7z
    • Buenos dias expertos, requiero una ayuda, lo que pasa es que tengo una hoja que importa datos de diferentes libros externos y funciona perfecto, pero lo que pasa es que en la columna B aveces faltan datos ya que debe ser la misma palabra "DIGITAL", lo que requiero es una macro que me copie o me rellene la palabra antes mencionado hasta la altura de los registros importados. Por favor me pueden apoyar con dicha macro estare agradecido de todo ustedes se que en esta comunidad hay muchos expertos. Adjunto el archivo. Consolidado.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy