johnnygamba

¿No tienes dinero para comprarte una Biblia? ¿O tienes una y te cuesta leer? Bueno, ya no es problema. Han creado una Biblia para que la puedas leer y escuchar en tu TV Aqui un video, oscuro, pero se entiende (deberia verse como las imagenes de aca arriba) link: http://www.youtube.com/watch?v=FRRGUhOxEEs Para descargarla tienen que meterse aqui: http://www.taringa.net/posts/downloads/9113777/DVD-Biblia-para-tu-TV---Para-ver-y-escuchar-_RV1960_.html

(ESTE POST ES EL PRIMERO EN TARINGA, LOS DEMAS SON REPOST) GRAN IMITACION REALIZADA SOLO HACE UNOS MINUTOS EN LA TV CHILENA del imitador chileno Stefan Kramer LA IMITACION (1/2) https://ugc.kn3.net/s/http://www.youtube.com/v/9QHSf0pPga8 LA IMITACION (2/2) https://ugc.kn3.net/s/http://www.youtube.com/v/-mMQCB8BC5k

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. Espero que les gustara, a mi me sirve un montón en el trabajo.

Dejen cargar el post... son muchas imágenes

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