Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Resaltar fila y columna

29/06/2006 - 21:08 por JHOAKIN | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Francisco M
29/06/2006 - 21:57 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :