¿Usas Excel? Este truco de seguro no lo sabes...

(lo vuelvo a postear ya que ayer en la noche pocos conocieron este truco) Hola taringueros Quizas muchos trabajan en excel todo el día igual que yo, en plantillas llenas de datos, entre letras y numeros, y muchos se deben marear entre tantas celdas. ¿Les gustaría que al estar en una celda se destaque toda la columna y toda la celda? Aquí unos ejemplos subidos por mí: Instrucción de Instalación efecto de destacar celdas: Veo que les gustó.... bueno es bien fácil, solo abran su Microsoft Exel. Luego van al Menú Herramientas / Macro / Seguridad... Colocan la seguridad en bajo: Y en la pestaña de al lado dejan las 2 opciones de abajo tickeadas. Luego pinchan "Aceptar" Ahora le hacemos click derecho del mouse, sobre la hoja que queremos ese efecto: Y cambiamos la vista de "General" a "Worksheet" Y les aparecerá este texto: Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub Lo deben reemplazar por este otro: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim MiRango As Range Application.ScreenUpdating = False With Application.Cells ' Limpia Todo .Borders(xlInsideVertical).LineStyle = xlNone .Borders(xlInsideHorizontal).LineStyle = xlNone ' .Interior.ColorIndex = 0 End With Set MiRango = Application.Union(Range(Cells(Target.Row, 1), Target), _ Range(Cells(1, Target.Column), Target)) ' Color Cuadro 'MiRango.Interior.ColorIndex = 6 With MiRango.Borders(xlEdgeLeft) ' Izquierdo Arriba .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With MiRango.Borders(xlEdgeTop) 'Superior izquierdo .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With MiRango.Borders(xlEdgeBottom) ' Inferior izquierdo .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With MiRango.Borders(xlEdgeRight) ' Arriba derecho .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With ' Ahora para abajo y para el lado derecho Set MiRango = Application.Union(Range(Cells(Target.Row, 50), Target), _ Range(Cells(5000, Target.Column), Target)) ' Color Cuadro 'MiRango.Interior.ColorIndex = 6 With MiRango.Borders(xlEdgeLeft) ' Izquierdo Abajo .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With MiRango.Borders(xlEdgeTop) 'Superior Derecho .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With MiRango.Borders(xlEdgeBottom) ' Inferior Derecho .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With With MiRango.Borders(xlEdgeRight) ' Inferior derecho .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 End With Application.ScreenUpdating = True Set MiRango = Nothing End Sub Ahora para que les funcione, guardan y cierran el archivo exel, lo vuelven a abrir y funcionará Advertencia Al usar este truco funciona sin problemas, pero su pc queda más vulnerable por si alguien les manda algún virus dentro de un archivo exel. Aclaraciones - El efecto se agrega solo en la hoja que se agregue el codigo, aunque hayan otras en un mismo archivo exel, solo se agregara a la que le agreguemos el codigo por separado. - Si agregamos el efecto y lo enviamos por email, el otro receptor debera desabilitar la seguridad de los macros por si el tambien quiere ver funcionando el archivo. - Puede que les funcione el macro sin quitar la protección de seguridad, solo agregando el codigo. Espero que les gustara, a mi me sirve un montón en el trabajo.