Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Excel 2010 zmiana koloru karty makro

tops62 04 Sty 2019 13:49 147 2
  • #1 04 Sty 2019 13:49
    tops62
    Poziom 9  

    Witam.
    Utworzyłem makro do zmiany koloru karty w zależności od wartości komórki.
    Jeżeli w komórce F6 wartość będzie większa od 0 to karta zmieni kolor na czerwony.
    Makro działa, ale muszę je wywoływać każdorazowo uruchamiając to makro.
    Na razie poradziłem sobie tworząc we wszystkich kartach przycisk uruchamiający to makro, ale jest to trochę bez sensu.
    Chciałbym aby makro uruchamiało się od razu po zmianie wartości komórki F6 na większą od zera. W arkuszu są 74 karty.
    Makro wygląda tak:

    Sub Kolor_karty()
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Sheets
    If ws.Range("F6").Value > 0 Then

    ws.Tab.Color = vbRed
    Else
    ws.Tab.Color = RGB(128, 128, 128)
    End If
    Next ws

    End Sub

    Proszę kolegów o pomoc. Zmiana koloru karty powiązana jest później z wydrukiem kart tylko o kolorze czerwonym.

    0 2
  • Pomocny post
    #2 04 Sty 2019 14:27
    Maciej Gonet
    Poziom 32  

    Należy oprogramować zdarzenie SheetChange skoroszytu. Wykrywa ono równocześnie, w którym arkuszu i w której komórce nastąpiła zmiana. Kod:

    Kod: text
    Zaloguj się, aby zobaczyć kod

    0
  • #3 04 Sty 2019 14:46
    tops62
    Poziom 9  

    Jesteś Wielki.
    O to chodziło. Bardzo dzięuję

    0