Potter08

Hola, me gustan estos aportes tan importantes para la comunidad que a diario usa excel. y me agrada ver como dos personas tan inteligentes dan sus aportes solo por el simple hecho de competir sanamente. jajaja me alegra que se den a la tares de mejorar las ideas de otros. y en lo personal me gustan mas las macros, aun que no esta demas conoces las formulas. para mi parecer seria muy bueno que alguien la transformara a formula personalizada asi seria mas facil el uso. no me comprometo por que para eso soy muy malo. salu2.xlsx

Excelente Mauricio !!! Gracias !!!! Salu2.xls

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

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

Desde EL Salvador estamos conectados con AyudaExcel :cool: