cambiar el tamaño de la letra de la celda seleccionada???

On 23 mayo, 13:47, "ivan" <msnews.microsoft.com> wrote:

estoy buscando una macro que permita hacer mas visible la celda
seleccionada, es decir, aumentar el tamaño de la letra, el fondo de color y
en negrita. Una vez seleccionada otra celda, la celda anterior vuelva a
tener el mismo tamaño de letra de antes, sin fondo de color y sin negrita???
gracias

Ivan,

Prueba con esta macro. Aún falta asignarle que aumente el tamaño; pero
te puede ayudar.

Atte.

Mario



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 < 6 Or R > 13 Or C > 6 Then
'Range("a6:f13").Interior.ColorIndex = 36
'Exit Sub

'Else

Range("a1:iv65536").Interior.ColorIndex = 0
Range("a1:iv65536").Font.Bold = False
ActiveCell.Interior.ColorIndex = 40
ActiveCell.Font.Bold = True
'End If
End Sub

gracias
funciono de maravilla

"Mario" escribió en el mensaje
news:
On 23 mayo, 13:47, "ivan" <msnews.microsoft.com> wrote:

estoy buscando una macro que permita hacer mas visible la celda
seleccionada, es decir, aumentar el tamaño de la letra, el fondo de color
y
en negrita. Una vez seleccionada otra celda, la celda anterior vuelva a
tener el mismo tamaño de letra de antes, sin fondo de color y sin
negrita???
gracias

Ivan,

Prueba con esta macro. Aún falta asignarle que aumente el tamaño; pero
te puede ayudar.

Atte.

Mario



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 < 6 Or R > 13 Or C > 6 Then
'Range("a6:f13").Interior.ColorIndex = 36
'Exit Sub

'Else

Range("a1:iv65536").Interior.ColorIndex = 0
Range("a1:iv65536").Font.Bold = False
ActiveCell.Interior.ColorIndex = 40
ActiveCell.Font.Bold = True
'End If
End Sub