Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #24521 slashing senior tag slashing #24520
    Új Válasz #24521
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    slashing

    senior tag

    válasz slashing #24520 üzenetére

    :DD
    oké tényleg nagy marha voltam végig az első if-es résznél próbálkoztam ami ugye a páros sorokra érvényes de én barom mindig a páratlan sorban teszteltem aminél jóhogy nem ment :Y :W :))

    lényeg a lényeg sikerült

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row Mod 2 = 0 Then

    If Not Intersect(Range("D3:AB100"), Target) Is Nothing And Target.Value = "x" Then
    Range("D1:AB2").Interior.ColorIndex = 6
    Range(Cells(2, Target.Column), Cells(2, Target.Column)).Interior.ColorIndex = 37
    Else
    Range("D1:AB2").Interior.ColorIndex = 6
    End If

    Else

    If Not Intersect(Range("D3:AB100"), Target) Is Nothing And Target.Value = "x" Then
    Range("D1:AB2").Interior.ColorIndex = 6
    Range(Cells(1, Target.Column), Cells(1, Target.Column)).Interior.ColorIndex = 37
    Else
    Range("D1:AB2").Interior.ColorIndex = 6
    End If

    End If

    End Sub

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