UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Lehoi


Hola a todos

Prometo que está será la última pregunta que haga en un buen tiempo, creo que he sobrepasado mi cupo de preguntar con creces  Embarassed

He encontrado una macro en este foro que me ha ayudado a resolver una situación. La macro la encontré en este hilo:
http://www.universoexcelforo.com/t1743-insertas-comentarios-en-varias-celdas

Lo que necesitaba y he resuelto a medias es añadir a las celdas de una tabla comentarios que apunten a un rango de celdas de otras hojas, de forma que si esos datos varían, los comentarios me muestren esas variaciones.

He adaptado la macro a mi libro pero el problema viene en que la tabla donde irán los comentarios tiene 2480 celdas, y no es que me pese hacer los 2480 comentarios, sino me preocupa que al hacer tal cantidad de macros (una por cada comentario) cometa algún error en los códigos o que al ejecutar la llamada a todas esas macros tarde mucho en hacer todo el proceso.

Lo otro que me pasa es que en cada macro de los comentarios tengo que escribir el nombre de cada hoja literal, lo cual hace que no pueda cambiar el nombre de las hojas sin modificar macro por macro (repito son 2480).
 
He pensado ponerle un nombre genérico a las Hojas, pero no me serviría este libro para hacer otros donde tengo que usar otros nombres en las hojas.

¿Existe alguna forma de que una sola macro primero tome los nombres actuales de las hojas y luego haga los comentarios?

Adjunto la tabla con la macro modificada con 3 macros hechas para que se entienda mejor todo.

Muchas gracias y un saludo a todos!
Archivos
Comentarios dinámicos con valores de un rango de celdas de otras hojas.xlsm
No tienes los permisos para descargar los archivos.
(188 KB)

Igtelo


Hola Lehoi.

Lo que pretendes se me hace impráctico, acabarás perdiéndote con tanto dato, te adjunto propuesta; después de dar click en Transpone revisa cada hoja.

Espero te sirva.
Saludos
Ignacio Téllez
Archivos
Lehoi-Comentarios dinámicos .zip
No tienes los permisos para descargar los archivos.
(133 KB)

Igtelo


Hola nuevamente.

Te adjunto otra alternativa por si quieres todo en una hoja, en ella podrás aplicar filtro y trabajar cómodamente, en teoría, son muchos datos; yo me inclinaría por la 1a. opción
Cada vez que ejecutes la macro previamente debes eliminar la hoja Resumen. 

Creo que con estas 2 propuestas te funcionará mejor...

Saludos
Ignacio Téllez
Archivos
Lehoi-Sin Comentarios dinámicos .zip
No tienes los permisos para descargar los archivos.
(210 KB)

Lehoi


Hola Igtelo

Ante todo te agradezco la ayuda, una vez más y ya son muchas  Embarassed , pero como dije en el mensaje ya no molestaré más en largo rato, me pondré de a lleno a aprender  study y explorar el foro que es enorme.

Las dos soluciones son muy interesantes y creo que les sacaré mucho provecho. Me encanta que comentes las líneas de código, así es más fácil entender como funciona todo. Es muy probable que lo utilice en el futuro en este u otros proyectos.

El problema es que si te fijas en la tabla sumario todas las celdas son un valor extraído de las tablas de cada hoja del libro, y para ver los otros datos asociados a ese valor sin tener que ir hoja por hoja, es que se me ocurrió lo de usar los comentarios dinámicos. 

Creo que si es muy complicado hacerlo tendré que acabar haciéndolo uno a uno copiando y pegando para luego irlos modificando. Usaré nombres de hoja fijos si no me queda más remedio. 

Me imaginaba que era difícil porque he echado horas buscando en internet alguna solución parecida que pudiera adaptar pero nada.
Encontré este código que adjunto que hace lo que necesito pero no sé modificarlo para que en vez de leerme el valor de una sola celda me lea un rango, si puedes echarle un vistazo te lo agradecería.

Perdona la demora en contestarte, como tengo 6 horas mas tarde respecto a ti yo ya estaba en el 5to sueño  Sleep  Laughing

Saludos y perdona tanta cháchara
Archivos
comentarios dinámicos.xlsm
No tienes los permisos para descargar los archivos.
(21 KB)

Igtelo


Lehoi.

No ví lo que subiste, creo que es mejor un MsgBox, te dejo otra, ya sólo lo repites para cada hoja. Aprovechamos algo de lo anterior y ya.

Primero das click en el botón de Ejecutar, después te posicionas en cualquier celda de la columna "L" y das doble click con botón Izq.

Los comentarios nunca me han agradado "sólo estorban".

Saludos
Ignacio Téllez
Archivos
Lehoi-Datos con MsgBox .zip
No tienes los permisos para descargar los archivos.
(138 KB)

Lehoi


Que solución más elegante Igtelo, me quito el sombrero! Coincido contigo que es mejor un msgbox que un comentario.

Creo que este sistema es mejor sin lugar a dudas, mucho menos código, pero sin ánimo de abusar de tu paciencia quería hacerte un par de consultas sobre el código.

Veo que es necesario transponer los datos a las hojas al dar al boton Ejecutar, para luego usar la macro del MsgBox al hacer doble click.
Hay alguna forma de evitar la transposición de los datos? 
Te lo pregunto porque he simplificado la tabla de las hojas para poner lo imprescindible en el archivo que subí de ejemplo, pero el transponer me genera un problema. Si no hay forma tendré que reacomodar el resto de las celdas en las tablas de las hojas.

Y la otra duda es que en la Hoja Sumario usas 


Código:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [L2:L125]) Is Nothing Then Exit Sub
Call Datos
End Sub

para activar el msgbox en esa columna, pero imagino que al añadir la otra macro Datos para otra hoja al usar el mismo tipo de activación me dará error. Esta modificación del rango me funcionará?:

If Intersect(Target, [L2:AE125]) Is Nothing Then Exit Sub

Te dejo descansar y me pongo a cacharrear el código Wink

Igtelo


Te dejo el camino laaaaaaaaargo, así le aprendes. Todo se puede simplificar pero si te lo hago no le entiendes.

Si es necesario transponer, tu archivo así estaba, los cambios no se valen, vuelve a leer la normas...

Y ahora si, hasta aquí te lo dejo ya está solucionado.

Saludos
Ignacio Téllez
Archivos
Lehoi-Datos con MsgBox2 .zip
No tienes los permisos para descargar los archivos.
(210 KB)

Lehoi


Me merezco el tirón de orejas por bruto pig , a mi nada más se me ocurre. La próxima vez que necesite subir algo ya sé que tiene que ser un archivo con toda la información, es perfectamente comprensible. 
Lo hice por hacer el archivo ligero pero veo que es contraproducente e incumple las normas para más inri.

La solución última es ya la ginda del pastel, gracias Igtelo y perdona tantas molestias.

Saludos y tema ultraresuelto Wink

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.