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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.