Resaltar fila y columna

esto te podría servir...

Private Sub Worksheet_Calculate()
resalta
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
resalta
End Sub

Sub resalta()
fila = ActiveCell.Row
columna = ActiveCell.Column
Cells.Interior.ColorIndex = 36
Rows(fila).Interior.ColorIndex = 27
Columns(columna).Interior.ColorIndex = 27
End Sub

Saludos,
Francisco.

"JHOAKIN" escribió en el mensaje
news:

Con este codigo resalto la fila donde me posiciono, que me le hace falta
para
que resalte la columna tambien.
Option Explicit

Private Sub Worksheet_Calculate()
Resalta
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Resalta
End Sub

Private Sub Resalta()
Dim R As Long
Dim C As Long
Dim X As String
R = ActiveCell.Row
C = ActiveCell.Column

If R < 7 Or R > 15000 Or C > 12 Then
Range("a7:L15000").Interior.ColorIndex = 36
Exit Sub

Else

Range("a7:L15000").Interior.ColorIndex = 36
Range("a" & R & ":L" & R).Interior.ColorIndex = 27
End If
End Sub

Gracias Francisco tu solucion este genial pero tengo un problemas que haz de
cuenta que nomas quiero que se unicamente un rango ejemplo :

A7 a L15000

que sentencias hacen falta para que eso funciona acotado al ejemplo.

"Francisco M" escribió:

esto te podría servir...

Private Sub Worksheet_Calculate()
resalta
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
resalta
End Sub

Sub resalta()
fila = ActiveCell.Row
columna = ActiveCell.Column
Cells.Interior.ColorIndex = 36
Rows(fila).Interior.ColorIndex = 27
Columns(columna).Interior.ColorIndex = 27
End Sub

Saludos,
Francisco.

"JHOAKIN" escribió en el mensaje
news:
> Con este codigo resalto la fila donde me posiciono, que me le hace falta
> para
> que resalte la columna tambien.
> Option Explicit
>
> Private Sub Worksheet_Calculate()
> Resalta
> End Sub
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Resalta
> End Sub
>
> Private Sub Resalta()
> Dim R As Long
> Dim C As Long
> Dim X As String
> R = ActiveCell.Row
> C = ActiveCell.Column
>
> If R < 7 Or R > 15000 Or C > 12 Then
> Range("a7:L15000").Interior.ColorIndex = 36
> Exit Sub
>
> Else
>
> Range("a7:L15000").Interior.ColorIndex = 36
> Range("a" & R & ":L" & R).Interior.ColorIndex = 27
> End If
> End Sub
>

Intenta buscar dentro del foro con la clave :

Interior.ColorIndex

Esa pregunta ya se dio la respuesta hace tiempo :)

Saludos

Sorry revisa este codigo y adaptalo a tu necesida de fila - columna

Trabajar solo con las dos columnas A - C,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dato As String
Dim fila As Range
Rows(ActiveCell.Row).Select
Dim R As Long
Dim C As Long
Dim X As String
On Error Resume Next
F = ActiveCell.Row
C = ActiveCell.Column
If F >= 2 Or F < 60 Or C < 3 Then
Range("A" & (F - 1) & ":C" & F).Interior.ColorIndex = xlNone
Range("A" & (F + 1) & ":C" & F).Interior.ColorIndex = xlNone
Range("A" & F & ":C" & F).Interior.ColorIndex = 27
Exit Sub
End If
End Sub

EL detalle de este codigo es que si utilizas el mouse para seleccionar no se
restablece la fila anterior.

http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES

Hola Francisco Mty., si mira la nesecidad que tengo es que me resalte fila y
toda la columna.

"Francisco Mty" escribió:

Sorry revisa este codigo y adaptalo a tu necesida de fila - columna

Trabajar solo con las dos columnas A - C,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dato As String
Dim fila As Range
Rows(ActiveCell.Row).Select
Dim R As Long
Dim C As Long
Dim X As String
On Error Resume Next
F = ActiveCell.Row
C = ActiveCell.Column
If F >= 2 Or F < 60 Or C < 3 Then
Range("A" & (F - 1) & ":C" & F).Interior.ColorIndex = xlNone
Range("A" & (F + 1) & ":C" & F).Interior.ColorIndex = xlNone
Range("A" & F & ":C" & F).Interior.ColorIndex = 27
Exit Sub
End If
End Sub

EL detalle de este codigo es que si utilizas el mouse para seleccionar no se
restablece la fila anterior.

http://groups.msn.com/ExcelVbaMacrosOffice
http://groups.msn.com/dadyboy
http://search.microsoft.com/?mkt=es-ES