📍Función ELEGIRCOLS para modificar el orden de la columnas en Tablas 😉

Este video te muestra lo versátil que es la Función ELEGIRCOLS cuando la dinamizas con un Cuadro de Lista de Controles ActiveX y una Macro. Te dejo las funciones que use y el código para ahorrarte el tiempo en tu proceso de desarrollo de Lógica. =SI.ERROR(COINCIDIR(1,$A$2:$D$2,0),"") =SI.ERROR(ELEGIRCOLS(Tabla1[#Todo],A3,B3,C3,D3), "Termina de elegir el orden de las columnas, Por Favor.")

Private Sub ListBox1_Change()
Dim i As Integer

' Verifica si todas las celdas de A1:D2 están llenas
If Application.WorksheetFunction.CountA(Range("A2:D2")) = 4 Then

' Si todas las celdas están llenas, borra su contenido
Range("A1:D2").ClearContents
End If

' Recorre cada elemento en el ListBox
For i = 1 To Me.ListBox1.ListCount
If Me.ListBox1.Selected(i - 1) Then
Select Case i
Case 1 To 4
If Cells(2, i).Value = Empty Then
' Coloca el valor en la celda correspondiente
Cells(1, i).Value = Me.ListBox1.List(i - 1)
Cells(2, i).Value = Application.Max(Range("A2:D2")) + 1
End If
End Select
End If
Next i

End Sub



Private Sub Workbook_Open()
With Sheets("Reporte").ListBox1
.Left = 0
.Height = 60
.Top = 60
.Width = 106
End With
End Sub