Ta fram/dölja rad när cellvärde ändras

[MvS]

Hej Monshi!

Behöver kod för att starta ett makro vid visst cellvärde och hittade detta gamla inlägg! Har modifierat och prövat din kod och kan till min belåtelse se att den fungerar! Vad jag dock är ute efter är att mitt makro skall kunna ta fram resp. dölja rader beroende på om en given cell har ett värde som över- eller understiger 100. Om cellkriteriet uppfylls så skall raderna visas, annars döljas.

 

Hur mekar man ihop det? 

 

Så här har jag gjort:

 

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Target.Count <> 1 Then Exit Sub

    If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then

        TaFramRader <---------- Här är makrot för att visa raderna

        MsgBox "Fyll i skalan!"

    End If

    Application.EnableEvents = True

End Sub

 

Makrot för att dölja raderna heter: DoljRader

 

Jag vore dig mycket tacksam om du kan hjälpa mig med detta! 

 

//Magnus 

[Monshi]

Tråden utbruten från

//eforum.idg.se/topic/214844-k%C3%B6ra-makro-n%C3%A4r-ett-cellv%C3%A4rde-%C3%A4ndras/

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    If Target.Count <> 1 Then Exit Sub
    If Not Application.Intersect(Target, Me.Range("L3")) Is Nothing Then
        If Me.Range("L3") > 100 then
             TaFramRader 
             MsgBox "Fyll i skalan!"
        Else
            DöljRader
        End If
    End If
    Application.EnableEvents = True
End Sub

Borde väl fungera?

[MvS]

Tack Monshi för snabbt svar!

Det fungerar dock inte utan jag får upp denna dialog i stället:

 

Har du några funderingar om det? 

 

//Magnus

[MvS]

Monshi!

 

Det funkar! Makrot heter "DoljRader" i stället för "DöljRader"! Två små prickar fel!

 

Önskar dig en riktigt bra fortsättning på det nya året!

 

//Magnus