19. februar 2012 - 10:31Der 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
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
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
Ok - du er ikke den første der har været i den situation.
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.