finde sidste række og kolonne

Koden til sidste række kunne for eksempel se sådan ud:

Sheets(1).Range("6:39, 74:" & ActiveSheet.UsedRange.Rows.Count).EntireRow.Hidden = True

For sidste kolonne har jeg delt den op i to dele:

Sheets(1).Range("A:B").EntireColumn.Hidden = True
Sheets(1).Range(Range("AH1"), Cells(1, ActiveSheet.UsedRange.Columns.Count)).EntireColumn.Hidden = True

vi har testet det men det virker ikke..

Hvilken version bruger du? Kan  du viise hele koden?

Hej Jens.

Jeg arbejder sammen med Bjarne og vi bruger Excel 2010.

Det vi skal bruge, er at lukke "opdelte" kolonner og rækker og når den sidste del lukkes, lukkes helt til enden af arket.

Vi ønsker dog ikke at definere "enden af arket" med et kolonne bogstav eller et række tal, men med en kode.

Eksempel:
- Luk kolonne: A:B  +  F:og til enden af arket.      (Kolonne C:E vil være åbne).
- Luk række:    1:2  +  5:og til enden af arket.      (Række 3:4 vil være åbne).

Det hele åbnes igen:
  Sheets(x).Rows.Hidden = False
  Sheets(x).Columns.Hidden = False

Den sidste del af de 2 koder du sendte, virkede ikke.
Koden lukkede fint første del, men ikke sidste del.

Mvh.
Ib

Hej igen Jens.

Hvis alt virker på Gratis Upload, skulle det være muligt at downloade TEST her.
http://gupl.dk/f/8upv7u7a00

Mvh.
Ib

Det var mig der havde misforstået spørgsmålet. Her er hele den rettede makro:

Private Sub CommandButton1_Click()
'*' Lukker

    If Sheets(1).Rows("6").EntireRow.Hidden = True Then
    MsgBox "  Arket er lukket !!", vbExclamation, "Åben ark"
    Exit Sub
    End If
   
    Sheets(1).Range("6:10, 21:1048576").EntireRow.Hidden = True
   
    Sheets(1).Range("E:H, L:XFD").EntireColumn.Hidden = True
   
    Application.Goto reference:="R1C1"
   
End Sub

og det er så lige meget om det er en excel2007, 2010, 2013 at arket bliver kørt på, er det altid 1048576 og XFD der er den sidste række og kolonne ?

Hej Jens og Bjarne.

Jeg mener sidste række og kolonne er forskellig, afhængig af Excel versionen.
Netop derfor søgte jeg en kode, der skjulte "indtil sidste række/kolonne", så alle versioner var dækket ind.

Men koden virker i Excel 2010 ;)

Mvh.
Ib

Det virker ikke hvis det er gemt i Excel 97-2003 version. Men brug denne makro istedet. Så er der ingen problemer:

Private Sub CommandButton1_Click()
'*' Lukker
    If Sheets(1).Rows("6").EntireRow.Hidden = True Then
    MsgBox "  Arket er lukket !!", vbExclamation, "Åben ark"
    Exit Sub
    End If
    On Error Resume Next
    Sheets(1).Range("6:10, 21:1048576").EntireRow.Hidden = True
    Sheets(1).Range("6:10, 21:65536").EntireRow.Hidden = True
    Sheets(1).Range("E:H, L:XFD").EntireColumn.Hidden = True
    Sheets(1).Range("E:H, L:IV").EntireColumn.Hidden = True
    Application.Goto reference:="R1C1"
End Sub

Hej Kasper.

Så tror jeg, jeg fik løst problemet.

I Excel, fanen Udvikler:
Jeg startede en indspilning af Macro, hvorefter jeg step by step, først mærkede kolonnerne op og skjulte dem.
Næst det samme med rækkerne.
Herefter stoppede jeg indspilningen og så havde jeg koden.

For at få koden til at køre på Ark1 fra andre Ark Faner, tilføjede jeg bare Sheets("Ark1") de rigtige steder i koden.

Koden ser sådan ud.

Private Sub CommandButton1_Click()
'*' Cmb på Ark2
'*' Lukker Ark1
   
    Sheets("Ark1").Select
   
    If Sheets("Ark1").Rows("6").EntireRow.Hidden = True Then
    MsgBox "  Ark1 er lukket !!", vbExclamation, "Åben ark"
    Exit Sub
    End If
   
    Application.ScreenUpdating = False
   
    Sheets("Ark1").Columns("E:H").Select
    Selection.EntireColumn.Hidden = True
    Sheets("Ark1").Columns("L:L").Select
    Sheets("Ark1").Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
    Sheets("Ark1").Rows("6:10").Select
    Selection.EntireRow.Hidden = True
    Sheets("Ark1").Rows("21:21").Select
    Sheets("Ark1").Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = True
   
    Application.ScreenUpdating = True
    Application.Goto reference:="R30C1"

End Sub

Download test på linket.
http://play48.com/gratisupload/userprofiles/6uvZ1O9wuU/02%20Luk%20Kol%2DR%E6k%20til%20enden%20af%20arket%2Exlsm

Mvh.
Ib

Sorry - Det var selvfølgelig Jens og ikke Kasper.

Jeg skriver samme tekst i et andet forum, hvor jeg svarer Kasper på samme problemløsning og kopierede bare teksten fra det ene forum til det andet.

Sådan kan det gå i farten.

Det ville nu være rart, hvis man kunne gå ind og editere i en allerede oprettet tekst, men det kan man måske også, bare uden jeg har fundet ud af hvordan !
Hmmmm....

Mvh.
Ib