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.]

DRAUDE


Hola buenas.

Tengo un macro proporcionado por ustedes. Consiste en que al seleccionar un nombre de una tabla, se busca ese mismo nombre en otra tabla anexa y los dos se resaltan con color (en la tabla anexa se resalta con color el nombre y los datos de esa persona). 

Tengo dos problemas que no consigo resolver.

Problema 1:
Como hacer que se busque el nombre de la tabla principal en dos tablas o incluso en 3 si fuera posible.

Características (adjunto archivo)
Tabla principal: nombres de B6:B9.

Tabla anexa 1: datos de D6:F9 (los nombres están en el rango E6:E9).

Tabla anexa 2: datos de H6:J9 (los nombres están en el rango I6:I9).

Problema 2:

Al aplicar el macro que pongo a continuación, se borran otros formatos como los colores (del formato condicional) o los márgenes de las tablas, etc. Sería posible mantener estos formatos?

Macro proporcionado por ustedes. Busca un nombre de la tabla principal (en el rango B6:B9) en la tabla anexa 1 (los nombres están en el rango E6:E9).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Sombrea en rojo en Ranking y columna B al dar click

Application.ScreenUpdating = False  'desactiva centelleo de pantalla

ActiveSheet.[A6:G9].ClearFormats  'Borra formatos en rango A6:G9
On Error GoTo salida  'Si se da click fuera del rango B6:B9 se va a salida
Set c = Application.Intersect([B6:B9], ActiveCell) 'Rango de intersección (cuando das click B6:B9)

If c <> "" Then  'Si variable c es distinto de blanco
On Error Resume Next 'Por si hay error en la búsqueda
[E6:E9].Find(c, LookIn:=xlValues, Lookat:=xlWhole).Select 'Busca nombre en E6:E9, según se seleccionó en B
c.Interior.Color = RGB(255, 0, 0) 'Sombrea en rojo en B6:B9
Else 'Sino
Exit Sub 'Si c es blanco, sale de la macro
End If 'Cierre del If

Selection.Offset(, -1).Resize(1, 3).Interior.Color = RGB(255, 0, 0) 'Redimensiona en fila de Ranking y sombrea en rojo

Application.ScreenUpdating = True  'activa centelleo pantalla
salida: 'Fin de la macro
End Sub


Muchas gracias por su ayuda.
Archivos
ejemplo lista futbol colores.xlsx
No tienes los permisos para descargar los archivos.
(12 KB)

Igtelo


Hola de nuevo DRAUDE.

Aquí te va, tus formatos los respeta y ahora lo ponemos en módulo y tienes unos botones, sólo click.

Si quieres para más tablas fíjate como están las macros y listo, por ello van 2 macros y no una, ya te toca a ti ver como hacerlo.

Saludos
Ignacio Téllez
Archivos
DRAUDE-lista futbol colores2.zip
No tienes los permisos para descargar los archivos.
(28 KB)

3RESUELTO HOLAA el 04/12/14, 05:58 am

DRAUDE


Muchas gracias y perdón por las molestias.

Igtelo


Que tal DRAUDE.

Entiendo que ya quedó resuelto, lo tildo como tal. Para las próximas quien debe hacerlo es quien preguntó.

No son molestias, es un foro de ayuda y en lo que podemos apoyamos.

Saludos
Ignacio Téllez

5RESUELTO HOLAA el 06/12/14, 09:07 am

DRAUDE


No lo sabia, perdón.

Muchas gracias.

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.