19. maj 2009 - 09:29Der er
4 kommentarer og 1 løsning
Udlæsning af data til sperat fane
Hej rødder
Jeg har en mappe, der rummer knap 100 faner som en anden har leveret. Jeg vil gerne udlæse specifikke oplysninger fra hver faner til en ny fane.
Konkret: Fane "0189", celle A2 (et personnavn) + celle g2 (løndata) + celle h29 (periode)derefter Fane "9898", celle A2 (et personnavn) + celle g2 (løndata) + celle h29 (periode).
Skal udlæses til en ny fane, hvor oplysningerne fra fanerne er placeret på række - dvs. oplysningerne fra fane "0189" ligger i cellerne a2, b2, c2 > oplysningerne fra fane "9898" ligger i cellerne a3, b3, c3. Osv.
OK. Jeg er ikke den store haj til Excel sidder selv og nørkler med det nu og faldt netop over den artikel. Held og lykke.
Synes godt om
Slettet bruger
19. maj 2009 - 13:22#4
Jeg har godt bemærket, at du har tænkt dig noget makro/VB code, men du kunne måske også overveje følgende:
I det ark hvor du ønsker at samle oplysningerne gør du følgende: Markerer kolonne A og formaterer som tekst. Fra A2 og nedefter skriver du navnene på alle dine ark I B2 skriver du formlen: =INDIRECT(A2&"!A2") I C2 skriver du: =INDIRECT(A2&"!G2") I D2 skriver du: =INDIRECT(A2&"!H29") (INDIREKTE hvis du bruger dansk version) Marker B2:D2 og træk i fyldhåndtaget i nederste højre hjørne af celle D2 så langt ned som du har arknavne i kolonne A.
Du kan bruge følgende kode til at lave en liste over alle arknavne.
Sub ListOutSheetNames() Application.ScreenUpdating = False Dim Nsheet As Worksheet Set Nsheet = Sheets.Add Dim WS As Worksheet Dim r As Integer r = 1 For Each WS In Worksheets If WS.Name <> Nsheet.Name Then Nsheet.Range("A" & r) = WS.Name r = r + 1 End If Next WS Application.DisplayAlerts = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
det funker - tak. jeg ser lige hvordan jeg kommer til at kunne give point
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.