Cambiar color y tamaño texto fila activa

Tengo este código

Sub CambioColorFila(Celda As Range)
Dim i As Long
Dim Columna As Long
Dim Fila As Long
Columna = Celda.Column
Fila = Celda.Row
'LIMITES DE LAS COLUMNAS.
Const ColumnaInicio As Long = 1
Const ColumnaFin As Long = 10
'SI LA COLUMNA ESTA ENTRE LA 1 Y LA 5, PROCEDE.
If (Columna >= ColumnaInicio And Columna <= ColumnaFin And Fila > 1) Then
ActiveSheet.Range(Cells(2, ColumnaInicio), Cells(1048576, ColumnaFin)).Font.ColorIndex = 0
ActiveSheet.Range(Cells(2, ColumnaInicio), Cells(1048576, ColumnaFin)).Font.Bold = False
ActiveSheet.Range(Cells(2, ColumnaInicio), Cells(1048576, ColumnaFin)).Font.Size = 11
For i = ColumnaInicio To ColumnaFin
ActiveSheet.Cells(Fila, i).Font.ColorIndex = 5
ActiveSheet.Cells(Fila, i).Font.Bold = True
ActiveSheet.Cells(Fila, i).Font.Size = 12
Next i
End If
End Sub

Que me pone la fuente en azul negrita y aumenta la fuente de 11 a 12 en tamaño. Quisiera a poder ser que al salir de la tabla ( poner el cursor fuera de la tabla me quedase este (la tabla ) con color de fuente, tamaño etc original.

1 respuesta

Respuesta
1

Me parece que esta macro es llamada desde otra macro. Si la otra macro se activa cuando seleccionas una celda, entonces cambia tu macro por esta:

Sub CambioColorFila(Celda As Range)
    Columna = Celda.Column
    Fila = Celda.Row
    'LIMITES DE LAS COLUMNAS.
    ColumnaInicio = 1
    ColumnaFin = 10
    With ActiveSheet.Range(Cells(2, ColumnaInicio), Cells(1048576, ColumnaFin))
        .Font.ColorIndex = 0
        .Font.Bold = False
        .Font.Size = 11
    End With
    'SI LA COLUMNA ESTA ENTRE LA 1 Y LA 5, PROCEDE.
    If (Columna >= ColumnaInicio And Columna <= ColumnaFin And Fila > 1) Then
        With ActiveSheet.Range(Cells(Fila, ColumnaInicio), Cells(Fila, ColumnaFin))
            .Font.ColorIndex = 5
            .Font.Bold = True
            .Font.Size = 12
        End With
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Enviar el BackColor de un MSFlexGrid a Excel

Estoy trabajando en Visual 6.0, tengo un MsflexGrid el cual al darle click en cualquier Celda a alguno de los registros que tiene el Grid cambia de color, pero cuando envío esos datos a Excel, no me manda el color de la celda que había...
1 respuesta

Sumar según formato moneda de celdas

Señores expertos, quisiera que me ayuden a sumas, tengo en excel columnas de datos que tienes el formato moneda de soles y dolares, y quiero sumar todas las que tienes formato moneda de dolares más no las de soles. Como lo hago | A | B | C | D | 1|...
1 respuesta

Macro suma con rango variable

Estoy realizando una macro, necesito que sume un rango de celdas de una columna, la celda inicial es fija pero la celda final es variable, sería hasta la primer celda vacía. ActiveCell.FormulaR1C1 = "=SUM(R[-1]C:RC)"
1 respuesta

Resaltar filas y columnas hasta la celda activa

Necesitaría un código Vb para Colorear la Fila y la columna Solo hasta el cruce de ambas, es decir hasta donde está la celda seleccionada.
1 respuesta

Macro para colocar datos según cabecera de columna y fila ingresada.

Elabore un UserForm donde ingreso datos a una hoja de excel seleccionando los datos de un combobox y se va ingresando uno debajo de otro. Pero al tercer ingreso se empieza a grabar uno arriba de otro. Las columnas no siempre se llenan todas y...
1 respuesta

Actualizar datos en base de datos

¿Cómo agrego la opción de que antes de realizar una búsqueda nueva, o bien agregando un botón nuevo, actualice cualquier dato que se modifique, directamente en la base? En lectura simple sería: Hoja Búsqueda: Si se modifica cualquier dato, en rango...
1 respuesta