samle data uden huller i én kolonne

Prøv at køre denne makro når du står på arket

Option Explicit
Option Base 1

Sub test3()
Dim resultat()
Dim rng As Range
Dim rngC As Range
Dim x As Long

Set rng = Range("A1:A" & Range("A65536").End(xlUp).Row)
ReDim resultat(rng.Cells.Count, 1)
For Each rngC In rng
    If Not IsEmpty(rngC) Then
        x = x + 1
        resultat(x, 1) = rngC
    End If
Next
Range("B1").Resize(x, 1) = resultat
Range("C1").Resize(x, 1) = resultat
Range("C1").Resize(x, 1).Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Så er jeg igang med projektet igen.

Skal den kode du har skrevet lægges i et modul eller under selve den side hvor det skal ske? f.eks. under SelectionChange?

Hvad betyder Option Explicit og Option Base 1? Hvad gør de to linjer?

Jeg har leget lidt med det og sat det ind sådan her:

Private Sub CommandButton2_Click()
    Calculate
   
    Dim resultat()
    Dim rng As Range
    Dim rngC As Range
    Dim x As Long
   
    Set rng = Range("I2:I" & Range("I65536").End(xlUp).Row)
    ReDim resultat(rng.Cells.Count, 1)
    For Each rngC In rng
        If Not IsEmpty(rngC) Then
            x = x + 1
            resultat(x, 1) = rngC
        End If
    Next
    Range("J2").Resize(x, 1) = resultat
    Range("K2").Resize(x, 1) = resultat
    Range("K2").Resize(x, 1).Sort Key1:=Range("K2"), Order1:=xlDescending, Header:=xlYes, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
End Sub

Ved ikke helt om det kan stå sammen med "Calculate"?

Når jeg trykker på knappen, så får den ikke fjernet de tomme rækker i J-kolonnen? Men den får fint sorteret dem alle i kolonne K.

Hvis ikke de tomme fjernes i kolonne J er det nogen der ikke helt stemmer.
Er cellerne helt tomme ? eller står der 0 i dem eller et mellemrum ?

Prøv lige at skrive =LÆNGDE(Ix) hvor x er en af de tomme celler.

ps. du bør have linien
Option Base 1

med, placeret øverst i kodemodulet

i kolonne J kører der en hvis sætning, som ser sådan her ud:

=HVIS(H2="";"";MIN(PPD(H2);100))

Når jeg f.eks. skriver =LÆNGDE(I2) skriver den "0". Og når jeg skriver det for en række hvor der står et tal i skriver den "16".

Har placeret "Option Base 1" sådan her istedet:

Private Sub CommandButton2_Click()
    Option Base 1
    Calculate
 
    Dim resultat()
    Dim rng As Range
...
End Sub

Håber det er okay?

Den giver mig en fejl, når Option Base 1 er placeret inde i "knappen"?

du skal lige ændre noget i koden

If Not IsEmpty(rngC) Then

ændres til

If Not rngC.Value = "" Then

og Option Base 1 skal placeres uden for koden

mange tak for det bak....det var lige hvad jeg manglede :-)

Så mangler jeg bare lige et par små ting.
- Vil gerne at den får slettet hele kolonnen, da antallet af værdier kan være forskellige. Så der ikke forekommer gamle værdier fra en tidligere beregning?
- Også er der et eller andet galt med den sidste i rækken, den bliver ikke sorteret rigtigt i kolonne K. Dvs. den sidste værdi er større end de forrige?

Håber det kan lade sig gøre....

Private Sub CommandButton2_Click()
Dim resultat()
Dim rng As Range
Dim rngC As Range
Dim x As Long

Set rng = Range("I2:I" & Range("I65536").End(xlUp).Row)
Range("J2:K65536").ClearContents
ReDim resultat(1 To rng.Cells.Count, 1 To 2)
For Each rngC In rng
    If Not rngC.Value = "" Then
        x = x + 1
        resultat(x, 1) = rngC
    End If
Next
Range("J2").Resize(x, 1) = resultat
Range("K2").Resize(x, 1) = resultat
Range("K:K").Sort Key1:=Range("K1"), Order1:=xlDescending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Takker....det hjalp på at få slettet data'erne :)

Har stadig problemer med at den ikke sortere den sidste række korrekt :-(

Men hvis det ikke kan løses, så kan det ikke løses.

Smid et svar så får du pointene....du har været til en stor hjælp bak

jeg tror helt sikkert at den sorterer korrekt.
Prøv lige at undersøge den sidste celle og se om der ikke skulle være et mellemrum foran værdi. Mellemrum kommer nemlig før A i sortering

og så lige et svar :-)

Jeg har lige tjekket igen....og den gør ingen ting ved den sidste række.

Og jeg kan slet ikke se at der skulle være noget galt med tallet. Det giver samme resultat hvis beregningerne bliver lavet om til andre tal, så er det stadig den nederste den ikke sortere korrekt.

Har du prøvet at sætte din kode ind i et excel ark?

yes, og den sorterer ok.