Excel 2010: Lage prioriteringskolonne

[NoviKaNa]

Jeg har en lister over vel 100 punkter som jeg ønsker å prioritere fra viktigst til minst viktig, hvorav hvert punkt får et tall fra 1 til 100 (eller det antallet rader jeg har).

 

Det kinkige her er at jeg ønsker at jeg enkelt kan legge til et punkt, og ved å velge fra kolonnen gi den prioritet nr 50, og at de som allerede er prioritert fra 50 og nedover da får et høyere tall (altså at 50 blir 51, 51 blir 52 osv.)

 

Er det mulig? Jeg ønsker å slippe å sortere dem ved å klippe og lime dem i riktig rekkefølge.

 

EDIT: Det skal altså ikke være mulig at to rader har samme prioriteringsnummer.

Endret 8. april 2011 av NoviKaNa

[Horge]

Hmm... tror kanskje du blir nødt for å ha noe makromagi for å få til det der.

 

Men, noe totalt annet, som like fullt kanskje kan være et alternativ all den tid du sier at du vil slippe og klippe og lime for å sortere, det er å flytte celler mens man holder nede [shift]. Dette lar deg legge inn en celle "mellom" andre celler, altså i stedet for å flytte cellen over en annen celle og dermed overskrive denne, så legger du cellen inn mellom to celler, slik at de under blir flyttet nedover.

 

Merk for øvrig hvordan markøren endrer utseende når du flytter en celle med og uten [shift] inntrykket, så skjønner du fort hvordan det funker.

[Harald Staff]

Høyreklikk arkfanen, velg Vis kode, lim inn dette:

 

Dim Bauto As Boolean

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Long, RX As Long

Dim X As Long

If Target.Count > 1 Then Exit Sub

If Bauto Then Exit Sub

If Target.Column <> 1 Then Exit Sub

RX = Target.Row

X = Val(Target.Value)

If X < 1 Then Exit Sub

Bauto = True

For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row

If R <> RX Then

If Val(Cells(R, 1).Value) >= X Then

Cells(R, 1).Value = Val(Cells(R, 1).Value) + 1

End If

End If

Next

Bauto = False

End Sub

 

Den virker for A-kolonnen (kolonne 1).

 

HTH. Beste hilsen Harald

[NoviKaNa]

Ah, takk!! Eneste problemet der er at det fungerer kun dersom jeg endrer prioritet opp, men ikke ned. Så dersom jeg endrer fra 10 til 5, får alle 5 og over lagt på en og det ser bra ut. Men endrer jeg fra 5 til 10, blir ingen av de andre 4, og det blir dermed et åpenrom.

 

Skulle jo vært lettere tilgjengelig i Excel...