Avatar billede romme Nybegynder
24. maj 1999 - 23:36 Der er 8 kommentarer og
1 løsning

Random flere celler

Jeg har 8 celler A1 - A8 , som jeg gerne vil have overført til celler B1 - B8 i en random rækkefølge.
Er der nogle der har et godt bud ?
Avatar billede theartist Nybegynder
25. maj 1999 - 12:18 #1
Hvis du kun har 8 celler, hvorfor så ikke bare copy paste??
Avatar billede romme Nybegynder
25. maj 1999 - 19:49 #2
Det skulle helst ske automatisk, ved f.eks. tryk på F9.
Jeg bør måske nævne at det er tekst der er i de 8 celler.
-------------------------------------    A        B
tekst 1
tekst 2
tekst 3
tekst 4
tekst 5
tekst 6
tekst 7
tekst 7
-------------------------------------

De skal så over i celle B1 - B8, i tilfældig rækkefølge.

- Romme
Avatar billede theartist Nybegynder
26. maj 1999 - 14:17 #3
Jeg må indrømme at jeg ikke lige kan klare den der, jeg kender ikke nogen funktion, der kan lave det du leder efter, men held og lykke
Avatar billede theartist Nybegynder
26. maj 1999 - 14:19 #4
Evt. kunne du prøve at spørge spørgsmålet et andet sted jeg har på fornemmelsen, at der ikke er så mange der kigger i denne kategori. HUSK dog at checkke det hos admin, for det er normalt ikke tilladt at oprette samme spørgsmål i mere end 1 kategori. Men det kan være at der er nogle der kan svare på dit spørgsmål i kategorien Generelt / fri debat eller lignende
Avatar billede romme Nybegynder
26. maj 1999 - 22:39 #5
Haaaaaaalloooooooo.... ADMIN er du der ?!?
Avatar billede theartist Nybegynder
26. maj 1999 - 23:04 #6
evt. stil ham spørgsmålet i spørgsmål til admin, eller hvad det nu hedder. Der er han i hvert fald, og giv ham et link til denne side, så der han det nok
Avatar billede kh Nybegynder
28. maj 1999 - 11:17 #7
Denne makro blander cellerne i første kolonne af en markering.
Håber det løser dit problem, ellers må du skrive igen

Sub RanCol()
  ' Blander cellerne i første kolonne af en markering
  Application.ScreenUpdating = False
  r1 = Selection.Row
  r2 = Selection.Row + Selection.Rows.Count - 1
  c = Selection.Column
  ' Markerer anden kolonne
  Range(Cells(r1, c + 1), Cells(r2, c + 1)).Select
  Selection.Insert Shift:=xlToRight
  ' Indsætter tilfældige tal
  For i = r1 To r2
    Cells(i, c + 1).Value = Rnd
    'Cells(i, Selection.Column + 1) = Cells(i, Selection.Column)
  Next
  ' Markerer og blander 1. og 2. kolonne
  Range(Cells(r1, c), Cells(r2, c + 1)).Select
  Selection.Sort Key1:=Cells(1, 2)
  ' Markerer anden kolonne
  Range(Cells(r1, c + 1), Cells(r2, c + 1)).Select
  Selection.Delete Shift:=xlToLeft
  ' Markerer første kolonne
  Range(Cells(r1, c), Cells(r2, c)).Select
  Application.ScreenUpdating = True
End Sub

Avatar billede romme Nybegynder
28. maj 1999 - 21:22 #8
Kanon...
Tak for hjælpen :o)
Avatar billede floffy Nybegynder
05. august 1999 - 23:09 #9
God hjælp. Det er rart når der kommer effektive svar.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester