Slette rækker

sæt musen i første celle lige under det sidste at dit data... altså under det du skal bruge..

hold ctrl + shift nede, og tryk pil til venstre, og derefter pil ned (bliv ved at holde shift og ctrl nede)

Vælg Rediger -> ryd -> alt

Stadig problemer
Gem dit dokument, og åbn igen

pil til højre... ikke venstre...

Det ændrer desværre ikke noget ved min scroller.... Den er stadig omkring 1,5 millimeter.

er det fortroligt ?

Nej det kan hentes på www.pointfigure.dk og hedder HP Portfolio. Se fx under hjælp. Kodeordet til beskyttelsen er copyright.

koden hentet her:

http://www.contextures.com/xlfaqApp.html#Unused

Sub DeleteUnused()

Dim myLastRow As Long
Dim myLastCol As Long
Dim wks As Worksheet
Dim dummyRng As Range

For Each wks In ActiveWorkbook.Worksheets
  With wks
    myLastRow = 0
    myLastCol = 0
    Set dummyRng = .UsedRange
    On Error Resume Next
    myLastRow = _
      .Cells.Find("*", after:=.Cells(1), _
        LookIn:=xlFormulas, lookat:=xlWhole, _
        searchdirection:=xlPrevious, _
        searchorder:=xlByRows).Row
    myLastCol = _
      .Cells.Find("*", after:=.Cells(1), _
        LookIn:=xlFormulas, lookat:=xlWhole, _
        searchdirection:=xlPrevious, _
        searchorder:=xlByColumns).Column
    On Error GoTo 0

    If myLastRow * myLastCol = 0 Then
        .Columns.Delete
    Else
        .Range(.Cells(myLastRow + 1, 1), _
          .Cells(.Rows.Count, 1)).EntireRow.Delete
        .Range(.Cells(1, myLastCol + 1), _
          .Cells(1, .Columns.Count)).EntireColumn.Delete
    End If
  End With
Next wks

End Sub

Fint link der excelent :-)
Du kan også trykke ctrl+end som finder sidste celle. Herefter kan du trykke shift+mellemrum for at markere linjen, holde shift nede og scrolle op til række 500 og trykke delete. Gem Arket.

Og det var så række 300 :-)

@ Excelent:
Jeg vil helst ikke benytte mig af koder i arket, da jeg føler jeg har mere kontrol over det på den anden måde.
@mrjh:
Jeg har prøvet det du skriver, men arket forbliver altså stadig på knap 35000 linier....

Når du trykker ctrl+end skulle du gerne havne i den nedeste celle som ikke er tom.
Slet værdien, gem dit regneark og tryk ctrl+end igen. Hvilken celle havner du så i?

Jeg ender i samme række igen, hvilket er 35485 på siden hjælp.

I min Excel version kan man oprette en kopi af arket ved at
højreklikke på arkets fane

Prøv hvis du har denne mulighed at oprette en kopi af arket

obs alene det at oprette en kopi har åbenbart en positiv effekt på orginalen
tivetifal i mine test :-)

Find den sidste celle med: Ctrl+pil ned
Flyt en celle ned med piletasten, derefter taster du: Ctrl+Shift+End - nu skulle alle cellerne til den sidste celle være markeret. Højreklik på markeringen og vælg slet/delete og derefter "hele rækken/entire row" og klik OK.
Tryk på gem/save - nu skulle Ctrl+Shift+End gerne bringe dig til sidste aktive celle.

Det hjælper hverken at lave en kopi eller den metode som tobler kommer med. I er velkommen til selv at prøve det. Programmet kan hentes her:

http://www.pointfigure.dk/filer/dl/hpportfolio_v1-25.zip

Jeg synes det er noget mærkeligt!

Du har et gult område fra A35475 og ned, hvad bruges det til. ?
Jeg kan ikke teste på arket Hjælp, da der er kode på

Prøv at låse arket op
stil dig på række 267, ude på rækkenummeret
hold CTRL+SHIFT nede men du trykker pil ned, nu har du marketet til endenhøjreklik på arket og vælg slet

hold CTRL+SHIFT nede men du trykker pil ned, nu har du marketet til enden,højreklik ude på arket og vælg slet

Du har skjulte celler med indhold og celler der er "locked", hvorfor de ikke kan slettes.

Efter at ha' åbnet Hjælp, og brugt den beskrivelse jeg lagde tidligere i aften, er sidste celle nu N267!

Kodeordet er copyright og står også længere oppe. Jeg har nu fået det til at virke. Tror måske det var fordi de var låste, som tobler var inde på. Beklager, men jeg vidste ikke at det havde nogen indvirkning. Tak for hjælpen. Jeg ved ikke hvem af jer der mest har fortjent pointene, men tobler skal da have nogen i hvertfald.

Her kommer et svar fra mig:-)

Havde lige glemt denne. Jeg står over.

heller ingen til mig