Avatar billede mrkr Juniormester
10. september 2008 - 17:02 Der er 2 kommentarer og
1 løsning

indsætte værdien af en bestemt celle fra alle ark i opsamlingsark

Jeg har et ark med forskellige antal ark
I arket oversigt kunne jeg godt bruge følgeende:

I celle a5 skal der stå det der står i celle a10 i det første ark jeg har som ikke hedder oversigt
I celle b5 skal der stå det der står i celle b10 i det første ark jeg har som ikke hedder oversigt

I celle a6 skal der stå det der står i celle a10 i det andet/næste ark jeg har som ikke hedder oversigt
I celle b6 skal der stå det der står i celle b10 i det andet7næste ark jeg har som ikke hedder oversigt

osv.

På den måde vil den lave en oversigt over de beløb der står i cellerne a10 + b10 i alle mine ark.

jeg har gættet mig til lidt af koden men kan ikke få det til at virke


For Each ws In ActiveWorkbook.Worksheets
        If ws.Name <> "oversigt Then
....
....


Er der nogen der kan hjælpe?
Avatar billede kabbak Professor
10. september 2008 - 17:33 #1
Jeg kumnne ikke få lov til at kalde mit ark for oversigt, den siger at det er reseveret.

men her er koden

Public Sub Opdater()
    Dim X As Long, WS As Worksheet
    X = 5
    ' Måske skal du tømme arket fra række 5 inden , resten af koden skriver i den
    With Worksheets("Oversig")
        For Each WS In ActiveWorkbook.Worksheets
            If WS.Name <> "oversig" Then
                .Cells(X, 1) = WS.Range("A10")
                .Cells(X, 2) = WS.Range("B10")
                X = X + 1
            End If
        Next
    End With
End Sub
Avatar billede mrkr Juniormester
10. september 2008 - 18:36 #2
jeg kunne heller ikke få lov til at kalde den oversigt, men det er der jo råd for :-)
Den virker lige som den skal.
Mange tak for hjælpen.

Hvis du har et svar har jeg points
Avatar billede kabbak Professor
10. september 2008 - 19:22 #3
et 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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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