Dime si es posible esto en tu macro
'POR DANTE AMOR
MsgBox que me diga cuantos libros abiertos y nombre de cada uno
Esta tu macro, (ME DIRIJO A DAM) que dejaste a un usuario como una de las opciones
Sub LibrosAbiertosNombre() 'POR DANTE AMOR archivo = "libro3.xlsx" For Each w In Workbooks If UCase(archivo) = UCase(w.Name) Then MsgBox "el archivo está abierto" Exit For End If Next End Sub
menciona el libro que esta abierto pero, en esta tu macro tienes que indicar en la macro el nombre de ese libro. Mi pregunta es: ¿Será posible componer esta macro para que busque libros abiertos, mencione su o sus nombres sin tener que indicar en la macro el o los nombres?
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Con la siguiente macro te envía un mensaje por cada libro abierto
Sub LibrosAbiertos() 'Por.Dante Amor For Each w In Workbooks MsgBox "Archivo abierto: " & w.Name Next End Sub
O puedes poner todos en una lista separados por coma:
Sub LibrosAbiertos() 'Por.Dante Amor For Each w In Workbooks cad = cad & w.Name & ", " Next MsgBox "Archivos abiertos: " & cad End Sub
sal u dos
