brizuela86

Acá una fórmula que cumple con lo que esta necesitando =TRIM(MID(SUBSTITUTE(SUBSTITUTE("["&$A2;"[";"]");"]";REPT(" ";LEN($A2)));2*LEN($A2)*(COLUMNS($A:A));LEN($A2))) 1- A2 debe ser remplazado por la celda donde tenemos la información... 2- Para...

Sveinbjorn El Rojo respondió: A ver si pasando la ruta del archivo a una variable te lo abre, algo así: Private Sub Command61_Click() Dim abrir As Long dim miArchivo as String miArchivo="excel.exe Z:\Accounts Payable\T&E\SEGUIMIENTO\REPORTES T&E\PMI.xlsx" abrir = Shell(miArchivo,...

Dante Amor respondió: Utiliza lo siguiente Sub Compartir_Libro() ' Compartir_Libro Macro 'quitamos alertas Application.DisplayAlerts = False 'evaluamos si el libro esta compartido If ActiveWorkbook.MultiUserEditing Then 'si esta compartido, lo ponemos en modo exclusivo...

Anónimo respondió: Para lo que quieres tendrás que utilizar consultas de UNION Select * from Tabla1 UNION select * from Tabla2 UNION select * from Tabla3 Y así las tablas que quieras.

Eduard Caballero respondió: Prueba esto Sub Concentrar_Hojas() Application.ScreenUpdating = False Dim Sig As Long, Eliminar As Boolean If MsgBox("Deseas eliminar las hojas ""concentradas"" al final del proceso?", _ vbQuestion + vbYesNo + vbDefaultButton2, "Favor de...

Uriel Baray respondió: Te dejo el archivo lo pruebas y me dices, tu siempre has tenido la suerte de encontrarme con tiempo jaja Buen Día! http://hotfile.com/dl/120329511/bc2495e/ALEATORIO.xlsm.html