AYUDA CON CODIGO VBA
Publicado por frany (62 intervenciones) el 29/05/2006 20:28:12
Hola que tal a todos
Estoy usando el siguiente codigo para poder señalar las filas en una hoja de calculo de tal modo que siempre puedo ver en que fila estoy claramente.
el problema me surge que se me desactiva la opcion de copiar y pegar.
Hay alguna manera de poderlo usar.
como poderi ver es un codigo mas o menos sencillo que he creado para tal fin , pero me encuetro con ese problema que veo dificil para mi nivel de conocimiento de VBa
Gracias de antemano por cualquier ayuda prestada.
Public x
Public y
Public a
Public b
Private Sub workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
a = x
b = y
On Error Resume Next
Range(Cells(a, 1), Cells(a, b)).Interior.ColorIndex = 0
x = ActiveCell.Row
y = ActiveCell.Column
Range(Cells(x, 1), Cells(x, y)).Interior.ColorIndex = 35
End Sub
Estoy usando el siguiente codigo para poder señalar las filas en una hoja de calculo de tal modo que siempre puedo ver en que fila estoy claramente.
el problema me surge que se me desactiva la opcion de copiar y pegar.
Hay alguna manera de poderlo usar.
como poderi ver es un codigo mas o menos sencillo que he creado para tal fin , pero me encuetro con ese problema que veo dificil para mi nivel de conocimiento de VBa
Gracias de antemano por cualquier ayuda prestada.
Public x
Public y
Public a
Public b
Private Sub workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
a = x
b = y
On Error Resume Next
Range(Cells(a, 1), Cells(a, b)).Interior.ColorIndex = 0
x = ActiveCell.Row
y = ActiveCell.Column
Range(Cells(x, 1), Cells(x, y)).Interior.ColorIndex = 35
End Sub
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0