Avatar billede nhk Novice
27. maj 2014 - 21:07 Der er 2 kommentarer og
1 løsning

Åbne lukke skjult faneblad

Jeg har noget kode, der overflytter en række fra Ark 1, til første tomme række i Ark 2.
Dette Ark2, skal være skjult, evt password-beskyttet, for at brugere ikke umiddelbart kan slette data.
Jeg vil høre om det er muligt at indføje i den VBA-kode jeg bruger, som det første, at åbne det skjulte ark, og som det sidste at skjule det igen.
Avatar billede kabbak Professor
27. maj 2014 - 22:01 #1
du kan kopiere til et skjult ark sådan uden at selecte

Range("A1").Copy Sheets("Ark2").Range("A" & (Sheets("Ark2").UsedRange.Rows.Count) + 1)
Avatar billede nhk Novice
28. maj 2014 - 08:08 #2
Jeg bruger nedenstående til at flytte værdier fra arket Diagram til arket Maalevaerdier, og så gemme til sidst.
Det er så Maalevaerdier jeg vil skjule, så hvor kan den foreslåede kode indsættes?

Sub flytdata()


Dim targetRow As Long


' finder første tomme række i ark Maalevaerdier
targetRow = Worksheets("Maalevaerdier").Range("A1000000").End(xlUp).Row + 1

'selekter  ark Diagram celle A2
Worksheets("Diagram").Range("A2").Select

' kopierer aktiv række
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy

' vælger kopiarket og den første ledige række og indsætter
Worksheets("Maalevaerdier").Select
Rows(targetRow & ":" & targetRow).Select
ActiveSheet.Paste


' tilbage til originalarket
Worksheets("Diagram").Select

' cursor i aktive celle
ActiveCell.Offset(0, 0).Select

' gemmer dokumentet
ActiveWorkbook.Save


End Sub
Avatar billede kabbak Professor
28. maj 2014 - 09:22 #3
Sub flytdata()


''Dim targetRow As Long


' finder første tomme række i ark Maalevaerdier
''targetRow = Worksheets("Maalevaerdier").Range("A1000000").End(xlUp).Row + 1

'selekter  ark Diagram celle A2
''Worksheets("Diagram").Range("A2").Select

' kopierer aktiv række
''Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy

' vælger kopiarket og den første ledige række og indsætter
''Worksheets("Maalevaerdier").Select
''Rows(targetRow & ":" & targetRow).Select
''ActiveSheet.Paste


' tilbage til originalarket
''Worksheets("Diagram").Select
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy Sheets("Maalevaerdier").Range("A" & Worksheets("Maalevaerdier").Range("A1000000").End(xlUp).Row + 1)
' cursor i aktive celle
ActiveCell.Offset(0, 0).Select

' gemmer dokumentet
ActiveWorkbook.Save


End Sub
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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