Skjul et antal linier ud fra en værdi i en celle

Hej ssvenningsen

Kan du eventuel bruge følge VBA kode, som ligger under det aktuelle arks Change_hændelse ?

Tastet der en værdi i celle A1 skjules der fra række 10 til række 10 + værdien fra celle A1 ... Koden tjekker også for om værdien er numerisk samt konverterer eventuelle kommatal til heltal.

Prøv det og lad høre ...



Private Sub Worksheet_Change(ByVal Target As Range)
Dim v As Integer

    'hvis den aktuelle celle er A1 og den ikke er tom
    If Target.Address = "$A$1" And Target.Value <> Empty Then
           
        'hvis værdien i celle A1 er numerisk
        If IsNumeric(Target.Value) Then
       
            'konverter værdien til et heltal
            v = CInt(Target.Value)
           
           
            'vælg række 10 +
            Rows("10:" & 10 + v).Select
             
            'skjul de valgte række
            Selection.EntireRow.Hidden = True
       
        Else
                 
            MsgBox "Indtast et heltal i celle A1"
                 
        End If
       
    End If

End Sub



Med venlig hilsen, Nicolai

Hej Nicolai
Tak for svaret.

Det er langt derhenneaf. :-)

Den skal bruges af en del folk, og jeg har lavet en knap som man kan aktivere den pågældende makro ved således at den ikke aktiveres automatisk.

Hvordan sørger man for at nedenstående finder værdien v i celle A1, for så er den som den skal være

            'vælg række 10 +
            Rows("10:" & 10 + v).Select
             
            'skjul de valgte række
            Selection.EntireRow.Hidden = True

Mvh. Steen

Hej Steen

Herunder en knap med kode ...
Der er i denne kode ingen test af værdien i celle A1 i forhold til om det er et heltal m.m.


Private Sub cmdSkjulRækker_Click()
Dim v As Integer

    'sæt v 0 værdien fra celle A1 på Sheet1
    v = Sheet1.Range("A1").Value
           
           
    'vælg række 10 +
    Rows("10:" & 10 + v).Select
     
    'skjul de valgte række
    Selection.EntireRow.Hidden = True

End Sub


Med venlig hilsen, Nicolai

Hej Igen

Det skal selvfølgelig stå "=" i stedet for "0" i hjælpeteksten i 3. linie :o)

Med venlig hilsen, Nicolai

Hej Nicolai

Virker helt perfekt, tak for hjælpen.

Med venlig hilsen, Steen