Telefonszámunk: 1-472-0679

Hozzászólás: Excel jelölők!

Kezdőlap Fórumok Excel témák Excel jelölők! Hozzászólás: Excel jelölők!

#1738
horvimi
Adminisztrátor

    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