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.
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
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
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
God hjælp. Det er rart når der kommer effektive svar.
Synes godt om
Ny brugerNybegynder
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.