29. februar 2020 - 14:12Der er
7 kommentarer og 1 løsning
Tekst fra felt til faneblade
Hej jeg vil gerne gøre følgende:
Har en række medarbejdernumre i området A1 til A35. Jeg vil gerne have en fane til hvert medarbejdernummer, så laveste nr. er på fanen længst til venstre og så fremdeles....
Sub OpretArk() Dim WS As Worksheet For x = 1 To 35 Set WS = Sheets.Add(After:=Sheets(Worksheets.Count)) WS.Name = Cells(x, 1).Value Next End Sub
Hvis medarbejdernumrene ikke står i rækkefølge kan det evt. lade sig gøre med denne makro:
Sub OpretArk() Dim WS As Worksheet For x = 1 To 35 Set WS = Sheets.Add(After:=Sheets(Worksheets.Count)) WS.Name = WorksheetFunction.Large(Range("A1:A35"), 35 - x + 1) Next End Sub
Marker hele området med navne, hvis der ikke er overskrift i A1 så indsæt den først. Vælg indsæt pivot.
Når pivoten er lavet (du bør nok læse mere om pivot idet den nok også kan løse en del af det du ønsker skal på de enkelte faner), skal du sætte din overskrift ind som filter.
Hvis det kan lykkes tager vi næste skridt, som er at finde knappen filter til sider. Den vil nu skabe en fane for hver mulighed i dit filter i pivoten.
@kim1a - tak for opskriften, kigger på det i weekenden, men bliver nok nødt til at vende tilbage derefter, på forhånd tak.
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.