17. december 2004 - 16:28Der er
8 kommentarer og 1 løsning
Jeg vil gerne have oplysninger fra første fane kopieret videre
Jeg er ved at lave et regneark der skal bruges til disponering for et helt år (hvert ark/fane er en uge) i den første kolonne skrives navne, dem vil jeg gerne have kopieret videre til de andre ark, uden at de skal markeres først. Det skal være så jeg kan skifte navne undervejs i løbet af året..
Nu er du ikke særlig specifik - skal det kopiereres automatisk, fx. hver gang arket åbnes, eller når du kører en macro? Hvor mange celler - er det altid det samme antal celler der skal kopieres? Er det bare noget du skal gøre een gang for alle?
Jeg gætter på, at det er ok, hvis du i alle de andre ark linker til cellerne i kolonne 1 i første ark, så de bliver ændret, hvis du ændrer i det første ark. Og at det er for alle rækker (række 1 - 65536).
Løses ved følgende macro:
Sub Macro1() Dim i As Long Application.ScreenUpdating = False For i = 2 To Application.Sheets.Count Application.Sheets(i).Select Range("A1").Select ActiveCell.FormulaR1C1 = "=Sheet1!RC" 'KRÆVER, at dit første ark hedder "Sheet1" Range("A1").Select Selection.AutoFill Destination:=Range("A1:A65536"), Type:=xlFillDefault Next i Application.ScreenUpdating = True End Sub
NB: *Hedder dit første sheet ikke Sheet1, så ret i koden *Vil du kun kopierer til et bestemt antal ark, så skift Application.Sheets.Count til det antal du vil kopiere til *Du kan ændrer formatet på cellerne, så de ikke viser '0' hvis den referede celle er tom.
Tools-> Macro-> record new macro Giv macroen et navn - fx. Juleand - og gør et eller andet, tryk herefter stop Tools-> Macro-> macros Vælg din macro Juleand, tryk rediger Skift alt koden ud med ovenstående.
Herefter kan du køre macroen Tools-> Macro-> macros -> Run
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.