Kezdőlap › Fórumok › Excel témák › Excel jelölők! › Hozzászólás: Excel jelölők!
2015-01-23-20:48
#1738
A tartománynak összefüggőnek kell lennie, legalábbis most így írtam meg.
Tehát nem lehet benne üres oszlop vagy akár teljes sor.
ha ez nem teljesül, akkor még lehetséges színezni ateljes sort.
Akkor a kódot cseréld ki erre:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const nofill As Double = 16777215
If Target.Column = 1 Then
uo = Target.CurrentRegion.Cells(Target.CurrentRegion.Cells.Count).Column
If Target.Interior.Color = nofill Then
Target.EntireRow.Interior.Color = RGB(252, 213, 180)
Else
Target.EntireRow.Interior.Color = RGB(255, 255, 255)
End If
End If
End Sub
Imre