34602

caranbis respondió: Private Sub Listar_abrir_y_cerrar() 'Ir a menu Herramientas, Referencias ' Y agregar: 'Microsoft Scrpting Runtime ' Dim hFolder As Folder Dim hFile As File Dim Fso As FileSystemObject Dim Folder As String Dim LibroPpal As String 'El libro principal,...

jopil001 respondió: Sin utilizar fórmula, selecciona el rango, copia, selecciona la primera celda donde quieras que se sitúen las columnas, en el apartado inicio, bloque portapapeles, pulsa la flecha que aparece debajo del símbolo pegar y pulsa en transponer. Te...