Скачать с ютуб 📍Función ELEGIRCOLS para modificar el orden de la columnas en Tablas 😉 в хорошем качестве

📍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