Avatar billede Bent_V_M Nybegynder
19. februar 2012 - 10:31 Der er 11 kommentarer og
1 løsning

Vælg ark fra celle med arknavn

Jeg har oprettet et ark, hvor jeg har projekter opstillet.
I kolonne A har jeg projektnumre. Kolonne B ansvarlig o.s.v.
Jeg opretter et nyt ark pr. projekt. Ønsket er så at jeg kan køre en makro der åbner arket med samme navn som værdien i kolonne A og indsætter data fra mit 1. ark.

Indsat herunder er makroen jeg forsøger mig med.
Jeg er gået i stå ved >> Sheets(Selection).Select <<


Sub CC()
'
' CC Makro
'

'
    'Vælger data fra den aktive linie
    Selection.End(xlToLeft).Select
    ActiveCell.Range("D1:F1").Select
    Selection.Copy
   
    'Vælger Ark efter kolonne A
    Selection.End(xlToLeft).Select
    Sheetsname = Selection
     
    ' >> Sheets(Selection).Select <<
   
    Range("C5").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").End(xlDown).Offset(1, 0).Select
    Selection = Now()
    Sheets("Ark1").Select
   
End Sub
Avatar billede supertekst Ekspert
19. februar 2012 - 11:00 #1
ActiveWorkbook.Sheets(sheetsname).Activate
Avatar billede Bent_V_M Nybegynder
19. februar 2012 - 16:41 #2
Hej Supertekst
Beklager men jeg kan ikke få det til at virke. Cellen i kolonne A er et sekscifret tal. Hvis jeg manuelt indsætter feks

Sheets("110009").Select
virker det.


Sub CC()
'
' CC Makro

'Vælger data fra den aktive linie (Dette er ok)
    Selection.End(xlToLeft).Select
    ActiveCell.Range("D1:F1").Select
    Selection.Copy
   
'Vælger Ark efter kolonne A (Denne skal vælge værdien i den aktive linie kolonne A)
    Selection.End(xlToLeft).Select
    ActiveWorkbook.Sheets(sheetsname).Activate
   
    Range("C5").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").End(xlDown).Offset(1, 0).Select
    Selection = Now()
    Sheets("Ark1").Select
   
End Sub
Avatar billede supertekst Ekspert
19. februar 2012 - 18:00 #3
ActiveWorkbook.Sheets(Cstr(sheetsname)).Activate
Avatar billede Bent_V_M Nybegynder
19. februar 2012 - 18:16 #4
Beklager men virker ikke.

Tror der er et eller andet jeg misforstår.

Jeg starter med at kopierer 3 celler i en række.
Så vil jeg finde arket med samme navn som celle A i den samme række.
Herefter indsætter jeg data fra de 3 celler i arket.

Din forslag  >> ActiveWorkbook.Sheets(Cstr(sheetsname)).Activate <<
skal gerne læse cellen i række A. Og herefter gå til arket. Dette kan jeg ikke få det til
Avatar billede supertekst Ekspert
19. februar 2012 - 18:22 #5
Ok - ser på det senere..
Avatar billede supertekst Ekspert
19. februar 2012 - 23:19 #6
Sub CC()
Dim arkNavn As String
'
' CC Makro

'Vælger data fra den aktive linie (Dette er ok)
    Selection.End(xlToLeft).Select
    ActiveCell.Range("D1:F1").Select
    Selection.Copy
   
'Vælger Ark efter kolonne A (Denne skal vælge værdien i den aktive linie kolonne A)
    Selection.End(xlToLeft).Select
   
    arkNavn = Selection
    ActiveWorkbook.Sheets(arkNavn).Activate
   
    Range("C5").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5").End(xlDown).Offset(1, 0).Select
    Selection = Now()
    Sheets("Ark1").Select
   
End Sub
Avatar billede Bent_V_M Nybegynder
20. februar 2012 - 06:32 #7
Flot det virker.
Tusind tak skal du have.
Avatar billede supertekst Ekspert
20. februar 2012 - 08:59 #8
Selv tak - du tog blot point selv - fred være med det - prøv evt. at se på "spillereglerne"..
Avatar billede Bent_V_M Nybegynder
20. februar 2012 - 09:50 #9
Beklager men jeg er helt ny i dette.
Hvordan kan jeg give dig de fortjente point
Avatar billede supertekst Ekspert
20. februar 2012 - 10:20 #10
Det er ok - du behøver ikke foretage dig yderligere..
Avatar billede Bent_V_M Nybegynder
20. februar 2012 - 10:29 #11
Jeg takker meget for hjælpen.
Jeg var kørt helt fast.
Beklager meget fejlen :0)
Avatar billede supertekst Ekspert
20. februar 2012 - 11:03 #12
Ok - du er ikke den første der har været i den situation.
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