Hirdetés

Keresés

Új hozzászólás Aktív témák

  • lapa

    veterán

    válasz Gh0sT #908 üzenetére

    azt csak eventtel lehet megoldani (asszem sheetchange), mert az megkapja target cellként az éppen módosult cellát. azzal lehetne ügyködni, hogy ez a cella benne van-e a kívánt tartományban. ha gombozni akarsz:

    Option Explicit
    Sub feltetlenmashogy()
    Dim tartomany As Range, x As Long
    Set tartomany = Range(Cells(1, 1), Cells(20, 1))
    For x = 1 To tartomany.Cells.Count
    If Cells(x, 1) <> '''' Then
    tartomany.Interior.ColorIndex = x
    Cells(x, 1).Interior.ColorIndex = x + 1
    Else
    End If
    Next x
    End Sub


    ez attól függően színezi be, hogy melyik az uccsó nem üres cella. ''Erre aztán fölkiáltanak: ''Ó, milyen szép!''''

Új hozzászólás Aktív témák