Dette er min første post i dette forum, og jeg er spændt på, om I kan hjælpe mig med min udfordring. Det skal nævnes, at jeg ikke har ret meget forstand på programmering eller advancerede funktioner i Excel, så pædagogiske svar er kærkomne

 

Jeg skal bruge hælp til følgende:

 

Jeg har en lodret talrække (et tal i hver celle). Det der skal ske er, at når antallet af unikke tal i kolonnen overstiger x, så skal der slettes tal fra oven, indtil antallet af unikke tal i kolonnen igen er = x. Samtidigt skal hele talrækken flyttes opad således, at talrækkens øverste tal altid står i samme celle. Giver det overhovedet mening?

 

Indtil videre er det lykkedes mig at lave en funktion, der tæller antallet af unikke tal i kolonnen, men kan nu ikke komme videre.

 

På forhånd mange tak for hjælpen.

 

Mvh.

Thomas

 

Jeg tror jeg har misforstået dig, jeg prøver lige noget andet.

 

//Allan

 

Hvis antallet af unikke i området overstiger et maks, så slettes fra toppen indtil vi er under maks igen.

MaxUnikke = Det maksimum antal unikke du accepterer.

 

 

 

Nu er jeg stødt på en udfordring mere i samme forbindelse, som jeg er meget usikker på, om overhovedet kan løses:

 

Når der skal tilføjes et nyt tal forneden i den tidligere omtalte lodrette talrække, skal tallet automatisk tilføjes, når man klikker på en celle et andet sted i arket. Cellen man klikker på indeholder således det tal, der skal føjes til den første tomme celle under talrækken. Ideen er, at man kan klikke et forud defineret tal ind i talrækken uden at skulle skrive tallet manuelt.

 

Kan det lade sig gøre?

 

På forhånd tak.

 

Mvh.

Thomas

 

Jeg har selv løst det. Jeg har tilføjet nogle kommandonapper, som indsætter de ønskede værdier.

 

Jeg har også lavet en knap, der kører makroen med din kode, og det virker perfekt. Jeg kunne dog godt tænke mig, at Excel automatisk kører makroen, når der tilføjes et nyt tal, som medfører, at det maksimale antal unikke tal overskrides. Jeg har prøvet mig frem i VBA, men jeg kan ikke få det til at virke.

 

Hvor skal jeg skrive hvad?

 

På forhånd mange tak.

 

Mvh.

Thomas

 

Jeg har skrevet koden bag knapperne for hvert tal således:

 

Sub Tal_7()
   
    Range("A1").Select
    If Selection.Value > 0 Then Range("A2").Select
    If Selection.Value > 0 Then Range("A3").Select
    If Selection.Value > 0 Then Range("A4").Select
    If Selection.Value > 0 Then Range("A5").Select
    If Selection.Value > 0 Then Range("A6").Select
    If Selection.Value > 0 Then Range("A7").Select
    If Selection.Value > 0 Then Range("A8").Select
        
    ActiveCell.FormulaR1C1 = "7"
   
 End Sub

 

Det virker fint.

 

Hvis jeg nu indsætter Call Max_Unikke før End Sub, så skriver den Sub or Function not defined. Kan det måske hænge sammen med, at jeg har skrevet koden for hver knap i dets eget Module?

 

Mvh.

Thomas

 

 

 

 

Ja, nu virker det. Fejlen lå i, at jeg ikke havde oprettet din kode i et modul men som et Microsoft Excel Object.

 

Tak!

 

Mvh.

Thomas