Macro que Pone en negrita la Fila activa

[Nicotuc]

Les dejo un codigo que encontre por ahí,lo que hace es poner en negrita toda la fila activa, lo unico malo es que desactiva la funcion copy-paste y no se que otra mas:

Dim x As Long


      Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)


          ' Set the row containing the active cell to bold.

          ActiveCell.EntireRow.Font.Bold = True


          ' Check for first execution of the macro and set row value

          ' if it is:

          If x = Empty Then

              x = ActiveCell.Row


          ' Set previous row property back to normal, or not bold.

          ElseIf Not x = ActiveCell.Row Then

             Rows(x).EntireRow.Font.Bold = False

          End If


          ' Capture new row value for comparison against next selection.

          x = ActiveCell.Row


      End Sub[/CODE]

Aclaro que no es mia, solo la expongo para el que le pueda servir

[mjrofra]

...Les dejo un codigo que encontre por ahí,lo que hace es poner en negrita toda la fila activa, lo unico malo es que desactiva la funcion copy-paste y no se que otra mas...

Gracias por el aporte Nico .

[Gerson Pineda]

Gracias Nicotuc, a mas de uno le va servir no tengas dudas (Mauricio de paso te saludo)

[Antoni]

Mauricio, tu siempre tan atento.

[Potter08]

muy buen aporte, la modifique un poco y que hay ocaciones en que queremos que cambien el color de fondo asi que aqui esta el codigo:

teniendo en cuenta que el color de fondo es blanco.

Dim x As Long


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)


' Set the row containing the active cell colorIndex.

ActiveCell.Interior.ColorIndex = 4


' Check for first execution of the macro and set row value

' if it is:

If x = Empty Then

x = ActiveCell.Row


' Set previous row property back to normal.

ElseIf Not x = ActiveCell.Row Then

Rows(x).EntireRow.Interior.ColorIndex = 0

End If


' Capture new row value for comparison against next selection.

x = ActiveCell.Row


End Sub[/CODE]

Salu2.xls

[Antoni]

Hola:

Con permiso de Potter, me he permitido la libertad de traducir los comentarios y estructurar un poquito su aporte:

He cambiado el color "Blanco" por el color "SinColor", y aclarar que, la celda activa quedará rellenada de color verde y que se eliminará cualquier color que pudiera haber en la fila de la celda activa inmediatamente anterior a la actual celda activa:

Dim FilaAnterior As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)


' Rellenamos la celda activa de color verde

ActiveCell.Interior.Color = vbGreen


' Si es la primera vez, guardamos la fila de la celda activa como fila anterior

If FilaAnterior = Empty Then

   FilaAnterior = ActiveCell.Row


' Si no es la primera vez, eliminamos el color de relleno de la fila anterior

' si la celda activa está en otra fila que la fila anterior

ElseIf Not FilaAnterior = ActiveCell.Row Then

       Rows(FilaAnterior).Interior.ColorIndex = xlNone

End If


' Guardamos la fila de la celda activa como fila anterior

FilaAnterior = ActiveCell.Row


End Sub

[/CODE]

y también funcionaría así:

[CODE]
Dim FilaAnterior As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next

ActiveCell.Interior.Color = vbGreen
If Not FilaAnterior = ActiveCell.Row Then Rows(FilaAnterior).Interior.ColorIndex = xlNone
FilaAnterior = ActiveCell.Row

End Sub
[/CODE]

Salu2. Antoni.

[Potter08]

Excelente Antoni como siempre, aportando mejores y enriquesidos codigos.

Solo un pregunta imaginate que tengamos un formato en una hoja de excel con colores resaltando totales, sub totales, y seleccionamos dichas celdas se perderia el formato verdad. Entonces como conservamos el formato de la anterior y solo resaltar por el momento de la seleccion y dejarlos sin ningun cambio.

Salu2.xls

[mjrofra]

...Solo un pregunta imaginate que tengamos un formato en una hoja de excel con colores resaltando totales, sub totales, y seleccionamos dichas celdas se perderia el formato verdad. Entonces como conservamos el formato de la anterior y solo resaltar por el momento de la seleccion y dejarlos sin ningun cambio....

Hola Potter, permíteme la intromisión... acá encuentras una solución para lo que mencionas: https://www.ayudaexcel.com/foro/showthread.php?t=8200&p=38099&viewfull=1#post38099

Luego 'mejoré' un poco la respuesta en Excelpatas: Resaltar la fila de la celda seleccionada en una hoja de Excel.

[Potter08]

Excelente Mauricio !!!

Gracias !!!!

Salu2.xls