Me pierdo.......

[ticotico]

Uso tablas de excel enormes, con muchas
filas columnas con diferentes conceptos, el
problema es que muchas veces me pierdo.

Me gustaria saber si hay alguna función para
que se marce o ilumine toda la fila y
la columna de la casilla activa, así encontraría mucho mas facilmente los datos.

Aveces te pierdes entre tantas lineas y apuntas un dato en una fila/columna que no es.
Gracias

 

[Juan Pablo González]

Ok, creo que ya encontré el problema.

Este es uno de los problemas que tiene Excel con las versiones diferentes a Inglés. En el código, hay dos partes donde aparece la palabra TRUE, Excel no "traduce" esto, y lo deja tal cual. Lo que se necesita es cambiar, en el código, este TRUE por VERDADERO, y ya. Ahí si debe funcionar.

 

[ticotico]

!!!!!!!PERFECTO !!!!!!!!!

CAMBIEN TRUE POR VERDADERO Y
FUNCIONA PERFECTAMENTE .....

Muchas gracias.
Tico Tico

 

[ticotico]

Despues de varios intentos para que el
codigo funcionara, !funcionó!, solo
un problema,
este codigo anula el uso de
copiar y pegar.
Te deja copiar, pero cuando te mueves,
pierdes el portapapeles y no
tienes nada que pegar.
Alguna sugerencia ?

 

[Juan Pablo González]

Mhmm, no directamente, mejor dicho, no sin deshabilitar el código.

Haciendo click derecho sobre una de las barras, escoge "Visual Basic". Ahí, hay que "habilitar" el botón de modo diseño, que es la escuadra. Cuando éste esté "prendido", los macros no funcionarán y por lo tanto se podrá copiar y pegar.

 

[ticotico]

he encontrado este código (gracias a Hector en grupos google). Este código funciona, y permite copiar y pegar. pero despues de copiar y pegar la 1ª vez, deja de funcionar.
me podeis ayudar?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Anterior As Range
If Target.Row <= 5 Then Exit Sub
On Error Resume Next
Select Case Application.CutCopyMode
Case xlCut, xlCopy
Do
DoEvents
Loop Until Application.CutCopyMode = False
SendKeys "{Enter}"
End Select
Anterior.EntireRow.Interior.ColorIndex = xlColorIndexNone
Anterior.EntireColumn.Interior.ColorIndex = xlColorIndexNone
Anterior.Font.Bold = False
Target.EntireRow.Interior.ColorIndex = 19
Target.EntireColumn.Interior.ColorIndex = 19
Target.Font.Bold = True
Set Anterior = Target
End Sub