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

• #54149 Pá addikt Fferi50 #54148

  Új Válasz 2025-02-25 14:57:02 #54149

  Ú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

  

  Pá

  addikt

  válasz Fferi50 #54148 üzenetére

  Közben sikerült egy egészen jól működő verziót fabrikálnom.
  Betettem egy Subtotal 109-et a táblázat egyik oszlopára, ahol jellemzően 6-8 számjegyű egyedi értékek vannak, így a subtotal cella értéke 99.99%-ban változni fog, ha Autofilterezgetek.

  És akkor ennek a cellának a változására már lehet indítani a macrot.
  Szóval a "CHECK" tartományban ez a formula =SUBTOTAL(109,S4:S100000)

  Ez meg indítja a macrot, ha változik a CHECK
  Private LastSubtotal As Double
Private Sub Worksheet_Calculate()
    Dim NewSubtotal As Double
    NewSubtotal = Me.Range("CHECK").Value
  If NewSubtotal <> LastSubtotal Then
      LastSubtotal = NewSubtotal
        Call ZEBRA_STRIPE
    End If
End Sub

  Talán lehetne még finomítani ezen, de most végre elég jól működik így.

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