Anónimo
Macro seleccionar columna y fila seleccionar celda
Hola expertos deseo una macro en la cual me sombree la columna y la fila al momento de seleccionar una celda, he conseguido algunos en el cual me sombrea en forma de cruz y eso no es lo que quiero deseo algo que me forme un angulo recto.
Gracias
1 respuesta
Te mando mi solución copia esta macro dentro del objeto hoja en la que deseas que suceda eso
Public fila Public columna Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'por luismondelo On Error Resume Next Cells(fila, columna).EntireRow.Interior.ColorIndex = xlNone Cells(fila, columna).EntireColumn.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 3 Target.EntireColumn.Interior.ColorIndex = 3 fila = Target.Row columna = Target.Column End Sub
no olvides finalizar la consulta
Hola Luis te agradezco tu colaboración y te admiro por todas tus excelentes respuestas.
Copie la macro pero:
1. Al seleccionar otra celda deja no borra la anterior.
2. Se podría colorear solamente en forma de angulo _I y no en forma de cruz???
Puedes ayudarme con esto
Nuevamente Gracias por su colaboración.
Ok, en ese caso la macro quedaría así:
(Recuerda que es un evento por lo que deberá ser copiada dentro del objeto hoja que estás tratando, no en un módulo)
La macro está probada
Public fila Public columna Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'por luismondelo On Error Resume Next Range(Cells(fila, columna), Cells(fila, columna).End(xlToLeft)). Interior.ColorIndex = xlNone Range(Cells(fila, columna), Cells(fila, columna).End(xlUp)).Interior.ColorIndex = xlNone Range(ActiveCell, ActiveCell.End(xlToLeft)).Interior.ColorIndex = 3 Range(ActiveCell, ActiveCell.End(xlUp)).Interior.ColorIndex = 3 fila = Target.Row columna = Target.Column End Sub